VB编程用两种不同的方法求1+1/1！+1/2！+1/3！+…+1/n!

你第2项是什么意思？
Private Sub Command1_Click()
For n = 1 To 50
s1 = 1
For m = 1 To n
s1 = s1 * m
Next
s2 = s2 + 1 / s1
Next
MsgBox s2
End Sub

Private Sub Command2_Click()
n = 1
Do While n <= 50 '这里可以改成你结束循环的条件。。
s1 = 1: m = 1
Do While m <= n
s1 = s1 * m
m = m + 1
Loop
n = n + 1
s2 = s2 + 1 / s1
Loop
MsgBox s2
End Sub

0分?
给你答一个,加分再来给你答
1
dim a(49)
dim sum=0
dim j=1
for i=0 to 49
a(i)=1/j
j=j*(i+2)
sum=sum+a(i)
next
msgbox sum

1238

12937