191问答库 > vb程序里计算1⼀1!+1⼀2!+1⼀3!+1⼀4!+......+1⼀n!？？？？！！

vb程序里计算1⼀1!+1⼀2!+1⼀3!+1⼀4!+......+1⼀n!？？？？！！

2024-11-14 15:03:06

推荐回答（3个）

回答1：

Private Sub Command1_Click()
n = Text1.Text
t = 1
For i = 1 To n
t = t * i
s = s + 1 / t
Next i
Text2.Text = s
End Sub

回答2：

一定有限定条件，不然会出错
比如：n<1000或 1/n!-1<=0.0000001等等

回答3：

Private Sub Command1_Click()
Dim n As Integer, tmp As Double, sum As Double
Dim i As Integer, j As Integer
n = 4
tmp = 1
For i = 1 To n
For j = 2 To i
tmp = tmp * j
Next
sum = sum + 1 / tmp
tmp = 1
Next
MsgBox sum

End Sub