下面程序段,运行后的结果是 Private Sub Command1_Click Dim b%(1 To 4), i%, t# For i=1 To 4 b(i) =i Next t=Tof(b() )

admin2010-11-20  46

问题 下面程序段,运行后的结果是
Private Sub Command1_Click
Dim b%(1 To 4), i%, t#
    For i=1 To 4
       b(i) =i
    Next
    t=Tof(b() )
    Print "t="; t,
End Sub
Function Tof(a() As Integer)
Dim t#, i%
    t=1
    For i=2 To UBound(a)
         t=t  a(i)
    Next
    Tof=t
End Function

选项 A、t=18
B、t=24       
C、t=30
D、t=32

答案B

解析 程序调用循环语句对数组b()赋值,b(i)=i,且数组b的上下界分别为1和4;接着将数组b()作为对象,调用Tof过程,在Tof过程中,定义了两个变量t和i,i作为For循环的循环变量,初始值为2,终值为数组b的上界;循环体为"t=ta(i)",即将b(i)的值乘以t,然后在赋给t,当循环结束后,程序返回的就是数组b中除第一个元素以外所有元素值的乘积2×3×4=24,本题为输出结果为t=24。
转载请注明原文地址:https://jikaoti.com/ti/H7g0FFFM
0

最新回复(0)