VB里面怎么求反余弦?还有求出来的余弦角度（不是弧度,是角度）怎么四舍五入?

Question

VB里面怎么求反余弦?还有求出来的余弦角度（不是弧度,是角度）怎么四舍五入?

Answer 1

反余弦是没有直接的函数,不过自己可以写在模块里面,也可以直接运算；VB中计算公式
反正弦 Arcsin(X) = Atn(X / Sqr(-X * X + 1))
反余弦Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
反正割 Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
反余割 Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
反余切Arccotan(X) = Atn(X) + 2 * Atn(1)
四舍五入用Format函数就好了；比如：
MyStr = Format(334.9,"###0.00") ' 返回 "334.90