分别用FOR和DO循环语句求1!+2!+···+n!的值1、使用Form_Click()事件过程； 2、利用InputBox函数输入n的值； 3、利用Msgbox过程输出结果.

分别用FOR和DO循环语句求1!+2!+···+n!的值1、使用Form_Click()事件过程； 2、利用InputBox函数输入n的值； 3、利用Msgbox过程输出结果.
分别用FOR和DO循环语句求1!+2!+···+n!的值
1、使用Form_Click()事件过程；
 2、利用InputBox函数输入n的值；
 3、利用Msgbox过程输出结果.

分别用FOR和DO循环语句求1!+2!+···+n!的值1、使用Form_Click()事件过程； 2、利用InputBox函数输入n的值； 3、利用Msgbox过程输出结果.
Private Sub Form_Click()
Dim n As Long,m,k,j As Long,i As Long
On Error GoTo err
n = InputBox("请输入一个整数：")
m = 0
For j = 1 To n
k = 1
For i = 1 To j
k = k * i
Next
m = m + k
Next
MsgBox m
err:
End Sub
Private Sub Form_Click()
Dim n As Long,m,k,j As Long,i As Long
On Error GoTo err
n = InputBox("请输入一个整数：")
m = 0
Do Until n = 0
k = 1
i = n
Do Until i = 0
k = k * i
i = i - 1
Loop
m = m + k
n = n - 1
Loop
MsgBox m
err:
End Sub