![[单项选择题] 阅读程序： Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i%=1 To](http://www.mshxw.com/aiimages/31/258871.png "[单项选择题] 阅读程序： Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i%=1 To")
[单项选择题] 阅读程序：
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。
