计算机等级考试二级VB笔试试题及答案Word格式.docx
《计算机等级考试二级VB笔试试题及答案Word格式.docx》由会员分享，可在线阅读，更多相关《计算机等级考试二级VB笔试试题及答案Word格式.docx（13页珍藏版）》请在冰点文库上搜索。
C）多对多
D）多对一
（9）数据库设计中反映用户对数据要求的模式是
A）内模式
B）概念模式
C）外模式
D）设计模式
（10）有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是
A）自然连接
B）交
C）投影
D）并
（11）在VisualBasic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是
A）
B）
C）
D）
（12）在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是
A）工程资源管理器窗口
B）属性窗口
C）工具箱窗口
D）代码窗口
（13）下列叙述中错误的是
A）列表框与组合框都有List属性
B）列表框有Selected属性，而组合框没有
C）列表框和组合框都有Style属性
D）组合框有Text属性、而列表框没有
（14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是
A）Name
B）Index
C）Caption
D）Left
（15）滚动条可以响应的事件是
A）Load
B）Scroll
C）Click
D）MouseDown
（16）设a=5,b=6,c=7,d=8，执行语句X=Ilf（（a＞b）And（c＞d）,10,20）后，x的值是
A）10
B）20
C）30
D）200
（17）语句PrintSgn（-6^2）+Abs（-6^2）+Int（-6^2）的输出结果是
A）-36
B）1
C）-1
D）-72
（18）在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图所示。
则命令按钮的Top属性值是
A）200
B）300
C）500
D）700
（19）在窗体上画一个名称为Commandl的命令按钮。
单击命令按钮时执行如下事件过程：
PrivateSubCommand1_Click（）
a$=”softwareandhardware"
b$=Right（a$，8）
c$=Mid（a$,1，8）
MsgBoxa$,，b$，c$,1
EndSub
则在弹出的信息框标题栏中显示的标题是
A）softwareandhardware
B）hardware
C）software
D）1
（20）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。
以下可以实现上述操作的事件过程是
A）PrivateSubText1_Change（）
Label1.Caption=Text1.Text
EndSub
B）PrivateSubLabel1_Change（）
Label1.Caption=Text1.Text
C）PrivateSubText1_Click（）
EndSub
D）PrivateSubLabel1_Click（）
（21）以下说法中错误的是
A）如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同
B）可以用多个命令按钮组成命令按钮数组
C）命令按钮只能识别单击（Click）事件
D）通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用
（22）以下关于局部变量的叙述中错误的是
A）在过程中用Dim语句或Static语句声明的变量是局部变量
B）局部变量的作用域是它所在的过程
C）在过程中用Static语句声明的变量是静态局部变量
D）过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放
（23）以下程序段的输出结果是
x=I
y=4
DoUntily＞4
x=x*y
Y=y＋I
Loop
Printx
A）1
B）4
C）8
D）20
（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是
A）InputBox（"
输入框”，”请输入VB数据”）
B）x=InputBox（"
C）InputBox（"
请输入VB数据”，”输入框”）
D）x=InputBox（"
（25）有如下事件过程：
PrivateSubFormClick（）
DimnAsInteger
x=0
n=InputBox（"
请输入一个整数”）
Fori=1Ton
Forj=1Toi
x=x＋I
Nextj
Nexti
程序运行后，单击窗体，女口果在输入对话框中输入：
，则在窗体上显示的内容是
A）13
B）14
C）15
D）16
（26）请阅读程序：
SubsubP（b（）AsInteger）
Fori=1To4
b（i）=2＊i
Dima（l
To
4）AsInteger
A（l）=5：
a
（2）=6：
a（3）=7：
a（4）=8
subPa（）
Printa（i）
运行上面的程序，单击命令按钮，则输出结果是
A）2
B）5
C）10
D）出错
4
6
12
6
7
14
8
8
16
（27）Fibonacci数列的规律是：
前2个数为1，从第3个数开始，每个数是它前2个数之和，即：
1，1，2,3,5,8,13,21，34,55,89,…。
某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True,否则返回False。
FunctionIsfab（xAsInteger）AsBoolean
DimaAsInteger,bAsInteger,cAsInteger,flagAsBoolean
flag=False
a=1：
b=I
DoWhilex＜b
c=a＋b
a=b
b=c
Ifx=bThenflag=True
Isfab=flag
EndFunction
测试时发现对于所有正整数x,函数都返回False,程序需要修改。
下面的修改方案中正确的是
A）把a=b与b=c的位置互换
B）把c=a+b移到b=c之后
C）把DoWhilex＜b改为DoWhilex＞b
D）把ifx=bThen
flag=True改为Ifx=aThen
flag=True
（28）在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dima$,b$，c$,k%
a="
ABCD”
b=”123456”
c="
"
k=1
DoWhilek＜=Len（a）Ork＜=Len（b）
Ifk＜=Len（a）Then
c=c＆Mid（a,k,1）
EndIf
Ifk＜=Len（b）Then
c=c＆Mid（b,k,1）
k=k＋1
Printc
运行程序，单击命令按钮，输出结果是
A）123456ABCD
B）ABCD123456
C）D6C5B4A321
D）AlB2C3D456
（29）请阅读程序：
PrivateSubForm_Click（）
m=1
Fori=4To1Step-1
PrintStr（m）；
m=m＋1
Print”＊”；
Print
程序运行后，单击窗体，则输出结果是
A）1****
B）4****
C）****
D）*
2***
3***
***
**
3**
2**
**
***
4*
1*
*
****
（30）在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：
PrivateSubCommandl_Click（）
Dima
a=Array（1,2,3,4）
I=3：
j=1
DoWhilei＞=0
s=s＋a（i）*j
i=i-1
j=j*10。
Prints
A）4321
B）123
C）234
D）1234
（31）下列可以打开随机文件的语句是
A）Open"
filel.dat"
Forlnpu'
tAs＃1
B）Open”filel.dat"
ForAppendAs＃1
C）Open”file1.dat"
ForOutputAs＃1
D）Open”file1.dat"
ForRandomAs＃1Len=20
（32）有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。
下面的事件过程中能正确实现这一功能的是
A）PrivateSubForm_Click（）
PopupMenucut
B）PrivateSubCommandlClick（）
PopupMenuedit
C）PrivateSubForm_Click（）
D）PrivateSubForm_lick（）
PopupMenupaste
（33）请阅读程序：
OptionBaseI
DimArr（4,4）AsInteger
Forj=ITo4
Arr（i,j）=（i-1）*2＋j
Fori=3To4
Forj=3To4
PrintArr（j,i）;
A）57
B）68
C）79
D）810
68
79
810
811
（34）一下面函数的功能应该是：
删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。
例如：
若str="
ABCDABCD"
ch="
B"
则函数的返回值为：
ACDACD"
Functiondelchar（strAsString,chAsString）AsString
DimkAsInteger,tempAsString,retAsString
ret="
Fork=1ToLen（str）
temp=Mid（str,k,1）
Iftemp=chThen
ret=ret＆temp
Nextk
delchar=ret
但实际上函数有错误，需要修改。
A）把ret=ret＆temp改为ret=temp
B）把Iftemp=chThen改为Iftemp＜＞chThen
C）把delchar=ret改为delchar=temp
D）把ret="
改为temp="
（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、TextI和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
DimSIAsString,S2AsString
PrivateSubFormLoad（）
Text1.Text="
Text2.Text="
Text1．Enabled=False
Text2．Enabled=False
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
S2=S2＆Chr（KeyCode）
PrivateSubForin_KeyPress（KeyAsciiAsInteger）
S1=S1＆Chr（KeyAscii）
PrivateSubCommandlClick
Textl.Text=Sl
Text2.Text=S2
S1="
S2="
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为
A）abc和ABC
B）空白
C）ABC和abc
D）出错
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。
（1）一个栈的初始状态为空。
首先将元素5，4，3，2，1依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为__【1】__。
（2）在长度为n的线性表中，寻找最大项至少需要比较___【2】___次。
（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有__【3】___个结点。
（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是_【4】__程序。
（5）数据库设计的四个阶段是：
需求分析，概念设计，逻辑设计和_【5】_。
（6）窗体上有一个名称为Combo1的组合框，
其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。
程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。
请填空。
OptionBase1
PrivateSubCommand1_Click（
DimcityAsVariant
city=_【6】_（"
北京"
，"
天津"
上海"
武汉"
重庆"
西宁"
）
Fori=_【7】_ToUBound（citv）
Combo1.Addltem_【8】_
Next
（7）窗体上有一个名称为Text1的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。
函数fun及命令按钮的单击事件过程如下，请填空。
PrivateSubCommand1_Click（）
DimxAsInteger
x=Val（InputBOX（"
输入数据"
））
Text1=Str（fun（x）+fun（x）+fun（x））
PrivateFunctionfun（ByRefnAsInteger）
IfnMod3=0Then
n=n+n
Else
n=n*n
_【9】_=n
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_
（8）窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。
Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。
运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。
以下是类型定义及程序，请填空。
PrivateTypePic
gNameAsString*10
‘物品名称
picFileAsString*20
‘物品图片的图片文件名
EndType
Dimp（4）AsPic，pRecAsPic
Open”Datal.txt"
ForRandomAs＃1_【11】_=Len（pRec）
Fori=0To4
Get＃1，i+l，P（i）
LIStI.AddItemp（i）.gNaine
Close＃1
PrivateSubListI-DbICIickO
Fori=OTo4
IfRTrim（List一List（i））=RTrim（_【12】_）Then
Picturel.，Picture=LoadPicture（p（i）．_【13】_）
ExitFor
（9）窗体上有一个名称为CD1的通用对话框。
通过菜单编辑器建立如图1所示的菜单。
程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：
G:
\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。
各菜单项的名称和标题等定义如下表。
以一下是单击“打开”菜单项的事件过程，请填空。
DimmnuCounterAsInteger
PrivateSubtnnuOpen_Click（）
CDI．Show0pen
IfCDI．FileName＜＞"
Then
Open_【14】_ForInputAs＃1
mnuCounter=mnuCounter+1
LoadFName（mnuCounter）
FName（mnuCounter）.Caption=CDI.FileName
FName（mnuCounter）._【15】_=True
答案：
升级会员 