【单选题】下面程序段,运行后的结果是 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) ...
【单选题】下面程序段,运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next 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 ...
【单选题】下面程序段,运行后的结果是 Private Sub Command1_Click Dim b%(1 To 4), i%, t# For i=1 To 4 b(i) =i Next 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) ...