VB高手继续啊~~很急很急~~

来源：百度知道 编辑：UC知道 时间：2024/04/28 03:40:41
2.编写程序求级数s=1+x+x^2/2!+x^3/3!+x^4/4+.......的前100项之和,x通过用户输入。

Private Function jc(n As Integer) As Double
Dim result As Double
result = 1
For i = 1 To n
result = result * i
Next
jc = result
End Function

Private Sub Form_Click()
Dim n As Double
Dim sum As Double
Dim i As Integer
x = InputBox("请输入x的值", "输入框")
For i = 0 To 100
n = x ^ i / jc(i)
sum = sum + n
Next
Print "所求的值为：" & sum
End Sub