2. 计算机
  3. 阅读程序： Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n te

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

admin2011-10-24  49
问题 阅读程序：
    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://jikaoti.com/ti/WHO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)