【单选题】

下面程序段，运行后的结果是()。

Private SubCommand1_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
A、t=18 B、t=24 C、t=30 D、t=32