Question

小弟初学vb，编程遇到难题，请教各位高手大侠！

小弟在网上搜了一个反正玄函数的代码，用手计算的时候，非常合适，
但用vb编程后运用，则不行，感觉是我编程有问题，请各位高手指点，不胜感激！程序如下：
Function ArcSin(x As Double) As Double
If x >= -1 And x < -0.5 Then ArcSin = -Atn(Sqr(1 - x * x) / x) - 2 * Atn(1)
If x >= -0.5 And x <= 0.5 Then ArcSin = Atn(x / Sqr(1 - x * x))
If x > 0.5 And x <= 1 Then ArcSin = -Atn(Sqr(1 - x * x) / x) + 2 * Atn(1)
End Function

Private Sub Command1_Click()
Dim a As Double
a = Val(Text1.Text)
Text2.Text = ArcSin(a)
End Sub
小弟邮箱为lylsmdy@163.com，可直接发送！

Answer 1

你计算出来得到的是弧度，要转换成角度啊
Text2.Text = ArcSin(a) / 3.1415926 * 180

Answer 2

程序没错，难道是没换成角度？