单项选择题

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