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

上一个：学VB编程应该注意什么？
下一个：VB难如何去学