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