单项选择题

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