[填空题] 在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1

[填空题] 在窗体上画一个名为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer

Sum=0

n=InputBox("Enter a number")

n=Val(n)

For i=1 To n

sum=______

Next i

Print Sum

End Sub Function fun(t As Integer)As Long

P=1

For i=1 To t

p=P*i

Next i

______

End Function

以上程序的功能是，计算1! +2! +3! +…+n!，其中n从键盘中输入，请填空。

Sum+fun(i)(或fun(i)+Sum)fun=p

在自定义函数中返回值应使用语句：过程名=表达式。 调用函数并应使用语句：变量名=函数名(参数列表)。 本题中自定义函数名为fun，调用该函数时的参数为循环变量i，即fun(i)，故第一个空处应填入的累加表达式为Sum+fun(i)；在自定义函数fun中应将累乘积作为函数返回值，故第二个空处应填入fun=p。