关于数学函数

Question

VB itself have no such fuctions.具备被零除的错误处理的Arccos和Arcsin函数Public Function Arccos(ByVal X As Double) As Double
  If Abs(X) <> 1 Then
      Arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
   Else
      Arccos = IIf(X = 1, 0, Atn(1) * 4)
   End If
End FunctionPublic Function Arcsin(ByVal X As Double) As Double
  If Abs(X) <> 1 Then
      Arcsin = Atn(X / Sqr(-X * X + 1))
   Else
      Arcsin = IIf(X = 1, Atn(1) * 2, Atn(1) * 6)
   End If
End Function