谢公与人围棋。俄而，谢玄淮上信至。看书竟，默然无言，徐向局。客问淮上利害，答曰：“小儿辈大破贼。”意色举止，不异于常。（《世说新语？雅量第六》）

下面运行程序后，单击命令按钮，输出的结果是______。
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