问题
填空题
在窗体上画一个名为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。