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

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

2025-02-01 12:51:33

推荐回答（2个）

回答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

回答2：

指南极