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