这样定义为什么不对?

Question

麻烦各位高手写得清楚些
从定义函数开始
只需要Arccos就可以了
我知道推导式
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
但该怎么定义?
Private Function Arccos(X As Integer) As Integer
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function

Answer 1

改成Private Function Arccos(X As Double) As Double用整数怎么算三角函数啊，要用double的

Answer 2

Private Function Arccos(X As Double) As DoubleArccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)End FunctionPrivate Function Arccos(X As Integer) As IntegerArccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)End Function函数里面Arccos(X) 改成Arccos还要注意可能出现的除0错误