急求一段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