急问一个简单的VB简单编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/06 04:14:46
我要将几个参数通过一系列的运算得到一个结果，中间要用到一些三角函数，而且输入的参数长度可能达到10位以上，输出结果也要达到这个精度以上，请问具体程序该怎么编，最好有个简单的例子，我刚接触VB,编程又知之甚少，高人帮帮忙啊
比如我建立4个textbox分别是text1，text2，text3，text4，前3个输入初始值，最后一个输出结果，假定公式为text4=sin（text1）cos（text2）/tan（text3），程序该怎么写，我老是出现错误，不知道是不是格式不对，还有数的平方怎么表示？

Private Sub Form_click()
Dim a As Double, b As Double, c As Double, s As Double
Const pi As Double = 3.1415926
a = InputBox("请输入一个角度值（度）", "输入框")
b = InputBox("请输入一个角度值（度）", "输入框")
c = InputBox("请输入一个角度值（度）", "输入框")
s = Sin(a * pi / 180) + Cos(b * pi / 180) + Tan(c * pi / 180) + 0.56
Print s
End Sub