急啊！！！VB编程高手请进！

函数
由基本函数导出之公式

Secant（正割）
Sec(X) = 1 / Cos(X)

Cosecant（余割）
Cosec(X) = 1 / Sin(X)

Cotangent（余切）
Cotan(X) = 1 / Tan(X)

Inverse Sine

（反正弦）
Arcsin(X) = Atn(X / Sqr(-X * X + 1))

Inverse Cosine

（反余弦）
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)

Inverse Secant

（反正割）
Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))

Inverse Cosecant

（反余割）
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))

Inverse Cotangent

（反余切）
Arccotan(X) = Atn(X) + 2 * Atn(1)

Hyperbolic Sine

（双曲正弦）
HSin(X) = (Exp(X) - Exp(-X)) / 2

Hyperbolic Cosine

（双曲余弦）
HCos(X) = (Exp(X) + Exp(-X)) / 2

Hyperbolic Tangent

（双曲正切）
HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))

Hy