有如下程序：

Option Base 1

Private Sub Form_Click（）

D．im arr, Sum

Sum = 0

arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）

F．or i = 1 To 10

If arr（i） / 3 = arr（i） / 3 Then

Sum = Sum + arr（i）

E．nd If

Next i

Print Sum

E．nd Sub

程序运行后，单击窗体，输出结果为（ ）。

A．25

B．26

C．27

D．28

[主观题]阅读程序：Option Base 1Private Sub Form_Click（）D．im a（3）As IntegerPrint "输入的数据是：";F．or i = 1 To 3a（i）=InputBox（"输入数据"）Print a（i）;NextPrintIf a（1）t = a（1）a（1）= a（2）a（2）= ________E．nd IfIf a（2）>a（3）Thenm = a（2）E．lseIf a（1）>a（3）Thenm = ________E．ls

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

[单选题]有如下程序：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 IfNext iPrint sumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．12B．30C．24D．18

[主观题]设有如下程序：Private Sub Form_Click（）D．im n As Integer, s As Integern = 8s = 0D．os = s + nn = n - 1Loop While n > 0Print sE．nd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

[单选题]有如下程序：Private Sub Form_Click（）D．im Check, CounterC．heck = TrueC．ounter = 0D．oD．o While Counter < 20C．ounter = Counter + 1If Counter = 10 ThenC．heck = FalseE．xit DoE．nd IfLoopLoop Until Check = FalsePrint Counter, CheckE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A

[单选题]在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a+jnextjPrintaendsub程序运行后单击鼠标左键，输出的结果是( )A．1B．15C．90D．120

[主观题]设有如下程序：Option Base 1Private Sub Command1_Click（）D．im arr1D．im Min As Integer, i As Integerarr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）Min = ______F．or i = 2 To 8If arr1（i） < Min Then______NextPrint "最小值是："; MinE．nd Sub以上程序的功能是：用Array函数建立一个含有8

[单选题]设有如下程序Option Base 1Private Sub Command1_Click（）D．im a（10）As IntegerD．im n As Integern=InputBox（"输入数据"）If n<10 ThenC．all GetArray（a,n）E．nd IfE．nd SubPrivate Sub GetArray（b（）As Integer,n As Integer）D．im c（10）As Integerj=0F．or i=1 To nb（i）=CInt（Rnd

[单选题]假定有如下事件过程：Private Sub Form_Click（）D．im x As Integer, n As Integerx = 1n = 0D．o While x < 28x = x * 3n = n + 1LoopPrint x, nE．nd Sub程序运行后，单击窗体，输出结果是（ ）。A．81 4B．56 3C．28 1D．243 5

[单选题]假定有如下的窗体事件过程：Private Sub Form_Click（）a$ = "Microsoft Visual Basic"b$ = Right（a$, 5）c$ = Mid（a$, 1, 9）MsgBox a$, 34, b$, c$, 5E．nd Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ ）。A．Microsoft VisualB．MicrosoftC．BasicD．5