填空题

下面运行程序后，单击命令按钮，输出的结果是______。
Private Sub Commandl_clck()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
Fori=1 To 4
a(i)=i
Nexti
For i=3 To 6
b(i)=i
Nexti
s1=YAS(a)
S2=YAS(b)
Printt"s1="；S1"S2="；s2
End Sub
FunctionYAS(a()AsInteger)
Dimt#，i%
t=1
For i=LBound(a)ToUBound(a)
t=t*a(i)
Nexti
YAS=t
End Funtoon