份二级VB真题附参考答案.docx
《份二级VB真题附参考答案.docx》由会员分享，可在线阅读，更多相关《份二级VB真题附参考答案.docx（16页珍藏版）》请在冰豆网上搜索。
份二级VB真题附参考答案
（考试时间90分钟，满分100分）
一、 选择题（
（1）~（35）每小题2分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）数据的存储结构是指
A）存储在外存中的数据B）数据所占的存储空间量
C）数据在计算机中的顺序存储方式D）数据的逻辑结构在计算机中的表示
（2）下列关于栈的描述中错误的是
A）栈是先进后出的线性表B）栈只能顺序存储
C）栈具有记忆作用D）对栈的插入与删除操作中，不需要改变栈底指针
（3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是
A）冒泡排序为n/2B）冒泡排序为n
C）快速排序为nD）快速排序为n（n-1）/2
（4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为
A）log2nB）n/2C）nD）n+1
（5）下列对于线性链表的描述中正确的是
A）存储空间不一定是连续，且各元素的存储顺序是任意的
B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面
C）存储空间必须连续，且前件元素一定存储在后件元素的前面
D）存储空间必须连续，且各元素的存储顺序是任意的
（6）下列对于软件测试的描述中正确的是
A）软件测试的目的是证明程序是否正确
B）软件测试的目的是使程序运行结果正确
C）软件测试的目的是尽可能多地发现程序中的错误
D）软件测试的目的是使程序符合结构化原则
（7）为了使模块尽可能独立，要求
A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
（8）下列描述中正确的是
A）程序就是软件
B）软件开发不受计算机系统的限制
C）软件既是逻辑实体，又是物理实体
D）软件是程序、数据与相关文档的集合
（9）数据独立性是数据库技术的重要特点之一。
所谓数据独立性是指
A）数据与程序独立存放
B）不同的数据被存放在不同的文件中
C）不同的数据只能被对应的应用程序所使用
D）以上三种说法都不对
（10）用树形结构表示实体之间联系的模型是
A）关系模型B）网状模型C）层次模型D）以上三个都是
11、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是：
A）PrivateSubText1_Change（）
Command1.Caption=”计算机等级考试”
EndSub
B）PrivateSubCommand1_Click（）
Caption=”计算机等级考试”
EndSub
C）PrivateSubForm1_Click（）
Text1.Caption=”计算机等级考试”
EndSub
D）PrivateSubCommand1_Click（）
Text1.Text=”计算机等级考试”
EndSub
（12）设a=5,b=4,c=3,d=2，下列表达式的值是
3>2*bOra=cAndb<>cOrc>d
A）1 B）True C）False D）2
（13）设a=”MicrosoftVisualBasic”,则以下使变量b的值为”VisualBasic”的语句是
A）b=Left（a,10）
B）b=Mid（a,10）
C）b=Right（a,10）
D）b=Mid（a,11,10）
（14）假定有如下的窗体事件过程：
PrivateSubForm_Click（）
a$="MicrosoftVisualBasic"
b$=Right（a$,5）
c=Mid（a$,1,9）
MsgBoxa$,34,b$,c$,5
EndSub
程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：
A）MicrosoftVisual
B）Microsoft
C）Basic
D）5
（15）设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=IIF（（ad）,”A”,”B”）后，x的值为：
A）”a”
B）”b”
C）”B”
D）”A”
（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是
A）Command1.Move-200
B）Command1.Move200
C）Command1.Left=Command1.Left+200
D）Command1.Left=Command1.Left-200
（17）在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubForm_Click（）
x=InputBox（"请输入一个整数"）
Printx+Text1.Text
EndSub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：
A）123
B）456
C）579
D）123456
（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。
以下是实现上述操作的程序：
PrivateSubCommand1_Click（）
Timer1._________
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time
EndSub
在______处应填入的内容是
A）Enabled=True
B）Enabled=False
C）Visible=True
D）Visible=False
（19）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：
A）选择图片框，然后按Del键
B）执行语句Picture1.Picture=LoadPicture（“”）
C）执行语句Picture1.Picture=””
D）选择图片框，在属性窗口中选择Picture属性，然后按回车键
（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是
A）PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
EndSub
B）PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
EndSub
C）PrivateSubList1_Click（）
Label1.Name=List1.Text
EndSub
D）PrivateSubList1_Click（）
Label1.Caption=List1.Text
EndSub
（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
EndSub
程序运行后，单击命令按钮，其输出结果为
A）9
B）6
C）12
D）15
（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
c="ABCD"
Forn=1To4
Print_________
Next
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在________处应填入的内容为
A）Left（c,n）
B）Right（c,n）
C）Mid（c,n,1）
D）Mid（c,n,n）
（23）执行以下程序段
DimxAsInteger,iAsInteger
x=0
Fori=20To1Step-2
x=x+i\5
Nexti
后，x的值为
A）16
B）17
C）18
D）19
（24）在VisualBasic工程中，可以作为启动对象的程序是
A）任何窗体或标准模块
B）任何窗体或过程
C）SubMain过程或其他任何模块
D）SubMain过程或任何窗体
（25）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是
A）数组中每个命令按钮的名称（名称属性）均为Command1
B）数组中每个命令按钮的标题（Caption属性）都一样
C）数组中所有命令按钮可以使用同一个事件过程
D）用名称Command1（下标）可以访问数组中的每个命令按钮
（26）把窗体的KeyPreview属性设置为True,然后编写如下事件过程:
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
DimchAsString
ch=Chr（KeyAscii）
KeyAscii=Asc（UCase（ch））
PrintChr（KeyAscii+2）
EndSub
程序运行后,按键盘上的”A”键,则在窗体上显示的内容是
A）A
B）B
C）C
D）D
（27）在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
PrivateSubCommand1_Click（）
a=InputBox（"请输入日期（1~31）"）
t="旅游景点:
"_
&IIf（a>0Anda<=10,"长城",""）_
&IIf（a>10Anda<=20,"故宫",""）_
&IIf（a>20Anda<=30,"颐和园",""）
Text1.Text=t
EndSub
程序运行后,如果从键盘输入16,则在文本框中显示的内容是:
A）旅游景点：
长城故宫
B）旅游景点：
长城颐和园
C）旅游景点：
颐和园
D）旅游景点：
故宫
（28）在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
PrivateSubForm_Click（）
Dimarr（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr（i,j）=i*j
Nextj
Nexti
Label1.Caption=Str（arr（2,2）+arr（3,3））
EndSub
程序运行后,单击窗体,在标签中显示的内容是
A）12
B）13
C）14
D）15
（29）在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
PrivateFunctionfun（ByValmAsInteger）
IfmMod2=0Then
fun=2
Else
fun=1
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun（i）
Next
Prints
EndSub
程序运行后,单击命令按钮,则窗体上显示的是:
A）6
B）7
C）8
D）9
（30）阅读程序:
OptionBase1
Dimarr（）AsInteger
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
ReDimarr（3,2）
Fori=1To3
Forj=1To2
arr（i,j）=i*2+j
Nextj
Nexti
ReDimPreservearr（3,4）
Forj=3To4
arr（3,j）=j+9
Nextj
Printarr（3,2）+arr（3,4）
EndSub
程序运行后,单击窗体,输出结果为:
A）21
B）13
C）8
D）25
（31）在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click（）
DimcAsInteger,dAsInteger
d=0
c=6
x=Array（2,4,6,8,10,12）
Fori=1To6
Ifx（i）>cThen
d=d+x（i）
c=x（i）
Else
d=d-c
EndIf
Nexti
Printd
EndSub
程序运行后,如果单击命令按钮,则在窗体上输入的内容为
A）10
B）16
C）12
D）20
（32）设有如下程序:
PrivateSubCommand1_Click（）
DimcAsInteger,dAsInteger
c=4
d=InputBox（"请输入一个整数"）
DoWhiled>0
Ifd>cThen
c=c+1
EndIf
; d=InputBox（"请输入一个整数"）
Loop
Printc+d
EndSub
程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:
A）12
B）11
C）10
D）9
（33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:
MicrosoftVisualBasicProgramming
然后编写如下事件过程:
PrivateSubCommand1_Click（）
Open"d:
empoutf.txt"ForOutputAs#1
Fori=1ToLen（Text1.Text）
c=Mid（Text1.Text,i,1）
Ifc>="A"Andc<="Z"Then
Print#1,LCase（c）
EndIf
Nexti
Close
EndSub
程序运行后,单击命令按狃,文件outf.txt中的内容是:
A）MVBP
B）mvbp
C）M
V
B
P
D）m
v
b
p
（34）在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
DimSWAsBoolean
Functionfunc（XAsInteger）AsInteger
IfX<20Then
Y=X
Else
Y=20+X
EndIf
func=Y
EndFunction
PrivateSubCommand1_Click（）
DimintNumAsInteger
intNum=InputBox（""）
IfSWThen
Printfunc（intNum）
EndIf
EndSub
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
SW=False
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
SW=True
EndSub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:
A）输出0
B）输出25
C）输出45
D）无任何输出
（35）设有如下通用过程:
PublicSubfun（a（）AsInteger,xAsInteger）
Fori=1To5
x=x+a（i）
Next
EndSub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click（）
Dimarr（5）AsInteger,nAsInteger
Fori=1To5
arr（i）=i+i
Next
funarr,n
Text1.Text=Str（n）
EndSub
程序运行后,单击命令按钮,则在文本框中显示的内容是
A）30
B）25
C）20
D）15
二、填空题（每空2分，共30分）
请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
注意：
以命令关键字填空的必须拼写完整。
（1）某二*树中度为2的结点有18个，则该二*树中有【1】个叶子结点。
（2）在面向对象方法中，类的实例称为【2】。
（3）诊断和改正程序中错误的工作通常称为【3】。
（4）在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。
（5）问题处理方案的正确而完整的描述称为【5】。
（6）以下语句的输出结果是:
【6】
PrintInt（12345.6789*100+0.5）/100
（7）在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
PrivateSubForm_Click（）
Text1.Text="VB程序设计"
EndSub
PrivateSubText1_Change（）
Picture1.Print"VBProgramming"
EndSub
程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】
（8）阅读下面的程序
PrivateSubForm_Click（）
DimCheckAsBoolean,CounterAsInteger
Check=True
Counter=5
Do
DoWhileCounter<20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
EndIf
Loop
LoopUntilCheck=False
PrintCounter
EndSub
程序运行后,单击窗体,输出结果是【9】
（9）设有如下程序
PrivateSubForm_Click（）
DimaAsInteger,sAsInteger
n=8
s=0
Do
s=s+n
n=n-1
LoopWhilen>0
Prints
EndSub
以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】
（10）设有如下程序:
OptionBase1
PrivateSubCommand1_Click（）
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array（12,435,76,-24,78,54,866,43）
Min=【12】arr1
（1）
Fori=2To8
Ifarr1（i） Nexti
Print"最小值是:
";Min
EndSub
以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空
升级会员 