[填空题] 下面运行程序后，单击命令按钮，输出的结果是______。 Private Sub Commandl_clck() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s

[填空题] 下面运行程序后，单击命令按钮，输出的结果是______。

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