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”?

解决方案 »

  1.   

    1。Dim s!, c!, a! 
       相当于dim s,c,a as single 
       数据类型的定义方法之一2。sin 和 cos 用的都是弧度,要先把角度转成弧度
      

  2.   

    1、Dim s!, c!, a!,为什么要用“!”? Single 数据类型Single(单精度浮点型)变量存储为 IEEE 32 位(4 个字节)浮点数值的形式,它的范围在负数的时候是从 -3.402823E38 到 -1.401298E-45,而在正数的时候是从 1.401298E-45 到 3.402823E38。Single 的类型声明字符为感叹号 (!)。
    2、角度那里用a = Val(Text2.Text)不行吗?为什么要“* 3.1415 / 180”?
    Sin 函数
          返回一 Double,指定参数的 sine(正弦)值。语法Sin(number)必要的 number 参数是 Double 或任何有效的数值表达式,表示一个以弧度为单位的角。说明Sin 函数取一角度为参数值,并返回角的对边长度除以斜边长度的比值。结果的取值范围在 -1 到 1 之间。为了将角度转换为弧度,请将角度乘以 pi /180。为了将弧度转换为角度,请将弧度乘以 180/pi。