问题详情

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


请帮忙给出正确答案和分析，谢谢！