单项选择题

下面程序段,运行后的结果是
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.