Question

s=1+1/2! +1/3!+.....+1/n!编写一个过程，计算表达式值，并在主程序中运行

Sub TJ(x As Integer, daoshu As Double)
Dim i As Integer
x = 1
For i = 1 To n
x = x * i
Next i
daoshu = 1 / x
End Sub

Private Sub Command1_Click()
Dim m As Integer, n As Double, s As Double
For i = 1 To n
n = Val(Text1.Text)
Call TJ(m, n)
s = s + n
Next i
Print "e=" & s

End Sub 请问此代码中有啥错误，希望大家可以帮忙修改一下。谢谢

Answer 1

Function TJ(n As Integer) As Double
Dim i As Integer
x = 1
For i = 1 To n
x = x * i
Next i
TJ = 1 / x
End Function

Private Sub Command1_Click()
Dim m As Integer, n As Integer, s As Double, i As Integer
n = Val(Text1.Text)
For i = 1 To n
s = s + TJ(i)
Next i
Print "e=" & s

End Sub

Answer 2

指南极