有下列程序，程序运行后单击命令按钮，则输出的结果为( )。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="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next i Factorial=tEnd Function