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