问题
单项选择题
有如下事件过程，单击命令按钮扣，输出结果是()。 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。