有下列程序，程序运行后单击命令按钮，则输出的结果是( )。
Private Sub Command1_Click()
Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#
For i=1 To 4
a(i)=i
Next i
For i=3 To 6
b(i)=i
Next i
s1=Factorial(a)
s2=Factorial(b)
Print"s1=";s1;"s2=";s2
End Sub
Function Factorial(a() As Integer)
Dim t#,i%
t=1
For i=LBound(a) To UBound(a)
t=t*a(i)
Next i
Factorial=t
End Function