vb高手进，在线等··谢谢

假如：我有一个command1。和text1，text2三个控件，我想在text1里输入一个角的余弦值后，点command1里，让它的角度显示在text2里面,用vb怎样编写？谢谢

其实很简单,只是反余弦函数上要自己算有点麻烦.

Private Const pi = 3.14159265358979

Private Function Arccos(ByVal X As Double) As Double
    Arccos = Atn(Sqr(1 - X * X) / X)
    If Arccos < 0 Then Arccos = Arccos + pi
End Function

Private Sub Command1_Click()
    Text2.Text = CStr(Arccos(Val(Text1.Text)) * 180 / pi)
End Sub

我怀疑楼上的学过vb没有 - -！PHP一样

我怀疑楼上的学过vb没有 - -！

text2.text=str(arccos(val(text1.text))*180/3.14)