下面程序运行后,单击命令按钮,输出的结果是【 】。Private Sub Commandl_Click( ) Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl#,str2# For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(a) str2 =YAG(b) Print"strl";str1;"str2=";str2 End Sub Function YAG (a()As Integer) Dim T#,i% t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG =t End Function