[单项选择题] 下面程序段，运行后的结果是（）。　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　　　　To_考试资料记录