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

[填空题] 在窗体上画一个名为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= (13)

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

(14)

End Function

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

(13)Sum+fun(i) (14)fun=p

题中fun函数主要用来求解n!，然后由Command1_Click过程调用，并对n!(n=1，2，3，…)进行遍历相加求和，所以第[13]空应填写Sum+fun(i)，第[14]空应填写fun=p。