PrintA（X）；
Next1
Nextk
A.121B・123C・246D・131
12、卜•列程序的输出结果为o
PrivateSubCommandl_Click（）
Dima（20）
Forj=1To20Step2
a（j）=j
Nextj
Printa
（1）+a
（2）+a（3）
EndSub
A.4B.5C.6D.7
13、使用ReDimPreserve可以改变数组的
A.最后一维的大小B.第一维的大小
C.所有维的大小D.改变维数和所有维的大小
14、下列程序段的执行结果为。
K=0
ForJ=1To2
For1=1To3
K=I+1
NextI
For1=1To7
K=K+1
NextI
NextJ
PrintK
A.10B・6C.11D.16
15、卜•列程序段的执行结果为o
x=Int（Rnd+4）
SelectCasex
Case5
Print”优秀"
Case4
Print"良好”
Case5
Print”合格”
CaseElse
Print"不合格"
EndSelect
A.优秀B.良好C.合格D.不合格
16、有如下程序:
Forx=lTo3
PrintTab（3*x）；22*x
Nextx
运行后，输出的结果是O
A・22
44
66
B・22
44
66
C・22
44
66
D・224466
17、有如下程序：
a=0
Forj=lTo20Step2
a=a+j\5
Nextj
Printa
运行后，输出的结果是。
A.12B・16C.40D・100
18、有如下程序：
a=l:
b=2:
c=3
a=a+b：
b=b+c:
c=b+a
Ifa<>3Orb<>3Then
a=b-a：
b=c-a：
c=b+a
EndIf
Printa+b+c
运行后，输出的结果是O
A.16B.3C・6D.8
19、有如下程序：
a$="122345876n
d$=Left$（a$,1）
Fori=2ToLen（a$）;
z$=Mid$（a$,i,1）
Ifz$>d$Thend$=z$
Nexti
Printd$
运行后，输出的结果是o
A.1B.7C.4D.8
20、有如卜•程序：
infocase$=InputBox（"Inputoneletter:
n）
SelectCaseinfocase$
Case"a"
grade$="Verygood"
Case"b"
grade$="good"
CaseHc"
grade$=nOK"
CaseHd"
grade$="Qualified"
CaseElse
grade$=nBadn
EndSelect
Printgrade$运行时从键盘上输入英文小写字母d后，输出的结果是O
A.VerygoodB.GoodC・BadD.Qualified
21、如果A为整数>=100,则打卬、'OK〃，否则打卬''Error",表示这个条件的单行格式工壬语
句是o
A.IfInt（A・=AAndSqr（A.>=100ThenPrint"OK"ElsePrint"Error"
B.IfFix（A.=AAndAbs（A.>=100ThenPrint"OK"ElsePrint"Error"
C.IfInt（A.=AAnd（A>=100,A<=-100）ThenPrint"OK"ElsePrint"Errorn
D.IfFix（A.=AAndA>=100AndA<=-100ThenPrint"OK"ElsePrint"Error'*
22、下面程序段的执行结果为o
1=4
A=5
Do
1=1+1
A=A+2
LoopUntilI>=7
Print"I="：
I
Print"A="：
A
A.1=4
A=5
B.1=7
A=13
C・1=8
A=7
D.1=7
A=ll
23、有如下程序，运行后输出的结果是o
j=0:
n=0
DoWhilen<3
j=（j+1）*（j+2）
n=n+l
Loop
Printj；n
A.01B・1823C・304D・33
24、下列程序段的执行结果为。
n=0
Fori=lTo3
Forj=5To1Step-1
n=n+l
Nextj,i
Printn；j；i
A.1204B・1504C.1231D・1531
25、下列语句正确的是o
A.IfxH不yThenPrint"x不等于y”B.Ifx<>yThenPrint"x不等于y”
C.Ifx>yPrint"x4s等于y”
26、下列程序的执行结果是。
a=75
If
a>90
Then
i=4
If
a>80
Then
i=3
If
a>70
Then
i=2
If
a>60
Then
i=l
PrintHi=
":
i
A.i=lB.1=2C・i=3D.i=4
27、卜•列程序的执行结果是o
s=0
i=l
DoWhilei<=100
s=s+i
Loop
PrintS
A.5050B.505C.死循环，无输出D.无穷大的数
28、有如下程序：
x=-5
s=InputBox（11inputvalueofs：
n）
SelectCasex
Casex
y=x+l
CaseIs=0
y=x+2
CaseElse
y=x+3
EndSelect
Printx；y
运行时，从键盘输入-5,输出的结果是o
A.-5-2B.-5-4C.-5-3D.-5-5
29、卜•列程序段的执行结果为o
x=6
Fork=lTo10Step-2
x=x+k
Nextk
Printk：
x
A.6B.-116C.16D.1131
30、有如下程序：
Form=lTo4a=0
Forj=lTo5
a.=l
Fork=lTo6
a=a+3
Nextk
Nextj
Nextm
Printa
运行后输出的结果是o
A.18B.19C.90D・360
31、下列语句组中，不能实现循环100次的冇
A.N=0
Do
N=N+1
LoopUntilN>=100
B・N=0
Do
N=N+1
LoopWhilen<100
C・N=0
Do
N=N+1
LoopUntilN<100
D.N=0
DoWhilen<100
N=N+1
Loop
32、下述程序的输岀结果是o
x=0
Fori=0To1
x=x+l
Forj=0To3
IfNot（jMod2）Thenx=x+lNextj
Nexti
Printnx=":
x
A.x=12B.x=10
C・x=8D・x=6
34、下列程序输岀结果为o
PrivateSubCommandl_Click（）DimaAsBoolean
a=True
IfaThenGoToLIElseGoToL2
LI:
Print"VBn
L2:
Print“VC”
EndSub
A.VBB.VC
C.VB
VC
D・出错！
35、在窗体上1间一个名称为Commandl的命令按钮，然后编写如下事件过程:
PrivateSubCommandl_Click（）
x=0
n=InputBox（""）
Fori=lTon
Forj=lToi
x=x+l
Nextj
Nexti
PrintX
EndSub
程序运行后，单击命令按钮，如果输入3,则在窗体上显示的内容是。
A.3B.4
C.5D.6
36、在窗体上1師一个名称为Commands的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
PrivateSubCommandl_Click（）
s=0
Fori=lTo15
x=2*1-1
IfxMod3=0Thens=s+l
Nexti
Labell.Caption=s
EndSub
程序运行后，单击命令按钮，则标签屮显示的内容是o
A.1B・5
C・27D・45
37^使用语句DimA（1To10）AsInteger声明数组A之后，以下说法正确的有。
A.A数组中的所有元素值为0
B.数组屮的所冇元素值不确定
C.A数组中的所有元素值为Empty
D.执行EraseA后，A数组屮的庙有元素值为Null38、设冇数组声明语句：
OptionBase1
DimA（2,-1To1）
以上语句所定义的数组A为
维数组，
共冇
个元素，第一维下标从
到
第二维下标从到
O
A.1,2,6,2,-1,1
B.6,2,
lz2,•
-1,1
C.2,6,1,2,-1,1
D.2,1,
6,-1,
1,2
39、以下是VisualBasic合法的数组元素。
A.X9・X（9）
C・X（I+1）D・X[6]
40、下列程序的输出结果是。
Dimaa=Array（1,2z3z4,5,6,7z8）
i=0
Fork=100To90Step-2
s=a（i）入2
Ifa（i）>3ThenExitFor
i=i+l
Nextk
Printk；a（i）；s
A.88636B.8812
C.9024D・94416
41、设用复制、粘贴的方法建立了一个命令按钮数组Commandl,以下对该数组的说法错误的是
A.命令按钮的所有Caption属性都是Commandl
B.在代码屮访问任&一个命令按钮只需要使用名称Command1
C・命令按钮的大小都相同
42、语句Dimarr（-3To5,2To6）As:
[nteger定义白勺数组元素冇
A.45个B.40个
C.11个D.54个
43、执行以下Commandl的Click事件过程，在窗体上显示。
OptionBase0
PrivateSubCommandl_Click（）
Dima
a=Array（"a","b1'z"c","d","enz"fnz"g"）
Printa
（1）；a（3）;a（5）
EndSub
A.abcB.bdf
C.aceD.出错
44、有如下程序:
Constn=-5：
ConstM=6
Dima（nToM）
Fori=Lbound（a,1）ToUbound（a,1）
a（i）=i
Nexti
Printa（Lbound（az1））；a（Ubound（a,1））运行后输出结果为o
A.00B・-50
C・-56D・06
45、设有数组声明语句：
OptionBase0
Dimb（-1To10,2To9,20）AsInteger则数组B中共有个元索。
A.1800B.1848
C.2016D.2310
46、以卜•说法不止确的是。
A.使用ReDim语句可以改变数组的维数
B.使用ReDim语句可以改变数组的类型
C.使用ReDim语句可以改变数组每一维的大小
D.使用ReDim语句可以对数组中的所冇元索进行初始化
47、在窗体上画一个名称为Commands的命令按钮，然后编写如卜'程序：
PrivateSubCommandl_Click（）
DimiAsInteger,jAsInteger
Dima（10,10）AsInteger
Fori=lTo3
Forj=lTo3
a（i,j）=（i-1）*3+j
Printa（i,j）；
Nextj
Print
Nexti
EndSub程序运行后，单击命令按钮，窗体上显示的是。
A.123
246
369
B.234
C.147
258
369
D.123
456
789
48、设有如卜•程序：
OptionBase0
PrivateSubForm_Click（）
Dima
DimIAsIntegera=Array（1,2,3,4z5z6,7,8,9）
Fori=0To3
Printa（5-i）;
Next
EndSub
程序运行后，单击窗体，则在窗体上显示是o
A.4321B.5432
C.6543D.7654
49、在窗体上画3个单选按钮，组成一个名为chkOption的控件数组。
用于标记各个控件数组元素
的参数是o
A.TagB.Index
C.ListindexD.Name
50、在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：
OptionBase0
PrivateSubCommandl_Click（）
DimCityAsVariantcity=Array（"北京“，"上海”,“天津”,”重庆"）Printcity
（1）
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是。
A.空ClB.错误提示
C.北京D.上海
51、下列程序的功能是：
依次将列表框List2中的项目移入列表^Listl中，并将列表框List2中移走的项目删除，给程序的空口行选择适当的语句。
Listl.AdditemList2.List（0）
List2.ReMoveItem0
Loop
A.DoUntilList2.ListCountB.DoWhileList2.ListCountC.DoUntilListl.ListCountD.DoWhileListl.ListCount
二、填空题
52、在窗体上画一个命令按钮（其Name属性为Commandl）,然后编写如下代码：
PrivateSubCommandl_Click（）
Dima（5）
Fori=0To4
a（i）=i+l
t=i+l
Ift=3Then
Printa（i）
a（t-1）=a（1-2）
Else
a（t）=a（i）
53、
54、
55、
56.
Endif
Ifi=3Thena（i+1）=a（t-4）
a（4）=l
Printa（i）
Nexti
EndSub
程序运行后，单击命令按钮，输出结果是O
在窗体上画一个命令按钮，然后编写如下程序：
FunctionM（xAsInteger,yAsInteger）AsInteger
M=IIf（x>yzx,y）
EndFunction
PrivateSubCommandl_Click（）
DimaAsinteger,bAsinteger
a=1
b=2
PrintM（a,b）
EndSub
程序运行后，单击命令按钮，输出结果为O
执行下面的程序段后，S的值为O
s=5
Fori=2・6To4.9Step0.6
s=s+l
Nexti
卜•面的程序是用冒泡法将数组a中的10个整数按升序排列，并将程序补充完整。
PrivateSubCommandl_Click（）
Dima
DimTmpAsInteger
a=Array（678,45,324z528,439,387z87z875,273Fori=
Forj=
Ifa（i）a（j）Then
Tmp=a（i）
a（i）=a（j）
a（j）=Tmp
EndIf
Nextj
Nexti
Fori=0To9
Printa（i）
Nexti
EndSub
执行下列程序，输入数字3,则输出结果为o
PrivateSubCommandl_Click（）
a=InputBox（"InputaNumber"）
Ifa>5Then
GoToL5
Elselfa>2Then
GoToL2
Else
GoToL3
EndIf
ExitSub
L5：
PrintaMod5
ExitSub
823）
L3：
PrintaMod3
ExitSub
L2:
PrintaMod2
EndSub
57、以卜•程序的目的是将多维数组a（1Tom,1Ton）中的元素转移到一个名为b（ITon*m）的一维数组中，完成该程序。
OptionBase1
PrivateSubCommandl_Click（IndexAsInteger）
Dima（1ToDimb（）ReDim
20,
1To
Fori=l
To
20
For
j=l
To
10
a（i,
j）=
术j
Nextj
Nexti
Tranaz
20
z10b
End
Sub
Sub
Tran（a（）,mzn
b（））
DimiAsInteger
For
i=lTo
m
Forj=1
To
n
=a（i，
j）
Nextj
Nexti
EndSub
58、下列程序是将数组a的元索倒序交换，即第丄个变为最后一个，第2个变为倒数第2个，设数组
升级会员 