谁能帮忙写一下VB“1+1/2！+1/3！+1/N！”怎么算啊

Dim t1#, fact#
Dim i%
n = Val(InputBox("输入数字"))
fact = 1
For i = 1 To n
fact = fact * i
t1 = t1 + 1 / fact
Next i

Print t1
貌似楼上的效率高一点.理解的话是我的比较容易

Private Sub Command1_Click()
Form1.Cls
Dim temp, a, t
temp = 0
a = Val(Text1)
t = 1
For i = 1 To a
t = t / i
temp = temp + t
Next
Print "结果是:" & temp
End Sub

这样就搞定了

如此简单的问题，我认为是不该出来问的。VB的学习首先要自己尽力去弄懂，而不是动不动就来这个地方来问。