Private Sub Command1_Click()
Dim s!, c!, a!
c = Val(Text1.Text)
a = Val(Text2.Text) * 3.1415 / 180
s = Sin(a) * c * Cos(a) * c / 2
Label3.Caption = "面积为" & s
End Sub
上面是一个输入直角三角形的斜边长度和一个锐角的角度,求三角形面积的代码。
这里我有2处不怎么明白:
1、Dim s!, c!, a!,为什么要用“!”?
2、角度那里用a = Val(Text2.Text)不行吗?为什么要“* 3.1415 / 180”?
Dim s!, c!, a!
c = Val(Text1.Text)
a = Val(Text2.Text) * 3.1415 / 180
s = Sin(a) * c * Cos(a) * c / 2
Label3.Caption = "面积为" & s
End Sub
上面是一个输入直角三角形的斜边长度和一个锐角的角度,求三角形面积的代码。
这里我有2处不怎么明白:
1、Dim s!, c!, a!,为什么要用“!”?
2、角度那里用a = Val(Text2.Text)不行吗?为什么要“* 3.1415 / 180”?
相当于dim s,c,a as single
数据类型的定义方法之一2。sin 和 cos 用的都是弧度,要先把角度转成弧度
2、角度那里用a = Val(Text2.Text)不行吗?为什么要“* 3.1415 / 180”?
Sin 函数
返回一 Double,指定参数的 sine(正弦)值。语法Sin(number)必要的 number 参数是 Double 或任何有效的数值表达式,表示一个以弧度为单位的角。说明Sin 函数取一角度为参数值,并返回角的对边长度除以斜边长度的比值。结果的取值范围在 -1 到 1 之间。为了将角度转换为弧度,请将角度乘以 pi /180。为了将弧度转换为角度,请将弧度乘以 180/pi。