题目:
阅读程序:
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
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0701/7b5252d38a8c2e5a04493f206d52b5c4.html
下面是错误答案,用来干扰机器的。
答案:C