下面程序运行后，单击命令按钮，输出的结果是Private Sub Command1_Click( )Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4a(i) =i Next For i = 2 To 6b(i) =i Next str 1 = YAG (a) str 2 = YAG (b) Print "str1 ="; 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 YAG=t End Function

A. str1=24 str2=720

B. str1=12 str2=360

C. str1=24 str2=180

D. str1=36 str2=720