![[填空题] 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click() Dim s As Long,i As](http://www.mshxw.com/aiimages/31/254642.png "[填空题] 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click() Dim s As Long,i As")
[填空题] 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。
Private Sub Form_Click()
Dim s As Long,i As Integer
s=0
For i=1 To 10
s=s+ 【11】
Next i
Print s
End Sub
Private Function fact(ByVal n As Integer)As Long
Dim i As Integer,f As Long
f=1
For i=2 To n
f=f*i
Next i
【12】
End Function
参考答案：
[11]fact(i) [12]fact=f问题解析:
本题的函数过程fact的作用是求参数n的阶乘。函数中通过一个For循环把从2乘到n的值放在变量f中，f就是n的阶乘。n的阶乘应该作为函数值返回，VB规定，要想函数过程返回一个值，可把这个值直接赋给函数名。所以[12]处应填“fact=f”。在Form_Click事件中，通过一个For循环把1到10的阶乘加到变量s中，因此在该循环中应该调用Fact函数过程得到循环变量i的阶乘，故[11]处应填“fact(i)”。
