Question

vb 函数问题

S=1-2*X^2/3!+4*X^4/5!-6*X^6/7!~~~~~~~~~~
x,n为输入 INputBOX
然后输出
谢谢了

Answer 1

Arcctg(X)*Pai/180在VB中表示为(Atn(X) + 2 * Atn(1))*pi/180
cos(x)是VB自带函数，直接使用即可
lg(x)在VB中表示为log(x)/log(10)

关于“数学函数”说明：
Abs 函数 求绝对值
Atn 函数 求反正切
Cos 函数 求余弦
Exp 函数 自然对数e的某次方
Fix 函数 大于或等于number的第一个整数
Int 函数 绝对值大于或等于number而正负与number相同的第一个整数
Log 函数 求自然对数（以e为底）
Rnd 函数 得到一个随机数
Sgn 函数 指出参数的正负号
Sin 函数 求正弦
Sqr 函数 求平方根
Tan 函数 求正切
以上函数中的三角函数均以弧度为单位，弧度＝角度*pi/180，由以上函数可推导出其他所有的三角、指数、对数函数
函数 由基本函数导出之公式
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))
Hyperbolic Secant （双曲正割） HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant（双曲余割） HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent（双曲余切） HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sine（反双曲正弦） HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine（反双曲余弦） HArccos(X) = Log(X + Sqr(X * X - 1))
Inverse Hyperbolic Tangent（反双曲正切） HArctan(X) = Log((1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant（反双曲正割） HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Inverse Hyperbolic Cotangent （反双曲余切） HArccotan(X) = Log((X + 1) / (X - 1)) / 2
以 N 为底的对数 LogN(X) = Log(X) / Log(N)
参考资料：微软MSDN

Answer 2

Private Sub Command1_Click()
Dim x, n As Integer
x = Int(InputBox("输入X值", "X"))
n = Int(InputBox("输入X值", "N"))
Dim i As Integer
Dim S As Double
S = 1
a = 1

For i = 1 To n

tmp = 1
For j = 1 To i * 2 + 1
tmp = tmp * j
Next j

tmp2 = 1
For t = 1 To i * 2
tmp2 = tmp2 * x
Next t
a = a * -1

S = S + i * 2 * tmp2 / tmp * a
Next i

Print "S= " & Format(S, "0.00000")

End Sub