[填空题] 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“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

[填空题] 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“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)”。