（ 25 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列程序：

Private Sub Command1_Click( )

D．im a ( 10 ) As Integer

D．im x As Integer

F．or i=1 To 10

a(i)=8+i

Next

x=2

Print a(f(x)+x)

E．nd Sub

F．unction f(x As Integer)

x=x+3

f=x

E．nd Function

程序运行后，单击命令按钮，输出结果为（ ）。

A． ） 12

B． ） 15

C． ） 17

D． ） 18

[试题]（ 7 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列事件过程：Private Sub Command1_Click( )D．im arr(1 To 100 ） As IntegerF．or i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr ( 1 )Min=arr ( 1 )F．or i=1 To 100If ( 7 ) ThenMax=arr(i)E．nd IfIf ( 8 ) ThenMin=arr(i)E．nd IfNext

[单选题]（ 31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：D．im Flag As BooleanPrivate Sub Command1_Click( )D．im intNum As IntegerintNum=InputBox(" 请输入 :")If Flag ThenPrint f(intNum)E．nd IfE．nd SubF．unction f(X As Integer)As IntegerIf X<10 ThenY=XE．lseY=X+10E．n

[单选题]（ 23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_Click( )a=0F．or i=1 To 2F．or j=1 To 4If j Mod 2<>0 Thena=a-1E．nd Ifa=a+1Next jNext iPrint aE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）。A． ） 0B． ） 2C． ） 3D． ） 4

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click（）D．im a（10）As IntegerD．im x As IntegerF．or i=1 To 10a（i）=8+iNextx=2Print a（f（x）+x）E．nd SubF．unction f（x As Integer）x=x+3f=xE．nd Function程序运行后，单击命令按钮，输出结果为（ ）。A．12B．15C．17D．18

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18

[主观题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）D．im arr（1 To 100）As IntegerF．or i=1 To 100arr（i）=Int（Rnd*1000）Next iMax=arr（1）Min=arr（1）F．or i=1 To 100If________ThenMax=arr（i）E．nd IfIf________ThenMin=arr（i）E．nd IfNext iPrint"Max="；

[单选题]在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是______。A．4321B．1234C．34D．12

[单选题]在窗体上画尸-个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 If i=1 Then x=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为： ______。A．1 2 3 4B．2 3 4 5C．2 3 4 4D．3 4 5 6

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写下列程序：Private Sub Command1_Click()F．or i=1 To 2F．or j=1 To iPrint String(i,"Hello")Next jPrintNext iE．nd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A)B)C)D．)HA．H HH HHB．H HHHHC．HHHHD．H

[单选题]（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：Option Base 1Private Sub Command1_Click()D．im aa = Array(1, 2, 3, 4)j = 1F．or i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sE．nd Sub程序运行后，单击命令按钮后，其输出结果是A． ） 4321B． ） 1234C． ） 34D． ） 12