A-A+
下面程序段 运行后的结果是 Private Sub Command1_Click() Dim
问题详情
下面程序段，运行后的结果是 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。
