VB中好像没有反正弦函数与反余弦函数，需要自己动手编写，可以通过VB自带的反正切函数Atn(x)来编写VB的反正弦函数ArcSin(x)与反余弦函数ArcCos(x)。
VB自带的反正切函数：
Atn(x) 函数
功能：返回一个 Double，指定一个数的反正切值。
语法：Atn(number)。
说明：其中，number 参数是一个必要的 Double或任何有效的数值表达式。
程序代码：略（VB内带）。
VB中的反正弦函数与反余弦函数：
ArcSin(x) 函数
功能：返回一个指定数的反正弦值，以弧度表示，返回类型为Double。
语法：ArcSin(x)。
说明：其中，x的取值范围为[-1，1]，x的数据类型为Double。
程序代码：
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
ArcCos(x) 函数
功能：返回一个指定数的反余弦值，以弧度表示，返回类型为Double。
语法：ArcCos(x)。
说明：其中，x的取值范围为[-1，1]，x的数据类型为Double。
程序代码：
Function ArcCos(x As Double) As Double
If x >= -1 And x < -0.5 Then ArcCos = Atn(Sqr(1 - x * x) / x) + 4 * Atn(1)
If x >= -0.5 And x <= 0.5 Then ArcCos = -Atn(x / Sqr(1 - x * x)) + 2 * Atn(1)
If x > 0.5 And x <= 1 Then ArcCos = Atn(Sqr(1 - x * x) / x)
End Function
