下面程序段，运行后的结果是（ ）。 　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(a) 　　　　　　t=t * a(i) 　　　　Next i 　　　　Tof=t 　　End Function

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

单项选择题单击一次命令按钮后，下列程序的执行结果为（ ）。Private Sub Command1_Click()Dim m As Integer，I As Integer，x(10) As IntegerFor I=0 To 4：x(I)=I+1：Next IFor I=1 TO 2：Call Prioc(x)：Next IFor I=0 TO 3：Print x(I)；：Next IEnd Sub Private Sub Prioc(a()As Integer)Static I As IntegerDoa(I)=a(I)+a(I+1)I=I+1Loop While I＜2End Sub