设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。

A．4 3 2 1

B．5 4 3 2

C．6 5 4 3

D．7 6 5 4

[单选题]设有如下程序：Private Sub Form_Click()D．im i As Integer，x As String,Y As Stringx=”ABCDEFG”F．or i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yE．nd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG

[单选题]设有如下程序：Private Sub Form_Click()D．im ary(1 To 5)As IntegerD．im i As IntegerD．im sum As IntegerF．or i=1 To 5ary(j)=i+1sum=sum+ary(i)Next 1Print sumE．ud Sub程序运行后，单击窗体，则在窗体上显示的是A．15B．16C．20D．25

[单选题]有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18

[单选题]有如下程序:Private Sub Form_Click()D．im i As Integer, Sum As IntegerSum=0F．or i=2 To 10If i Mod 2=0 And i Mod 3<>0 ThenSum=Sum+iE．nd IfNextPrint SumE．nd Sub程序运行后,单击窗体,输出结果为A．12B．30C．24D．18

[单选题]有如下程序： Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后，单击窗体，输出结果为( )。A．15 0B．20 -1C．1

[单选题]有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。A．15 0B．20

[单选题]有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A．12B．30C．24D．18

[单选题]有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2＜ ＞0 And i Mod 3=0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18

[单选题]程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。A．4 5B．12 120C．24 120D．24 60

[单选题]有如下程序：Private Sub Form_Click()D．im i As Integer，Sum As IntegerSum=0F．or i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iE．ndIfNextPrint SumE．nd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18