VB多项式求和 S=x + x^3/3!+…+x^(2n-1)/(2n-1)!

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 07:31:52
VB多项式求和 S=x + x^3/3!+…+x^(2n-1)/(2n-1)!

VB多项式求和 S=x + x^3/3!+…+x^(2n-1)/(2n-1)!
VB多项式求和 S=x + x^3/3!+…+x^(2n-1)/(2n-1)!

VB多项式求和 S=x + x^3/3!+…+x^(2n-1)/(2n-1)!
Private Sub Command1_Click()
s = 0
x = InputBox("输入x的值")
n = InputBox("输入n的值")
Print x,n
For i = 1 To 2 * n - 1 Step 2
p = 1
For j = 1 To i
p = p * j
Next j
s = s + (x ^ i) / p
Next i
Print s
End Sub