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

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

(10)

End Function

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

fun=p

在命令按钮中，要计算前n个数的乘方和，[9]处填Sum+fun(i)。fun函数实现的是求一个数的阶乘，函数结束要返回计算结果，[10]处填fun=p。