[单项选择题] 有如下事件过程，单击命令按钮扣，输出结果是　　 Private Sub Command1 Click( )　　　　Dim b% (1 To4) ,j%, t#　　　　For j=1 T

[单项选择题] 有如下事件过程，单击命令按钮扣，输出结果是　　 Private Sub Command1 Click( )　　　　Dim b% (1 To4) ,j%, t#　　　　For j=1 To 4　　　　　　b(j) =j　　　　Next j　　　　t=Tax(b( ) )　　　　Print "t="; t,　　 End Sub　　 Function Tax (a( ) As Integer)　　　　Dim t#, i%　　　　t=1　　　　For i=2 To UBound (a)　　　　　　t=t * a(i)　　　　　　Next i　　　　　　Tax=t　　 End Function

A．t=18

B．t=24

C．t=30

D．t=32

B

解析：程序开始调用循环语句对数组b( )赋值，b(j)=j，且数组b的上下界分别为1和4；接着将数组b( )作为对象，调用Tax过程，在Tax过程中，定义了两个变量t即i，i作为For循环的循环变量，初始值为2，终值为数组b的上界；循环体为“t=t * a(i)”，即将b(i)的值乘以t，然后在赋给t，当循环结束后，程序返回的就是数组b中除第一个元素以外所有元素值的乘积，此题的结果为2×3×4=24，故输出结果为t=24。