下面运行程序后，单击命令按钮，输出的结果是　【11】　。 　　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=YAS(A) 　　　s2=YAS(B) 　　　Print"s1="；s1；"s2="；s2 　　End Sub 　　Function YAS(a( )As Integer) 　　　Dim t#，i% 　　　t=1 　　　For i=LBound(A) To UBound(A) 　　　　t=t * a(i) 　　　Next i 　　　YAS=t 　　End Function