VB 高手请指教:怎么样来做弧度与角度的转换问题?

可以这样来定义 Pi 值
Dim pi As Double
pi=4*atan(1.0)
__________________________

Private Sub Command1_Click()
Dim pi As Double
dim t as single
pi=4*atan(1.0)
t=val(text1.text)
Text2.Text = Str(Tan(t*pi/180))
End Sub
__________________________
可以这样来定义 Pi 值
Dim pi As Double
pi=4*atan(1.0)
这是定义π值的方法，因为aretan(1.0)=45°即π/4
4 * aretan(1.0) = π
用VB表示就是：pi=4*atan(1.0)
______________________
VB里有atan函数，就是arctan
_______________________
就是atan()
就按：pi = 4 * atan(1.0) 输入
pi 要先定义，Dim pi As Double
+++++++++++++++++
我没QQ
你查一下VB的反三角函数吧！VB只有唯一一个反三角函数就是正切的反三角函数 atan, 你也可到Excel中去看看，excel用的是VBA, 此函数是一样的！

Private Sub Command1_Click()
Dim t As Single
t = Val(Text1.Text)
Text2.Text = CStr(Tan(t))
End Sub

Private Sub Command1_Click()
Dim t As Single
t = Val(Text1.Text)
Text2.Text = "输入为:" & Text1.Text & " 结果为:" & CStr(Tan(t))
End Sub

Const PI = 3.1415926535898

Private Sub Command1_Click()
Dim t As Double
t = Val(Text1.Text)
Text2.Text = Tan(Val(t * PI / 180))
End Sub

45度即Pi/4。 Pi=3.14。
你？号的地方就填上：3.1415926/(180/t)
即3.1415926*t/180