控制结构与数组.docx
《控制结构与数组.docx》由会员分享，可在线阅读，更多相关《控制结构与数组.docx（31页珍藏版）》请在冰豆网上搜索。
控制结构与数组
控制结构与数组
（总分：
176.00，做题时间：
90分钟）
一、选择题
（总题数：
51，分数：
102.00）
1.以下说法不正确的是______。
（分数：
2.00）
A.使用ReDim语句可以改变数组的维数
B.使用ReDim语句可以改变数组的类型 √
C.使用ReDim语句可以改变数组每一维的大小
D.使用ReDim语句可以对数组中的所有元素进行初始化
解析：
2.有如下程序：
a=1:
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
运行后，输出的结果是______。
（分数：
2.00）
A.16 √
B.3
C.6
D.8
解析：
3.下列程序段的执行结果为______。
x=6
Fork=1To10Step-2
x=x+k
Nextk
Printk：
x
（分数：
2.00）
A.-16
B.-116
C.16 √
D.1131
解析：
4.如下程序运行后输出的结果是
x=0
Fork=3To5
x=x+2
s=s+x
Nextk
Prints
（分数：
2.00）
A.3
B.12 √
C.6
D.9
解析：
5.下面程序段的执行结果为______。
I=4
A=5
Do
I=I+1
A=A+2
LoopUntilI＞=7
Print"I="：
I
Print"A="：
A
（分数：
2.00）
A.I=4
A=5
B.I=7
A=13
C.I=8
A=7
D.I=7
A=11 √
解析：
6.有如下程序：
Form=1To4
a=0
Forj=1To5
a=1
Fork=1To6
a=a+3
Nextk
Nextj
Nextm
Printa
运行后输出的结果是______。
（分数：
2.00）
A.18
B.19 √
C.90
D.360
解析：
7.下述程序段中，与其他3个程序段作用不同的是______。
（分数：
2.00）
A.s=0
i=0
Whilei＞100
s=s+i
Wend √
B.s=0
i=0
Whilei＜100
i=i+1
Wend
C.s=0
i=1
DoWhilei＜100
s=s+1
Loop
D.s=0
i=0
DoUntili＞100
s=s+1
Loop
解析：
8.在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。
PrivateSubCommand1_Click（）
x=0
DoUntilx=-1
a=Val（InputBox（"请输入A的值"））
b=Val（InputBox（"请输入B的值"））
x=Val（InputBox（"请输入X的值"））
a=a+b+x
Loop
Printa
EndSub
（分数：
2.00）
A.2 √
B.3
C.14
D.15
解析：
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Dima（10，10）AsInteger
Fori=1To3
Forj=1To3
a（i，j）=（i-1）*3+j
Printa（i，j）;
Nextj
Print
Nexti
EndSub
程序运行后，单击命令按钮，窗体上显示的是______。
（分数：
2.00）
A.123
246
369
B.234
345
456
C.147
258
369
D.123
456
789 √
解析：
10.下列语句正确的是______。
（分数：
2.00）
A.Ifx≠不yThenPrint"x不等于y"
B.Ifx＜＞yThenPrint"x不等于y" √
C.Ifx＞＜yThenPrint"x不等于y"
D.Ifx＜＞yPrint"x不等于y"
解析：
11.下述程序的运行结果是______。
j=0
DoWhilej＜30
j=（j+1）*（j+2）
k=k+1
Loop
Printk;j
（分数：
2.00）
A.01
B.3182 √
C.3030
D.430
解析：
12.使用语句DimA（1To10）AsInteger声明数组A之后，以下说法正确的有______。
（分数：
2.00）
A.A数组中的所有元素值为0
B.数组中的所有元素值不确定
C.A数组中的所有元素值为Empty
D.执行EraseA后，A数组中的所有元素值为Null √
解析：
13.有如下程序：
a=0
Forj=1To20Step2
a=a+j/5
Nextj
Printa
运行后，输出的结果是______。
（分数：
2.00）
A.12
B.16 √
C.40
D.100
解析：
14.下列程序的输出结果为______。
PrivateSubCommand1_Click（）
Dima（20）
Forj=1To20Step2
a（j）=j
Nextj
Printa
（1）+a
（2）+a（3）
EndSub
（分数：
2.00）
A.4 √
B.5
C.6
D.7
解析：
15.设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是
（分数：
2.00）
A.命令按钮的所有Caption属性都是Command1
B.在代码中访问任意一个命令按钮只需要使用名称Command1 √
C.命令按钮的大小都相同
D.命令按钮共享相同的事件过程
解析：
16.有如下程序：
x=-5
s=InputBox（"inputvalueofs:
"）
SelectCasex
Casex
y=x+1
CaseIs=0
y=x+2
CaseElse
y=x+3
EndSelect
Printx;y
运行时，从键盘输入-5，输出的结果是______。
（分数：
2.00）
A.-5-2
B.-5-4 √
C.-5-3
D.-5-5
解析：
17.设有如下程序：
OptionBase0
PrivateSubForm_Click（）
Dima
DimIAsInteger
a=Array（1,2,3,4,5,6,7,8,9）
Fori=0To3
Printa（5-i）;
Next
EndSub
程序运行后，单击窗体，则在窗体上显示是______。
（分数：
2.00）
A.4321
B.5432
C.6543 √
D.7654
解析：
18.以下______是VisualBasic合法的数组元素。
（分数：
2.00）
A.X9
B.X（9） √
C.X（I+1）
D.X[6]
解析：
19.下列程序的输出结果是______。
Dima
a=Array（1,2,3,4,5,6,7,8）
i=0
Fork=100To90Step-2
s=a（i）^2
Ifa（i）＞3ThenExitFor
i=i+1
Nextk
Printk;a（i）;s
（分数：
2.00）
A.88636
B.8812
C.9024
D.94416 √
解析：
20.下列程序的运行结果是______。
s=0:
t=0:
u=0
Forx=1To3
Fory=1Tox
Forz=yTo3
s=s+1
Nextz
t=t+1
Nexty
u=u+1
Nextx
Prints;t;u
（分数：
2.00）
A.3614
B.1463 √
C.1436
D.1643
解析：
21.语句Dimabc（-2To4,0To4,5）AsLong定义的三维数组，其数组元素有______。
（分数：
2.00）
A.96个
B.112个
C.140个
D.210个 √
解析：
22.设a=6，则执行x=IIf（a＞5,-1,0）后，x的值为______。
（分数：
2.00）
A.5
B.6
C.0
D.-1 √
解析：
23.下面的数组声明语句中______是正确的。
（分数：
2.00）
A.DimA[3,4]AsInteger
B.DimA（3,4）AsInteger √
C.DimA[3;4]AsInteger
D.DimA（3;4）AsInteger
解析：
24.下列程序段的执行结果为______。
n=0
Fori=1To3
Forj=5To1Step-1
n=n+1
Nextj，i
Printn;j;i
（分数：
2.00）
A.1204
B.1504 √
C.1231
D.1531
解析：
25.在窗体上画3个单选按钮，组成一个名为chkOption的控件数组。
用于标记各个控件数组元素的参数是______。
（分数：
2.00）
A.Tag
B.Index √
C.ListIndex
D.Name
解析：
26.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
OptionBase0
PrivateSubCommand1_Click（）
DimCityAsVariant
city=Array（"北京"，"上海"，"天津"，"重庆"）
Printcity
（1）
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
（分数：
2.00）
A.空白
B.错误提示
C.北京
D.上海 √
解析：
27.设有数组声明语句：
OptionBase1
DimA（2，-1To1）
以上语句所定义的数组A为______维数组，共有______个元素，第一维下标从______到______，第二维下标从______到______。
（分数：
2.00）
A.1,2,6,2,-1,1
B.6,2,1,2,-1,1
C.2,6,1,2,-1,1 √
D.2,1,6,-1,1,2
解析：
28.下列语句组中，不能实现循环100次的有
（分数：
2.00）
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
解析：
29.执行以下Command1的Click事件过程，在窗体上显示______。
OptionBase0
PrivateSubCommand1_Click（）
Dima
a=Array（"a","b","c","d","e","f","g"）
Printa
（1）;a（3）;a（5）
EndSub
（分数：
2.00）
A.abc
B.bdf √
C.ace
D.出错
解析：
30.下列程序输出结果为______。
PrivateSubCommand1_Click（）
DimaAsBoolean
a=True
IfaThenGoToL1ElseGoToL2
L1:
Print"VB"
L2:
Print"VC"
EndSub
（分数：
2.00）
A.VB
B.VC
C.VB
VC √
D.出错!
解析：
31.下列程序段的执行结果为______。
DimA（4）
n=3
A
（1）=1
Fork=0Ton-1
For1=1Tok+1
X=k+2-1
A（X）=A（X）+A（X-1）
Ifk＜n-1ThenExitFor
PrintA（X）;
Next1
Nextk
（分数：
2.00）
A.121
B.123 √
C.246
D.131
解析：
32.有如下程序：
infocase$=InputBox（"Inputoneletter:
"）
SelectCaseinfocase$
Case"a"
grade$="Verygood"
Case"b"
grade$="good"
Case"c"
grade$="OK"
Case"d"
grade$="Qualified"
CaseElse
grade$="Bad"
EndSelect
Printgrade$
运行时从键盘上输入英文小写字母d后，输出的结果是______。
（分数：
2.00）
A.Verygood
B.Good
C.Bad
D.Qualified √
解析：
33.下述程序的功能是______。
x="（（a+B）*
（分数：
2.00）
A.-（a*b+C）"
n=Len（x）
m=0
Fork=1Ton
p$=Mid（x,k,1）
Ifp$="（"Then
m=m-1
Elselfp$="）"Then
m=m+1
EndIf
Ifm＞0Then
Print":
-p"
EndIf
Nextk
Print":
-）"A）统计输入的字符串中括号的总数
B.统计输入的字符串中匹配的括号的对数
C.检查输入的字符串中的括号是否能够匹配 √
D.删除字符串的括号
解析：
34.如果A为整数且|A|＞=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式If语句是______。
（分数：
2.00）
A.IfInt（A）=AAndSqr（A）＞=100ThenPrint"OK"ElsePrint
B.lfFix（A）=AAndAbs（A）＞=100ThenPrint"OK"ElsePrint √
C.IfInt（A）=AAnd（A＞=100,A＜=-100）ThenPrint"OK"ElsePrint
D.IfFix（A）=AAndA＞=100AndA＜=-100ThenPrint"OK"ElsePrint
解析：
35.下述程序的输出结果是______。
x=0
Fori=0To1
x=x+1
Forj=0To3
IfNot（jMod2）Thenx=x+1
Nextj
Nexti
Print"x="：
x
（分数：
2.00）
A.x=12
B.x=10 √
C.x=8
D.x=6
解析：
36.下述语句的运行结果是______。
Dima
i=0
a=Array（1,-2,9,0,-1,9）
Do
K=a（i）
Form=10TokStep-2
n=k+m
Nextm
Printn+m
i=i+1
LoopWhileAbs（m+n）＜＞27
（分数：
2.00）
A.3-827 √
B.327-8
C.-8273
D.-8327
解析：
37.有如下程序：
a$="122345876"
d$=Left$（a$，1）
Fori=2ToLen（a$）;
z$=Mid$（a$，i，1）
Ifz$＞d$Thend$=z$
Nexti
Printd$
运行后，输出的结果是______。
（分数：
2.00）
A.1
B.7
C.4
D.8 √
解析：
38.下列程序的执行结果是______。
s=0
i=1
DoWhilei＜=100
s=s+i
Loop
PrintS
（分数：
2.00）
A.5050
B.505
C.死循环，无输出 √
D.无穷大的数
解析：
39.有如下程序：
Dimarr（3,3）
Forj=1To3
Fork=1To3
arr（j,k）=（j-1）*3+k
Nextk
Nextj
Forj=2To3
Fork=2To3
Printarr（k,j）;
Nextk
Print
Nextj
运行后，输出的结果是______。
（分数：
2.00）
A.25
36
B.58
69 √
C.47
58
D.59
68
解析：
40.下列程序段的执行结果为______。
K=0
ForJ=1To2
ForI=1To3
K=I+1
NextI
ForI=1To7
K=K+1
NextI
NextJ
PrintK
（分数：
2.00）
A.10
B.6
C.11 √
D.16
解析：
41.设有数组声明语句：
OptionBase0
Dimb（-1To10,2To9,20）AsInteger
则数组B中共有______个元素。
（分数：
2.00）
A.1800
B.1848
C.2016 √
D.2310
解析：
42.使用ReDimPreserve可以改变数组的
（分数：
2.00）
A.最后一维的大小 √
B.第一维的大小
C.所有维的大小
D.改变维数和所有维的大小
解析：
43.下列程序段的执行结果为______。
x=Int（Rnd+4）
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case5
Print"合格"
CaseElse
Print"不合格"
EndSelect
（分数：
2.00）
A.优秀
B.良好 √
C.合格
D.不合格
解析：
44.在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
PrivateSubCommand1_Click（）
s=0
Fori=1To15
x=2*1-1
IfxMod3=0Thens=s+1
Nexti
Label1.Caption=s
EndSub
程序运行后，单击命令按钮，则标签中显示的内容是______。
（分数：
2.00）
A.1
B.5 √
C.27
D.45
解析：
45.下列程序的功能是：
依次将列表框List2中的项目移入列表框List1中，并将列表框List2中移走的项目删除，给程序的空白行选择适当的语句。
______
List1.AddltemList2.List（0）
List2.ReMoveltem0
Loop
（分数：
2.00）
A.DoUntilList2.ListCount
B.DoWhileList2.ListCount √
C.DoUntilList1.ListCount
D.DoWhileList1.ListCount
解析：
46.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
n=InputBox（""）
Fori=1Ton
Forj=1Toi
x=x+1
Nextj
Nexti
PrintX
EndSub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。
（分数：
2.00）
A.3
B.4
C.5
D.6 √
解析：
47.有如下程序，运行后输出的结果是______。
j=0:
n=0
DoWhilen＜3
j=（j+1）*（j+2）
n=n+1
Loop
Printj;n
（分数：
2.00）
A.01
B.1823 √
C.304
D.33
解析：
48.有如下程序：
Forx=1To3
PrintTab（3*x）;22*x
Nextx
运行后，输出的结果是______。
（分数：
2.00）
A.22
44
66
B.22
44
66
C.22
44
66 √
D.224466
解析：
49.下列程序的执行结果是______。
a=75
Ifa＞90Theni=4
Ifa＞80Theni=3
Ifa＞70Theni=2
Ifa＞60Theni=1
Print"i="：
i
（分数：
2.00）
A.i=1 √
B.1=2
C.i=3
D.i=4
解析：
50.有如下程序：
Constn=-5:
ConstM=6
Dima（nToM）
Fori=Lbound（a,1）ToUbound（a,1）
a（i）=i
Nexti
Printa（Lbound（a,1））;a（Ubound（a,1））
运行后输出结果为______。
（分数：
2.00）
A.00
B.-50
C.-56 √
D.06
解析：
51.语句Dimarr（-3To5，2To6）AsInteger定义的数组元素有______。
（分数：
2.00）
A.45个 √
B.40个
C.11个
D.54个
解析：
二、填空题
（总题数：
24，分数：
74.00）
52.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
PrivateSubCommand1_Click（）
Dima（5）
Fori=0To4
a（i）=i+1
t=i+1
Ift=3Then
Printa
升级会员 