[单项选择题] 阅读程序： Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i%=1 To

18 查阅

[单项选择题] 阅读程序：

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

参考答案:

本题中的fac函数的功能是计算形参n的阶乘值并且返回这个阶乘的值，由于函数使用的是值传递的形式，因此形参的改变不会影响到实参的值。在窗体的Click事件中用一个循环来依次计算2、3、4的阶乘并累加。累加和变量nsum的初值为1，因此nsum的最终值就是1+2!+3!+4!=33。