vb中反正弦函数怎么写？

Question

没有现成的Arcsin函数，但可由反正切函数导出
Arcsin(X) = Atn(X / Sqr(-X * X + 1))

Answer 1

vb中没有反正弦函数，只有反正切函数atn(x).但是arcsin(x)=atn(x/sqr(1-x*x))

Answer 2

上面的函数在 x=1和 x=-1时会出错 所以还得加2行
Private Function ArcSin(x As Single) As Single
    If x = 1 Then
        ArcSin = Pi / 2
    ElseIf x = -1 Then
        ArcSin = Pi * 3 / 2
    Else
        ArcSin = Atn(x / Sqr(-x * x + 1))
    End If
End Function