零基础VB教程062期：常用数学函数第二节 弧度、进制转换、hex/oct/round/fix/sqr等

2020-03-11 09:36:11 浏览数 (1)

视频讲解

https://v.qq.com/x/page/o09308bzoe2.html

刘金玉的零基础VB教程062期：常用数学函数第二节

数学函数：

Abs求绝对值

Sin(x)正弦返回一个double，表示一个以弧度为单位的角

Cos

Tan

Atn反正切

Exp反对数， e（自然对数的底）的某次方，常数数e的值大约是2.718282

Log自然对数，以e为底的对数

Rnd

弧度转角度：弧度*180/pi角度转弧度：角度*PI/180

常用数值转换：

Sgn符号函数，判断某数的正负号，正数返回1,负数返回-1，零还是返回0

Cint转为整型函数

Clng转为长整型函数

Int 向下取整,返回一个比原值要小的一个整数 int(1.9)=1 int(-1.9)=-2

Fix 去除小数部分

Sqr 求平方根

Hex 返回十六进制数，输入十进制数，返回十六进制数

Oct返回一数值的八进制值

Round(x,n)依指定求出小数点位数并四舍五入,x表示原数值，n表示小数位数

各个进制的数值表示

  • 二进制B
  • 八进制O
  • 十进制D
  • 十六进制H

课堂总结

1、掌握基本的数值类型转换

2、基本的数学函数

3、掌握进制转换方式

4、区分int和fix的区别

5、round(x,n)四舍五入的方法，这个不精确，推荐使用format函数

本期界面:

本期源代码：

代码语言：javascript复制
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = CLng(InputBox("请输入数字a。。。"))
b = CLng(InputBox("请输入数字b。。。"))

Dim c As Long

c = a - b

If Sgn(c) = 1 Then
    MsgBox "结果是正数，a要大"
ElseIf Sgn(c) = -1 Then
    MsgBox "结果是负数，a要小"
ElseIf Sgn(c) = 0 Then
    MsgBox "a=b"
End If


End Sub

Private Sub Command2_Click()
Print CInt("123" & "2")
End Sub

Private Sub Command3_Click()

Print Int(Val(InputBox("请输入数字")))


End Sub


Private Sub Command4_Click()
Print Fix(Val(InputBox("请输入数字")))
End Sub

Private Sub Command5_Click()
Print Sqr(Val(InputBox("请输入数字")))
End Sub

Private Sub Command6_Click()
Print Hex(Val(InputBox("请输入数字")))
End Sub

Private Sub Command7_Click()
Print Oct(Val(InputBox("请输入数字")))
End Sub

Private Sub Command8_Click()
Print Round(Val(InputBox("请输入数字")), 2)
End Sub
double format hex int

0 人点赞