问题
单项选择题
阅读程序：
Function fac(ByVal n As Integer)As Integer
Dim temp As Integer
temp=1
For i%=1 To n
temp=temp*i%
Next i%
fac=temp
End Function
Private Sub Form_Click()
Dim nsum As Integer
nsum=1
For i%=2 To 4
nsum=nsum+fac(i%)
Next i%
Print nsum
End Sub
程序运行后，单击窗体，输出结果是( )。
A．35
B．31
C．33
D．37
答案
参考答案：C
解析： 本题中的fac函数的功能是计算形参n的阶乘值并且返回这个阶乘的值，由于函数使用的是值传递的形式，因此形参的改变不会影响到实参的值。在窗体的Click事件中用一个循环来依次计算2、3、4的阶乘并累加。累加和变量nsum的初值为1，因此nsum的最终值就是1+2!+3!+4!=33。