[單項(xiàng)選擇題] 閱讀程序：

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

程序運(yùn)行后，單擊窗體，輸出結(jié)果是( )。

A．35

B．31

C．33

D．37

C

本題中的fac函數(shù)的功能是計(jì)算形參n的階乘值并且返回這個(gè)階乘的值，由于函數(shù)使用的是值傳遞的形式，因此形參的改變不會影響到實(shí)參的值。在窗體的Click事件中用一個(gè)循環(huán)來依次計(jì)算2、3、4的階乘并累加。累加和變量nsum的初值為1，因此nsum的最終值就是1+2!+3!+4!=33。