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