南京工业大学vb期末复习3.docx
《南京工业大学vb期末复习3.docx》由会员分享，可在线阅读，更多相关《南京工业大学vb期末复习3.docx（32页珍藏版）》请在冰豆网上搜索。
南京工业大学vb期末复习3
1、单项选择题（本题共计49分）
1、执行下面的程序，单击窗体后在窗体上显示的结果是________。
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
2、下列语句中的语句可以用来正确地声明一个动态数组。
（）
A、PrivateA（n）AsInteger
B、DimA（）AsInteger
C、DimA（,）AsInteger
D、DimA（1ton）
3、在窗体上画一个命令按钮，名称为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
4、有如下程序：
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
5、下列程序：
PrivateSubForm_Click（）
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
运行后输出的结果是__________。
（）
A、1
B、15
C、90
D、120
6、下列程序
PrivateSubCommand1_Click（）
a=InputBox（"请输入"）
b=InputBox（"请输入"）
Printa+b
EndSub
运行时输入3和4输出的结果是________。
（）
A、7
B、34
C、3+4
D、出错
7、在窗体上画一个名称为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
8、在窗体上添加一个命令按钮，名为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
9、在窗体中添加一个命令按钮，并编写如下程序代码：
PrivateSubCommand1_Click（）
DimyAsInteger
y=0
DoWhiley<7
y=y+2
Loop
MsgBoxy
EndSub
程序运行后，消息对话框中显示__________。
（）
A、0
B、7
C、8
D、2
10、设有如下语句：
strl=InputBox（"输入","","练习"）从键盘上输入字符串"示例"后，strl的值是________。
（）
A、“输入”
B、“”
C、“练习”
D、“示例”
11、在单击窗体中的按钮Command1第3次后，如下程序打印结果是____。
PrivateSubCommand1_Click（）
StaticaASInteger
a=a+1
SelectCasea
Case1:
Print"欢迎大家"
Case2:
Print"努力就能成功
Case3:
Print"希望你能通过考试"
Case4:
Print"再见"
EndSelect
EndSub（）
A、“欢迎大家”
B、“努力就能成功”
C、"希望你能通过考试"
D、“再见”
12、下面是计算1~100奇数的和的程序，请补充完整，填空应为_______。
PrivateSubCommand1_Click（）
DimsAsLong,xAsInteger
s=0
Forx=____________Step-2
s=s+x
Nextx
Prints
EndSub（）
A、100To1
B、1To100
C、99To1
D、1To99
13、在窗体上建立3个文本框：
Text1、Text2、Text3，如果在Text1中输入200，在Text2中输入150，则执行下列程序段后，Text3的值为______。
DimmAsInteger,nAsInteger
m=Val（Text1）
n=Val（Text2）
Ifn*m=0ThenExitSub
Ifm<nThen
t=m:
m=n:
n=t
EndIf
Do
r=mModn
m=n
n=r
LoopWhiler<>0
Text3=m（）
A、200
B、150
C、100
D、50
14、
下列程序段的执行结果为____________。
x=Int（（69-60）*Rnd+60）
SelectCasex
CaseIs>=90
Print"优秀"
Case80To89
Print"良好"
Case60To79
Print"合格"
CaseElse
Print"不合格"
EndSelect
（）
A、优秀
B、良好
C、合格
D、不合格
15、假设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
16、下面程序的运行结果是________。
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
17、下面程序的内层循环次数是________。
Fori=1TO3
Forj=1TOi
Fork=jTO3
...
Nextk
Nextj
Nexti（）
A、3
B、14
C、9
D、21
18、下列程序运行后的输出结果是________。
PrivateSubCommand1_Click（）
Fori=1TO3
Forj=0TOi-1
k=k+1
nextj
nexti
printk
EndSub（）
A、6
B、5
C、4
D、3
19、结构化程序设计方法的核心是规定了三种基本结构：
________结构、分支结构、循环结构。
（）
A、条件
B、顺序
C、当型
D、逻辑
20、计算机算法可以分为两大类：
一类是________________算法，另一类是________________算法。
（）
A、计算机辅助设计、财务
B、数值计算、非数值计算
C、步骤管理、通信
D、排序、查找
21、下列循环能正常结束循环的是____________。
（）
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
22、下面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
23、在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码:
PrivateSubForm_Click（）
DimkAsInteger
DimentryAsString,itemAsString
entry="EDCBA"
Fork=Len（entry）To1Step-1
item=LCase（Mid（entry,k,1））&k
List1.AddItemitem
Nextk
EndSub
运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是_________。
（）
A、b4
B、b2
C、d3
D、d2
24、在过程中有语句ForI=N1ToN2StepN3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。
①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3（）
A、①②
B、①②③
C、③
D、①②③④
25、下列循环能正常结束循环的是____________。
（）
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
26、执行以下语句后，a的值为____________。
DimaAsInteger
a=1
DoUntila=100
a=a+2
Loop（）
A、99
B、100
C、溢出
D、101
27、表达式（-1）*sgn（-100+int（rnd*100））的值是__________.（）
A、0
B、1
C、-1
D、随机数
28、在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符________________，表示下一行是当前行的继续。
（）
A、一个空格加一个下划字符（_）
B、一个下划字符（_）
C、直接回车
D、一个空格加一个连字符（—）
29、在一个语句行内写多条语句时，语句之间应该用___________分隔。
（）
A、逗号
B、分号
C、顿号
D、冒号
30、下列叙述中不正确的是___________.（）
A、变量名的第一个字符必须是字母
B、变量名的长度不超过255个字符
C、变量名可以包含小数点或者内嵌的类型声明字符
D、变量名不能使用关键字
31、VisualBasic认为下面___________组变量是同一个变量。
（）
A、A1和a1
B、Sum和Summary
C、Aver和Average
D、A1和A_1
32、下列有关数组的说法中，不正确的是________。
（）
A、在窗体模块中不可以定义全局数据组
B、可以使用Erase语句释放所有数组所占据的存储储空间
C、语句DimX（3.6+2）AsInteger定义了一个维上界是6的一维的整型数组
D、形参数组的类型可以是定长符串类型
33、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
①PublicA（5）AsInteger
②PublicNAsInteger
③PublicStAsString
④Privateb（）AsInteger（）
A、2
B、3
C、4
D、1
34、对窗体编写如下代码：
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
35、在窗体上添加一个命令按钮，名为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
36、在窗体上画一个命令按钮，然后编写如下事件过程：
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
37、程序代码如下，当单击窗体上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
38、以下程序的输出结果是_________。
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger,p（3）AsInteger
k=5
Fori=1To10
a（i）=i
Nexti
Fori=1To3
p（i）=a（i*i）
Nexti
Fori=1To3
k=k+p（i）*2
Nexti
Printk
EndSub（）
A、33
B、28
C、35
D、37
39、当发生Command1_Click事件后，程序输出结果是________。
OptionBase1
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,iAsInteger,sAsInteger
s=0
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*4+j*2
Nextj
Nexti
Fori=1To4
s=s+a（i,i）
Nexti
Prints
EndSub（）
A、28
B、32
C、30
D、44
40、下列程序段的输出结果是____________。
DimiAsInteger
Dima（8）AsInteger
y=18:
i=0
Do
a（i）=yMod2
i=i+1
y=y\2
LoopUntily<1
Forj=i-1To0Step-1
Printa（j）;
Nextj（）
A、1000
B、10010
C、00110
D、10100
41、下列程序的输出结果是____________。
DimiAsInteger,kAsInteger
Dima（10）AsInteger,p（3）AsInteger
k=5
Fori=0To9
a（i）=i
Nexti
Fori=0To2
p（i）=a（i*（i+1））
Nexti
Fori=0To2
k=k+p（i）*2
Nexti
Printk（）
A、17
B、21
C、22
D、23
42、下列程序段的执行结果是________。
DimA（3,3）
ForM=1TO3
ForN=1TO3
IfN=MOrN=3-M+1Then
A（M,N）=1
Else
A（M,N）=0
EndIf
NextN
NextM
ForM=1TO3
ForN=1TO3
PrintA（M,N）;
NextN
Print
NextM（）
A、100
010
001
B、111
111
111
C、000
000
000
D、101
010
101
43、下列程序段的输出结果是________。
DimA（5）
ForI=0TO4
A（I）=I+1
M=I+1
IfM=3Then
A（M-1）=A（I-1）
Else
A（M）=A（I）
EndIf
IfI=3ThenA（I+1）=A（M-4）
PrintA（I）;
NextI（）
A、11122
B、21144
C、12245
D、22141
44、以下程序输出的结果是____________。
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、程序出错
45、如下数组声明语句，则数组a包含元素的个数有____________。
Dima（3,-2to2,5）（）
A、120
B、75
C、60
D、13
46、如下二维数组声明语句，____________正确。
（）
A、Dima[3，4]AsInteger
B、Dima（3，4）AsInteger
C、Dima（n，n）AsInteger
D、Dima（34）AsInteger
47、以下有关数组的说明中，错误的是________。
（）
A、根据数组说明的方式，可将数组分为动态数组和静态数组。
B、在过程中，不能用Private语句定义数组。
C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。
D、数组重新定维后，原有的数组元素内容将不予保留。
48、OptionBase1
PrivateSubCommand1_Click（）
Dima%（3,3）
Fori=1To3
Forj=1To3
Ifj>1Andi>1Then
a（i,j）=a（a（i-1,j-1）,a（i,j-1））+1
Else
a（i,j）=i*j
EndIf
Printa（i,j）;"";
Nextj
Print
Nexti
EndSub（）
A、123
231
323
B、123
123
123
C、123
246
36
升级会员 