心电轴的测量及意义

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