vb02.docx
- 文档编号:24224519
- 上传时间:2023-05-25
- 格式:DOCX
- 页数:27
- 大小:20.39KB
vb02.docx
《vb02.docx》由会员分享,可在线阅读,更多相关《vb02.docx(27页珍藏版)》请在冰豆网上搜索。
vb02
vb02总分:
51分
-1.单项选择题
1.下列有关数组的说法中,不正确的是________。
A.在窗体模块中不可以定义全局数据组
B.可以使用Erase语句释放所有数组所占据的存储储空间
C.语句DimX(3.6+2)AsInteger定义了一个维上界是6的一维的整型数组
D.形参数组的类型可以是定长符串类型
(1分)得分0
2.执行下面的程序,单击窗体后在窗体上显示的结果是________。
PrivateSubForm_Click()
DimStrlAsString,Str2AsString,IAsInteger
Str1=”ab”
ForI=Len(Str1)To1Step-1
Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)
NextI
PrintStr1
EndSub
A.abce
B.abcd
C.abdb
D.abfd
3.在窗体模块的通用声明处用下面的语句声明变量、数组,正确语句有________个。
①PublicA(5)AsInteger
②PublicNAsInteger
③PublicStAsString
④Privateb()AsInteger
A.2
B.3
C.4
D.1
4.下列语句中的语句可以用来正确地声明一个动态数组。
A.PrivateA(n)AsInteger
B.DimA()AsInteger
C.DimA(,)AsInteger
D.DimA(1ton)
5.在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
DoWhileb<100
b=b+5
a=a+b
Ifb>20ThenExitDo
Loop
Printa,b
EndSub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是_________。
A.5020
B.7525
C.5025
D.7520
6.有如下程序:
PrivateSubCommand1_Click()
score=65
selectCasescore
CaseIs<60
a$="F"
Case60To69
a$="D"
Case70To79
a$="C"
Case80To89
a$="B"
Caseelse
a$="A"
EndSelect
MsgBoxa$
EndSub
程序运行后,消息对话框中显示的内容为_______。
A.A
B.B
C.C
D.D
7.下列程序:
PrivateSubForm_Click()
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
运行后输出的结果是__________。
A.1
B.15
C.90
D.120
8.对窗体编写如下代码:
OptionBase1
PrivateSubCommand1_Click()
a=Array(237,126,87,48,498)
m1=a
(1)
m2=1
Fori=2To5
Ifa(i)>m1Then
m1=a(i)
m2=i
EndIf
Nexti
Printm1;m2
EndSub
程序运行后,按回车键,输出结果为_________。
A.484
B.2371
C.4985
D.4984
9.存在如下程序:
PrivateSubCommand1_Click()
a=Val(InputBox(“请输入”))
b=Val(InputBox(“请输入”))
x=a+b
Ifa>bThen
x=a–b
endif
Printx
EndSub
运行后,从InputBox对话框中连续输入3和4,输出结果为_______。
A.3
B.34
C.7
D.0
10.在窗体上添加一个命令按钮,名为Command1,事件过程如下。
执行结果是________。
Subpb(b()AsInteger)
Fori=1To4
B(i)=2*i
Nexti
EndSub
PrivateSubCommand1_Click()
Dima(1To4)AsInteger
a
(1)=5:
a
(2)=6:
a(3)=7:
a(4)=8
pba
Fori=1To4
Printa(i);
Nexti
EndSub
A.2468
B.1357
C.36612
D.481216
11.下列程序
PrivateSubCommand1_Click()
a=InputBox("请输入")
b=InputBox("请输入")
Printa+b
EndSub
运行时输入3和4输出的结果是________。
A.7
B.34
C.3+4
D.出错
12.下面有关数组处理的叙述中,不正确的是_______。
①控件数组可由多个控件组成,这些控件具有相同的名字
②控件数组中的元素可以是不同类型的控件
③用ReDim语句重新定义动态数组时,不得改变该数组的数据类型
④可用Public语句在窗体模块的通用说明处定义一个全局数组
A.①②③④
B.②④
C.①②③
D.①③④
13.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
StaticAAsInteger
StaticBAsInteger
Cls
B=2
B=B+3
A=3+A
printA,B
EndSub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为___________。
A.35
B.66
C.95
D.33
14.在窗体画一个命令按钮,然后编写如下事件过程
PrivateSubCommand1_Click()
x=10
PrintIIf(x>5,1,5)
EndSub
运行后的输出结果________。
A.5
B.1
C.2
D.6
15.在窗体上添加一个命令按钮,名为Command1,一文本框,名为Text1,则执行如下事件过程后,文本框中的输出为______。
PrivateSubCommand1_Click()
Fori=1To4
x=3
Forj=1To3
Fork=1To3
x=x+3
Nextk
Nextj
Nexti
Text1.Text=Str(x)
EndSub
A.6
B.12
C.18
D.30
16.在窗体中添加一个命令按钮,并编写如下程序代码:
PrivateSubCommand1_Click()
DimyAsInteger
y=0
DoWhiley<7
y=y+2
Loop
MsgBoxy
EndSub
程序运行后,消息对话框中显示__________。
A.0
B.7
C.8
D.2
17.在窗体上画一个命令按钮,然后编写如下事件过程:
OptionBase1
PrivateSubCommand1_Click()
DimaAsVariant
a=Array(1,2,3,4)
j=1
Fori=4To1Step-1
s=s+a(i)*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序,单击命令按钮,其输出结果是_____________。
A.4321
B.12
C.34
D.1234
18.程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是_________。
OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger
Dimx(3,3)AsInteger
Fori=1To3
Forj=1To3
x(i,j)=(i-1)*3+j
Nextj
Nexti
Fori=1To3
Printx(i,4-i)
Nexti
EndSub
A.159
B.147
C.357
D.369
19.给出下面的程序
PrivateSubCommand1_Click()
DimCheck,Counter
Check=True:
Counter=0
Do
Counter=Counter+1
IfCounter=10ThenCheck=False:
ExitDo
LoopUntilCheck=False
MsgBoxCounter
EndSub
程序最后弹出的消息对话框的内容是_________。
A.True
B.False
C.20
D.10
20.设有如下语句:
strl=InputBox("输入","","练习")从键盘上输入字符串"示例"后,strl的值是________。
A.“输入”
B.“”
C.“练习”
D.“示例”
21.假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是________。
A.命令按钮的所有Caption属性都是Command1
B.在代码中访问命令按钮只需使用名称Command1
C.命令按钮的大小都相同
D.命令按钮共享相同的事件过程
22.假设X的值是5,则执行以下语句时,可得到的输出结果是ABCDEF的SelectCase语句是________。
A.SelectCaseX
Case10TO1
Print“ABCDEF”
EndSelect
B.SelectCaseX
CaseIs>15,Is<5
Print“ABCDEF”
EndSelect
C.SelectCaseX
CaseIs>5,1,3,TO10
Print“ABCDEF”
EndSelect
D.SelectCaseX
Case1,3,Is>5
Print“ABCDEF”
EndSelect
23.下面语句运行后的输出结果是________.
PrivateSubCommand1_Click()
x=0
DoWhilex<10
x=x+1:
x=x*x
Loop
Printx
EndSub
A.16
B.19
C.20
D.25
24.下面语句错误的是________。
A.Ifa=1Andb=2Then
c=3
EndIf
B.Ifa=1Then
c=2
ElseIfa=2Then
c=3
EndIf
C.Ifa=1Then
c=2
ElseIfa=2Then
c=3
EndIf
D.If(a=1,2,3)Thenc=2
25.下面程序的运行结果是________。
PrivateSubCommand1Click()
x=1:
y=1
Fori=1TO3
x=x+y:
y=y+x
Nexti
Printx;y
EndSub
A.66
B.58
C.1321
D.3435
26.下面程序的内层循环次数是________。
Fori=1TO3
Forj=1TOi
Fork=jTO3
...
Nextk
Nextj
Nexti
A.3
B.14
C.9
D.21
27.下列程序运行后的输出结果是________。
PrivateSubCommand1_Click()
Fori=1TO3
Forj=0TOi-1
k=k+1
nextj
nexti
printk
EndSub
A.6
B.5
C.4
D.3
28.结构化程序设计方法的核心是规定了三种基本结构:
________结构、分支结构、循环结构。
A.条件
B.顺序
C.当型
D.逻辑
29.算法应具备的特征有:
确定性、可行性、有穷性、_________性、________性。
A.输入、输出
B.确切无误、可以实现
C.步骤有限、确切无误
D.步骤有限、可以实现
30.求解超越方程的根、求定积分、解微方程属于________________算法。
A.非数值计算
B.通信
C.网络管理
D.数值计算
31.计算机算法可以分为两大类:
一类是________________算法,另一类是________________算法。
A.计算机辅助设计、财务
B.数值计算、非数值计算
C.步骤管理、通信
D.排序、查找
32.
OptionBase1
PrivateSubCommand1_Click
Dima,B(3,3)
a=Array(1,2,3,4,5,6,7,8,9)
ForI=1To3
Forj=1To3
B(I,j)=a(I*j)
If(I>=j)Then
PrintTab(j*3);Format(B(I,j),"###");
Nextj
NextI
EndSub
A.123
456
789
B.l
45
789
C.147
246
369
D.1
24
369
(1分)得分0
33.以下程序输出的结果是____________。
Dima
a=Array(1,2,3,4,5,6,7)
Fori=Lbound(a)ToUbound(a)
a(i)=a(i)*a(i)
Nexti
Printa(i)
A.49
B.0
C.不确定
D.程序出错
34.如下数组声明语句,则数组a包含元素的个数有____________。
Dima(3,-2to2,5)
A.120
B.75
C.60
D.13
35.如下二维数组声明语句,____________正确。
A.Dima[3,4]AsInteger
B.Dima(3,4)AsInteger
C.Dima(n,n)AsInteger
D.Dima(34)AsInteger
36.哪个程序段不能分别正确显示1、2、6、24的值____________。
A.Fori=1To4
n=1
Forj=1Toi
N=n*j
Nextj
Printn
Nexti
B.Fori=1To4
Forj=1Toi
n=1
n=n*j
Nextj
Printn
Nexti
C.n=1
Forj=1To4
N=n*j
Printn
Nextj
D.n=l
j=1
DoWhilej<=4
n=n*j
Printn
j=j+1
Loop
37.下列循环能正常结束循环的是____________。
A.i=5
Do
i=i+1
LoopUntili<0
B.i=1
Do
i=i+2
LoopUntili=10
C.i=10
Do
i=i+1
LoopUntili>0
D.i=6
Do
i=i-2
LoopUntili=1
38.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是____________。
A.Ifsex="男"Andage<40AndInStr(duty,"教授")>0Thenn=n+1
B.Ifsex="男"Andage<40and(duty="教授"orduty="副教授")Thenn=n+1
C.Ifsex="男"Andage<40AndRight(duty,2)="教授"Thenn=n+1
D.Ifsex="男"Andage=40Andduty="教授"Andduty="副教授"Thenn=n+1
(1分)得分1
39.下面程序段,显示的结果是____________。
Dimx
x=Int(Rnd)+5
selectCasex
Case5print"优秀"
Case4print"良好"
Case3print"通过"
CaseElseprint"不通过"
EndSelect
A.优秀
B.良好
C.通过
D.不通过
40.语句Ifx=1Theny=1,下列说法正确的是____________。
A.x=1和y=1均为赋值语句
B.x=1和y=l均为关系表达式
C.x=1为关系表达式,y=1为赋值语句
D.x=1为赋值语句,y=l为关系表达式
-2.填空题
1.下面的程序用"冒泡"法将数组a中的10个整数按升序排列,请将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dima,i,j,kAsInteger
a=Array(678,45,324,528,439,387,87,875,273,823)
Fori=_________
Forj=_________
Ifa(i)________a(j)Then
a1=a(j):
a(j)=a(i):
a(i)=a1
EndIf
Nextj
Nexti
fork=1To10
Printa(k);
Nextk
EndSub
答案:
(1),
(2),(3)
2.下面程序的功能是判断100~999之间的所有素数,所谓素数是指只能被1和它本身整除的数。
完善下列程序。
PrivateSubForm_Click()
DimiAsInteger
DimkAsinteger
Fori=100To999
Fork=2Toi-1
If________Then
_________
EndIf
Nextk
If________Then
Printi
EndIf
Nexti
EndSub
答案:
(1),
(2),(3)
3.若一个数的各因子之和正好等于该数本身,则该数称为完全数。
如6的因子为1,2,3,其和为6,则6为完全数。
编程找出1~100之间的所有完全数。
完善下列程序。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,iAsInteger
Fora=2To100
____
(1)_____
Forb=2Toa-1
IfaModb=0Then
c=b+c
EndIf
Nextb
If___
(2)___Then
Printa
EndIf
Nexta
EndSub
答案:
(1),
(2)
4.下面和程序功能是将一个由字母与数字相混的字符串中选出字符串,并把该字符串在窗体上打印出来,请完善下面程序。
OptionExplicit
PrivateSubCommand1_Click()
DimsAsString,kAsInteger
DimrAsString,iAsInteger,tAsString
s=“aa11bb22Cc33”
Fori=1ToLen(s)
t=_____
(1)_____
Ift>=“a”Andt<=“z”Ort>=“A”Andt<=“Z”Then
r=r&t
EndIf
Nexti
Printr
EndSub
答案:
(1)
5.求满足如下条件的三位数,它除以11所得的商等于各位数字的平方和。
例如:
550/11=50=5*5+5*5+0。
完善下列程序。
程序代码如下:
PrivateSubForm_Click()
DimaAsInteger,bAsInteger,cAsInteger,nAsInteger,jAsInteger
Fora=__
(1)__
Forb=0To9
Forc=0To9
n=__
(2)__
If(nMod11=0)And(n\11=a*a+b*b+c*c)Then
Printn;"/11=";n/11;"=";a*a;b*b;c*c
EndIf
Nextc
Nextb
Nexta
EndSub
答案:
(1),
(2)
答案:
bcbbbdbccabbabdcdcddbadbcb
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb02