阅读程序： Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n te

admin2011-10-24 71

问题阅读程序：
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的阶乘，单击事件中i的值分别取2，3，4，并对它们的阶乘求和为2+6+24=32，再加上nsum的值1，得33。因此本题答案为C)。

转载请注明原文地址:https://www.kaotiyun.com/show/j9hp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类