4月全国计算机等级考试二级VB笔试试卷(2).doc

年4月世界打算机等级检验二级VB口试试卷
一、选择题(第小题2分,共70分〕
以下各题A〕、B〕、C〕、D〕四个选项中，只需一个选项是精确的。请将精确选项填涂在答题卡呼应位置上，答在试卷上不得分。
〔1〕以下表达中精确的选项是(B〕
A〕算法的效能只与征询题的范畴有关，而与数据的存储结构有关
B〕算法的时辰复杂度是指实行算法所需要的打算义务量
C〕数据的逻辑结构与存储结构是逐一对应的
D〕算法的时辰复杂度与空间复杂度肯定相关
〔2〕在结构化次第方案中，模块分不的原那么是(D〕
A〕各模块应包括尽管多的功能
B〕各模块的范畴应尽管大年夜
C〕各模块之间的联系应尽管紧密

D〕模块内存在高内聚度、模块间存在低耦合度
〔3〕以下表达中精确的选项是(A〕
A〕软件测试的要紧目的是觉察次第中的差错
B〕软件测试的要紧目的是判定次第中差错的位置
C〕为了提高软件测试的效能，最好由次第编制者自己来完成软件的测试义务
D〕软件测试是证明软件不差错
〔4〕下面选项中不属于面向东西次第方案特色的是(C〕
A〕承袭性B〕多态性C〕类比性D〕封装性
〔5〕以下对行列的表达精确的选项是(D〕
A〕行列属于非线性表
B〕行列按“提高后出〞原那么结构数据
C〕行列在队尾删除数据
D〕行列按“提高先出〞原那么结构数据 
〔6〕对以下二叉树(C〕
A

BC

DEFX

YZ

停顿前序遍历的结果为
A〕DYBEAFCZXB〕YDEBFZXCAC〕ABDYECFXZD〕ABCDEFXYZ
(7〕某二叉树中有n个度为2的结点,那么该二叉树中的叶子结点数为(A〕
A〕n+1B〕n-1 C〕2nD〕n/2
(8〕在以下关系运算中,不修改关系表中的属性个数但能添加元组个数的是(B〕
A〕并B〕交C〕投影D〕笛卡儿乘积
(9〕在E—R图中,用来表示实体之间联系的图形是(C〕
A〕矩形B〕椭圆形C〕菱形D〕平行四边形
(10〕以下表达中差错的选项是(A〕
A〕在数据库系统中,数据的物理结构必须与逻辑结构不合
B〕数据库技能的全然目的是处置数据共享征询题
C〕数据库技能是指己有数据管理系统的基础上树破数据库
D〕数据库系统需要把持系统的支持
(11〕下面可以正判定义2个整形变量跟1个字符串变量的语句的是(D〕

A〕Dimn,mASInterger,sASString
B〕Dima%,b$,cASString
C〕DimaASInteger,b,cASString
D〕Dimx%,yASInteger,zASString
(12〕以下表述中不克不迭揣摸x是否为偶数的是(D〕
A〕x/2=Int(x/2〕B〕xMod2=0 C〕Fix(x/2〕=x/2D〕x\2=0
(13〕设在名称为Myform的窗体上只需1个名称为C1的命令按钮,下面表达中精确的选项是(B〕
A〕窗体的Click情况过程的过程名是Myform_Click
B〕命令按钮的Click情况过程名是C1_Click
C〕命令按钮的Click情况过程的过程名是Command1_Click
D〕上述三种过程名根本上差错的
(14〕设窗体上有1个滚动条,恳求单击滚动条右端的按钮一次,滚动条移动肯定的刻度值,决定如今度的属性是(C〕
A〕MaxB〕MinC〕SmallChangeD〕LargeChang
(15〕1个二维数组可以存放1个矩阵。在次第开始有语句OptionBase0,那么下面定义的数组中恰恰可以存放1个4*3矩阵(即只需12个元素〕的是(B〕
A〕Dima(-2To0,2〕ASIntegerB〕Dima(3,2〕ASIngeger
C〕Dima(4,3〕ASIngegerD〕Dima(-1To-4,-1To-3〕ASIngeger
(16〕假设设置了文本框的属性PasswordChar=〞$〞,那么运行次第时向文本框中输出8个任意字符后,文本框中表示的是(A〕
A〕8个〞$〞B〕1个〞$〞C〕8个〞*〞D〕无任何内容
(17〕设在窗体上有1个名称为Combo1的组合框,含有5个工程,要删除最后一项,精确的语句是(B〕
A〕Combo1.RemoveItemCombo1.TextB〕Combo1.RemoveItem4
C〕Combo1.RemoveItemCombo1.ListCountD〕Combo1.RemoveItem5
(18〕工程中有2个窗体,名称分不为Form1，Form2，Form1为启动窗体,该窗体上有命令按钮Command1,恳求次第运行后单击该命令按钮时表示Form2,那么按钮的Click情况过程该当是(A〕
A〕PrivateSubCommand1_Click(〕B〕PrivateSubCommand1_Click(〕
Form2.ShowForm2.Visible
EndSubEndSub
C〕PrivateSubCommand1_Click(〕D〕PrivateSubCommand1_Click(〕
LoadForm2Form2.Load
EndSubEndSub
(19〕假设在某窗体模块中有如下情况过程(D〕
PrivateSubCommand1_Click(IndexASInteger〕
……
EndSub
那么以下表达中精确的选项是
A〕此情况过程与不带参数的情况过程不区不
B〕有1个名称为Command1的窗体,单击此窗体那么实行此情况过程
C〕有1个名称为Command1的控件数组,数组中有多个差异典范控件
D〕有1个名称为Command1的控件数组,数组中有多个一样典范控件
(20〕以下循环语句中在任何情况下都至少实行一次循环体的是(C〕
A〕DoWhile<条件>B〕While<条件>
循环体循环体
LoopWend
C〕DoD〕DoUntil<条件>
循环体循环体
LoopUntil<条件>Loop
(21〕在窗体上有1个名为Cd1的通用对话框,为了在运行次第时打开保存文件对话框,那么在次第中应应用的语句是(A〕
A〕Cd1.Action=2B〕Cd1.Action=1 C〕Cd1.ShowSave=TureD〕Cd1.ShowSave=0
(22〕下面关于菜单的表达中差错的选项是(B〕
A〕各级菜单中的所有菜单项的名称必须唯一
B〕一致子菜单中的菜单项名称必须唯一,但差异子菜单中的菜单项名称可以一样
C〕弹出式菜单用PopupMenu方法弹出
D〕弹出式菜单也用菜单编辑器编辑
(23〕已经清楚有下面的过程(D〕
PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean〕
……
EndSub
精确调用此过程的语句是
A〕Callprocl(5〕B〕Callproc15,〞abc〞,FalseC〕proc1(12,〞abc〞,True〕D〕proc15,“abc〞
(24〕在窗体上有1个名称为Text1的文本框跟1个名称为Command1的命令按钮，恳求在次第实行时，每单击命令按钮一次，文本框向右移动肯定距离。下面可以精确完成上述功能的次第是(C〕
A〕PrivateSubCommand1_Click(〕B〕PrivateSubCommand1_Click(〕
Text1.Left=100Text1.Left=Text1.Left-100
EndSubEndSub
C〕PrivateSubCommand1_Click(〕D〕PrivateSubCommand1_Click(〕
Text1.MoveText.Left+100Text1.MoveText.Left
EndSubEndSub
(25〕某人创破了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望次第实行时先表示Form2窗体，那么，他需要做的义务是(A〕
A〕在工程属性对话框中把“启开东西〞设置为Form2
B〕在Form1的Load情况过程中参与语句LoadForm2
C〕在Form2的Load情况过程中参与语句Form2.Show
　D〕在Form2的TabIndex属性设置为１，把Form1的TabIndex属性设置为２
〔26〕窗体上有１个名称为Text1的文本框跟１个名称为Command1的命令按钮。恳求次第运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面可以完成上述功能的次第是(C〕
　　A〕PrivateSubCommand1_Click(〕B〕PrivateSubCommand1_Click(〕
Open“out.txt〞ForInputAs#1Open“out.txt〞ForOutputAs#1
Print#1,Text1.TextPrint#1,Text1.Text
Close#1Close#1
EndSubEndSub
C〕PrivateSubCommand1_Click(〕D〕PrivateSubCommand1_Click(〕
Open“out.txt〞ForAppendAs#1Open“out.txt〞ForRandomAs#1
Print#1,Text1.TextPrint#1,Text1.Text
Close#1　　　　　　　　　　　　　Close#1
EndSubEndSub
(27〕为打算1+3+5+……+99的值，某人编程如下
k=1
s=0
Whilek<=99
k=k+2:s=s+k
Wend
Prints
在调试时觉察运行结果有差错，需要修改。以下差错缘故跟修改方案中精确的选项是(D〕
A〕While…Wend循环语句差错，应改为Fork=1To99…Nextk
B〕循环条件差错，应改为Whliek<99
C〕循环前的赋值语句k=1差错，应改为k=0
D〕循环中两条赋值语句的次第差错，应改为s=s+k:k=k+2
(28〕下面次第在调试时出现了去世循环
PrivateSubCommand1_Click(〕
n=InputBox(“请输出一个整数〞〕
Do
IfnMod2=0Then
n=n+1
Else
n=n+2
ElseIf
LoopUntiln=1000
EndSub
下面关于去世循环的表达中精确的选项是(D〕
A〕只需输出的n是偶数时才会出现去世循环，否那么不会
B〕只需输出的n是奇数时才会出现去世循环，否那么不会
C〕只需输出的n是大年夜于1000的整数时才会出现去世循环，否那么不会
D〕输出任何整数都会出现去世循环
〔29〕在窗体上有1个名称为CommonDialog1的通用对话框跟1个名称为Command1的命令按钮，以及其他一些控件。恳求在次第运行时，单击Command1按钮，那么表示打开文件对话框，并在选择或输出了1个文件名后，就可以打开该文件。以下是Command1_Click情况过程的两种算法
算法1：
PrivateSubCommand1_Click(〕
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
EndSub
算法2：
PrivateSubCommand1_Click(〕
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>〞〞Then
OpenCommonDialog1.FileNameForInputAs#1
EndIf
EndSub
下面关于这两种算法的表达中精确的选项是(B〕
A〕  表示打开文件对话框后假设未选择或输出任何文件名，那么算法2会出错，算法1不会
B〕  表示打开文件对话框后假设未选择或输出任何文件名，那么算法1会出错，算法2不会
C〕  两种算法的实行结果残缺一样
D〕  算法1赞同输出的文件名中含有空格，而算法2差异意
〔30〕窗体上有1个名称为List1的列表框，其中已经输出了假设干个工程〔如以下列图〕：尚有2个文本框，名称分不为Text1、Text2,1个名称为Command1的命令按钮，并有以下次第
PrivateSubCommand1_Click(〕
DimstrAsString,sAsString,kAsInteger
s=Text1
Str=〞〞
Fork=List1.ListCount-1to0Step-1
IfInStr(List1.List(k〕,s〕>0then
str=str&List1.List(k〕&〞〞
EndIf
Nextk
Ifstr=〞〞Then
Text2=〞不匹配的工程〞
Else
Text2=str
EndIf
EndSub
次第运行时，在Text1中输出“京〞，单击命令按钮，那么在Text2中表示的内容是(〕
A〕京B〕北京南京C〕南京北京D〕不匹配的工程
〔31〕在窗体上画1一个名称为Command1的命令按钮，并编写以下次第
PrivateSubCommand1_Click(〕
Printfun(“ABCDEFG〞〕
EndSub
Functionfun(stAsString〕AsString
stlen=Len(st〕
temp=〞〞
Fork=1Tostlen/2
temp=temp+Mid(st,k,1〕+Mid(st,stlen-k+1,1〕
Nextk
fun=temp
EndFunction
次第运行时，单击命令按钮，那么窗体上表示的是(B〕
A〕ABCDEFGB〕AGBFCEC〕GFEDCBAD〕AGBFCED
(32〕在窗体上先后画2个图片框，名称分不为Picture1跟banana,banana中添加了喷鼻香蕉图片〔见图1〕，且将banana.DragMode属性设置为1。恳求次第运行时，可以用鼠标把banana拖拽到Picture1中〔见图2〕。能完成此功能的情况过程是(C〕

A） PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
banana.MovePicture1.Left+X,Picture1.Top+Y〕
EndSub
B〕PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle〕
Source.MovePicture1.Left+X,Picture1.Top+Y
EndSub
C〕B〕PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle〕
Source.MovePicture1.Left+X,Picture1.Top+Y

EndSub
D〕B〕PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle〕
banana.Movebanana.Left+X,banana.Top+Y
EndSub
(33〕在窗体上画1个名称为Command1的命令按钮，然后编写如下情况过程
OptionBase1
PribateSubCommand1_Click(〕
Dima(5.5〕AsInteger
Fori=1To5
Forj=1to5
a(i,j〕=(i+j〕*5\10
Nextj
Nexti
S=0
Fori=1To5
S=s+a(i,i〕
Nexti
Prints
EndSub
次第运行后，单击命令按钮，输出结果是(A〕
A〕15B〕13 C〕11D〕9
(34〕在窗体上从左到右有Text1、Text2两个文本框〔见图〕，恳求次第运行时，在Text1中输出1个分数后按回车键，那么揣摸分数的合理性，假设分数为0~100中的1个数，周围光标移到Text2中；否那么光标不动，并弹出对话框表示“分数错〞，下面次第中精确的选项是(D〕
A〕PrivateSubText1__KeyPress(KeyAsciiASInteger〕
IfKeyAscii=13Then‘回车符的ACSII码是13
a=Val(Text1〕
Ifa>=0ora<=100Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox(“分数错〞〕
EndIf
EndIf
EndSub
B〕PrivateSubText1__KeyPress(KeyAsciiASInteger〕
IfKeyAscii=13Then‘回车符的ACSII码是13
a=Val(Text1〕
Ifa>=0Anda<=100Then
Text1.SetFocus
Else
Text2.SetFocus:MsgBox(“分数错〞〕
EndIf
EndIf
EndSub

C〕PrivateSubText1__KeyPress(KeyAsciiASInteger〕
IfKeyAscii=13Then‘回车符的ACSII码是13
a=Val(Text1〕
Ifa<0Anda>100Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox(“分数错〞〕
EndIf
EndIf
EndSub

D〕PrivateSubText1__KeyPress(KeyAsciiASInteger〕
IfKeyAscii=13Then‘回车符的ACSII码是13
a=Val(Text1〕
Ifa>=0Anda<=100Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox(“分数错〞〕
EndIf
EndIf
EndSub

(35〕在窗体上画2个命令按钮，名称分不为Command1、command2，并编写如下次第

Constn=5,m=4
Dima(m,n〕
PrivateSubCommand1_Click(〕
K=1
Fori=1Tom
Forj=1Ton
a(i,j〕=k
k=k+1
Nextj
Nexti
EndSub

PrivateSubCommand2_Click(〕
Summ=0

Fori=1Tom
Forj=1Ton
Ifi=1Ori=mThen
Summ=summ+a(i,j〕
Else
Ifj=1Orj=nThen
Summ=summ+a(i,j〕
EndIf
EndIf
Nextj
Nexti
Printsumm
EndSub

过程Command1_Click(〕的感染是二维数组a中存放1个m行n列的矩阵；过程Command2_Click(〕的感染是(A〕

A〕  打算矩阵核心一圈元素的累加跟
B〕  打算矩阵除外一圈以外的所有元素的累加跟
C〕  打算矩阵第1列跟最后一列元素的累加跟
D〕  打算矩阵第1行跟最后一行元素的累加跟

二、填空题〔每空2分，共30分〕
请将每一个空的精确答案写在答题纸上[1]~[15]序号的横线上，答在试卷上，答在试卷上不得分，
留心：以命令关键字填空的必须写残缺
〔1〕在深度为7的满二叉树中，度为2的结点个数为________。
〔2〕软件测试分为白箱〔盒〕测试跟黑箱〔盒〕测试，等价类分不法属于测试。
〔3〕在数据库系统中，完成各种数据管理功能的核心软件称为。
〔4〕软件生命周期可分为多个阶段，一般分为定义阶段、开拓阶段跟爱护阶段。编码跟测试属于阶段。
〔5〕在结构化分析应用的数据流图〔DFD〕中，使用对其中的图形元素停顿的确阐明。
〔6〕下面次第的功能是从键盘上请输出一个大年夜于100的整数m，打算并输出称心不等式1+22+32+42+…….n2eSubCommand1__Click(〕
DimincharASString,tempASString,outcharASString
Outchar=〞〞
Open〞file1.txt〞ForInputAS#1
Open〞file2.txt〞ForOutputAS
n=LOF(〕
inchar=Input$(n,1〕
Fork=1Ton
temp=Mid(inchar,k,1〕
IfInStr(outchar,temp〕=Then
outchar=outchar&temp
EndIf
Nextk
print#2,
close#2
close#1
EndSub
(8〕在窗体上先画1个名为Text1的文本框跟1个名为Label1的标签,再画1个名为OP1的有4个单项选择按钮数组,其Index属性按季度次第为0~3(见图1〕。在文件sales.txt中按月份次第存有某企业某年12个月的销售额。恳求在次第实行时，鼠标单击1个单项选择按钮，那么Text1中表示呼应季度的销售总额，并把呼应的文字表示在标签上。图2是单击“第3季度〞单项选择按钮发作的结果。请填空。
Dimsales(12〕AsLong
PrivateSubForm__Load(〕
open“sales.txt〞ForInputAS#1
Fork=1To12
Input#1,sales(k〕
Nextk
Close#1
EndSub
PrivateSub(Index,ASInteger〕
DimsumASLong,kASIngeter,monthASIngeter
sum=0
month=Index
Fork=1To3
month=month+1
sum=sum+sales(month〕
Nextk
Label1.Caption=Opl(Index〕.&“销售总额：〞
Text1=sum
EndSub
(9〕某人编写如下函数来揣摸a是否为素数，假设是，那么函数前去True；否那么前去False
FunctionPrime(aAsInteger〕ASBoolean
DimkAsInterger,isprimeASBoolean
Ifa<2Then
isprime=False
Else
isprime=True
k=2
DoWhilek