问题
单项选择题
下面程序段，运行后的结果是( )。
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。