下面程序段,运行后的结果是()。 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(
单选题
下面程序段,运行后的结果是()。 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(