控制结构与数组.docx
- 文档编号:4319211
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:31
- 大小:24.03KB
控制结构与数组.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
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
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 控制 结构 数组