单选题 下面程序段，运行后的结果是

　Private Sub Commandl_Click( )

　　Dim b%(1 To 4)，i%，t#

　　For i=1 To 4

　　　b(i)=i

　　Next i

　　t=Tof(b( ) )

　　Print"t="；t，

　End Sub

　Function Tof(a() As Integer)

　　Dim t#，i%

　　t=1

　　For i=2 To UBound(

【正确答案】
【答案解析】解析：程序开始调用循环语句对数组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。