阅读程序：

Option Base 1

Private Sub Form_Click（）

D．im a（3）As Integer

Print "输入的数据是：";

F．or i = 1 To 3

a（i）=InputBox（"输入数据"）

Print a（i）;

Next

Print

If a（1）

t = a（1）

a（1）= a（2）

a（2）= ________

E．nd If

If a（2）>a（3）Then

m = a（2）

E．lseIf a（1）>a（3）Then

m = ________

E．lse

m = ________

E．nd If

Print "中间数是：";m

E．nd Sub

程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

[单选题]阅读程序Option Base 1Private Sub Form_Click（）D．im arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）F．or i=1 To 10If arr（i）/3 = arr（i）/3 ThenSum = Sum + arr（i）E．nd IfNext iPrint SumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15

[单选题]有如下程序：Option Base 1Private Sub Form_Click（）D．im arr, SumSum = 0arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）F．or i = 1 To 10If arr（i） / 3 = arr（i） / 3 ThenSum = Sum + arr（i）E．nd IfNext iPrint SumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．25B．26C．27D．28

[单选题]阅读程序：Option Base 1D．im arr（） As IntegerPrivate Sub Form_Click（）D．im i As Integer, j As IntegerReDim arr（3, 2）F．or i = 1 To 3F．or j = 1 To 2arr（i, j） = i * 2 + jNext jNext iReDim Preserve arr（3, 4）F．or j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2）

[试题]阅读下面的程序：Private Sub Form_Click（）D．im Check As Boolean, Counter As IntegerC．heck = TrueC．ounter = 5D．oD．o While Counter < 20C．ounter = Counter + 1If Counter = 10 ThenC．heck = FalseE．xit DoE．nd IfLoopLoop Until Check = FalsePrint CounterE．nd Sub程序运行后

[单选题]阅读下面的程序： 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

[单选题]阅读程序：Private Sub Command1_Click()A．=0F．or j=1 to 15a=a+j mod 3Next jPrint aE．nd Sub程序运行后，单击窗体，输出结果是A． ）105B．)1C．)120D．)15

[单选题]阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15

[单选题]阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A．13B．14C．27D．15

[单选题]阅读程序： Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为( )。A．13B．14C．27D．15

[单选题]阅读程序：Private Sub Commandl一Click()D．im arrD．im i AS Integerarr=Array(0，1, 2，3，4，5，6，7,8，9，10)F．or i=0 To 2Print arr(7-i)；NextE．nd Sub程序运行后，窗体上显示的是：A．8 7 6B．7 6 5C．6 5 4D．5 4 3