题目内容

下面程序运行后,单击命令按钮,输出的结果是
Private Sub Command1_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

查看答案

搜索结果不匹配？点我反馈

更多问题

A. Rice
B. Soup
C. Salad
Dessert

At an art gallery
B. In front of a library
C. In front of a staircase
D. In the Canadian countryside

A calendar
B. A cookbook
C. A tote bag
D. A yearly planner

A. The speaker will bring water.
B. The speaker will take the order.
C. The speaker will give out menus.
D. The speaker will bring the appetizers.