9月全国计算机等级考试二级VB笔试试卷.doc

2005年9月世界打算机等级检验二级VB口试试卷
一、选择题〔每题2分，共70分〕
以下各题A〕、B〕、C〕、D〕四个选项中，只需一个选项是精确的。请将精确选项填涂在答题卡呼应位置上，答在试卷上不得分。
〔1〕以下表达中精确的选项是
 A〕次第方案确实是编制次第 B〕次第的测试必须由次第员自己去完成
 C〕次第经调试改错后还应停顿再测试 D〕次第经调试改错后不必停顿再测试
〔2〕以下数据结构中，能用二分法停顿查寻的是
 A〕次第存储的有序线性表 B〕线性链表 C〕二叉链表 D〕有序线性链表
〔3〕以下关于栈的描画精确的选项是
 A〕在栈中只能拔出元素而不克不迭删除元素
 B〕在栈中只能删除元素而不克不迭拔出元素
 C〕栈是特不的线性表，只能在一端拔出或删除元素
 D〕栈是特不的线性表，只能在一端拔出元素，而在另一端删除元素
〔4〕以下表达中精确的选项是
 A〕一个逻辑数据结构只能有一种存储结构
 B〕数据的逻辑结构属于线性结构，存储结构属于非线性结构
 C〕一个逻辑数据结构可以有多种存储结构，且各种存储结构不阻碍数据处理的效能
 D〕一个逻辑数据结构可以有多种存储结构，且各种存储结构阻碍数据处理的效能
〔5〕以下描画中精确的选项是
 A〕软件工程只是处理软件工程的管理征询题
 B〕软件工程要紧处理软件产品的花费率征询题
 C〕软件工程的要紧思想是夸大年夜在软件开拓过程中需要应用工程化原那么
 D〕软件工程只是处理软件开拓中的技能征询题
〔6〕在软件方案中，不属于过程方案货色的是
 A〕PDL(过程方案语言〕 B〕PAD图 C〕N-S图 D〕DFD图
〔7〕以下表达中精确的选项是
 A〕软件交付应用后还需要停顿爱护 B〕软件一旦交付应用就不需要再停顿爱护
C〕软件交付应用后其生命周期就终了 D〕软件爱护是指修复次第中被破坏的指令
〔8〕数据库方案的全然目的是要处理
A〕数据共享征询题 B〕数据安全征询题 C〕大批数据存储征询题 D〕简化数据爱护
〔9〕设有如下关系表:
RST
A
B
C

A
B
C

A
B
C
1
1
2

3
1
3

1
1
2
2
2
3

2
2
3

3
1
3
那么以下把持中精确的选项是
 A〕T＝R∩SB〕T＝R∪SC〕T＝R×SD〕T＝R/S
〔10〕数据库系统的核心是
 A〕数据模型 B〕数据库管理系统 C〕数据库 D〕数据库管理员
〔11〕假定一个VisualBasic应用次第由一个窗体模块跟一个标准模块构成。为保存该应用次第，以下精确的把持是

 A〕只保存窗体模块文件
 B〕分不保存窗体模块、标准模块跟工程文件
C〕只保存窗体模块跟标准模块文件
D〕只保存工程文件

〔12〕为了去除窗体上的一个控件，以下精确的把持是

 A〕按回车键
 B〕按Esc键
C〕选择〔单击〕要去除的控件，然后按Del键
D〕选择〔单击〕要去除的控件，然后按回车键

〔13〕以下表达中差错的选项是
 A〕打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
 B〕当次第运行时，双击一个窗体，那么触发该窗体的DblClick情况

 C〕VisualBasic应用次第只能以阐明办法实行
D〕情况可以由用户激起，也可以由系统激起
〔14〕设a=2,b=3,c=4,d=5,以下表达式Nota<=cOr4*c=b^2Andb<>a+c的值是
 A〕-1B〕1 C〕TrueD〕False
〔15〕设a=5，b=10，那么实行c=Int((b-a〕*Rnd+a〕+1后，c值的范围为
A〕5～10B〕6～9 C〕6～10D〕5～9
〔16〕在窗体上画一个命令按钮，名称为Command1，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
a$="softwareandhardware"
b$=Right(a$,8〕
c$=Mid(a$,1,8〕
MsgBoxa$,,b$,c$,1
EndSub
运行次第，单击命令按钮，那么在弹出的信息框的标题栏中表示的是
A〕softwareandhardwareB〕softwareC〕hardwareD〕1
〔17〕在窗体上画一个命令按钮跟一个文本框，其名称分不为Command1跟Text1，把文本框的Text属性设置为空白，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
a=InputBox("Enteraninteger"〕
b=InputBox("Enteraninteger"〕
Text1.Text=b+a
EndSub
次第运行后，单击命令按钮，假定在输出对话框中分不输出8跟10，那么文本框中表示的内容是
A〕108B〕18 C〕810D〕出错
〔18〕在窗体上画两个文本框，其名称分不为Text1跟Text2，然后编写如下次第：
PrivateSubForm_Load(〕
Show
Text1.Text="":Text2.Text="":Text1.SetFocus
EndSub
PrivateSubText1_Change(〕
Text2.Text=Mid(Text1.Text,8〕
EndSub
次第运行后，假定在文本框Text1中输出BeijingChina，那么在文本框Text2中表示的内容是
A〕BeijingChinaB〕ChinaC〕BeijingD〕BeijingC
〔19〕在窗体上画一个列表框跟一个命令按钮，其名称分不为List1跟Command1，然后编写如下情况过程：
PrivateSubForm_Load(〕
List1.AddItem"Item1"
List1.AddItem"Item2"
List1.AddItem"Item3"
EndSub
PrivateSubCommand1_Click(〕
List1.List(List1.ListCount〕="AAAA"
EndSub
次第运行后，单击命令按钮，其结果为
A〕把字符串“AAAA〞添加到列表框中，但位置不克不迭判定
B〕把字符串“AAAA〞添加到列表框的最后〔即“Item3”的后面〕
C〕把列表框中原有的最后一项改为“AAAA〞
D〕把字符串“AAAA〞拔出到列表框的最后面〔即“Item1”的后面〕
〔20〕假定有如下情况过程：
PrivateSubForm_Click(〕
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<28
x=x*3
n=n+1
Loop
Printx,n
EndSub
次第运行后，单击窗体，输出结果是
A〕814B〕563
C〕281D〕2435
〔21〕有如下次第：
PrivateSubForm_Click(〕
DimCheck,Counter
Check=True
Counter=0
Do
DoWhileCounter<20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
EndIf
Loop
LoopUntilCheck=False
PrintCounter,Check
EndSub
次第运行后，单击窗体，输出结果为
A〕150B〕20-1
C〕10TrueD〕10False
〔22〕有如下次第：
PrivateSubForm_Click(〕
DimiAsInteger,sumAsInteger
sum=0
Fori=2To10
IfiMod2<>0AndiMod3=0Then
sum=sum+i
EndIf
Nexti
Printsum
EndSub
次第运行后，单击窗体，输出结果为
A〕12B〕30 C〕24D〕18
〔23〕在窗体上画一个名称为Text1的文本框跟一个名称为Command1的命令按钮，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
Dimarray1(10,10〕AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1(i,j〕=i+j
Nextj
Nexti
Text1.Text=array1(2,3〕+array1(3,4〕
EndSub
次第运行后，单击命令按钮，在文本框中表示的值是
A〕12 B〕13 C〕14 D〕15
〔24〕在窗体上画一个命令按钮，其名称为Command1，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
 Dima1(4,4〕,a2(4,4〕
 Fori=1To4
 Forj=1To4
 a1(i,j〕=i+j
 a2(i,j〕=a1(i,j〕+i+j
 Nextj
 Nexti
 Printa1(3,3〕;a2(3,3〕
EndSub
次第运行后，单击命令按钮，在窗体上输出的是
A〕66B〕105 C〕721D〕612
〔25〕有如下次第：
OptionBase1
PrivateSubForm_Click(〕
Dimarr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19〕
Fori=1To10
Ifarr(i〕/3=arr(i〕\3Then
Sum=Sum+arr(i〕
EndIf
Nexti
PrintSum
EndSub
次第运行后，单击窗体，输出结果为
A〕25B〕26 C〕27D〕28
〔26〕在窗体上画一个命令按钮，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
Dima(5〕AsString
Fori=1To5
a(i〕=Chr(Asc("A"〕+(i-1〕〕
Nexti
ForEachbIna
Printb;
Next
EndSub
次第运行后，单击命令按钮，输出结果是
A〕ABCDEB〕12345
C〕abcdeD〕出错信息
〔27〕以下关于函数过程的表达中，精确的选项是

A〕假定不指明函数过程参数的典范，那么该参数没有数据典范
B〕函数过程的前去值可以有多个
C〕当数组作为函数过程的参数时，既能以传值办法转达，也能以引用办法转达
D〕函数过程形参的典范与函数前去值的典范不关系
〔28〕函数过程F1的功能是：假定参数b为奇数，那么前去值为1，否那么前去值为0。以下能精确完成上述功能的代码是：

A〕FunctionF1(bAsInteger〕
IfbMod2=0Then
 Return0
Else
 Return1
EndIf
EndFunction
B〕FunctionF1(bAsInteger〕
IfbMod2=0Then
 F1=0
Else
 F1=1
EndIf
EndFunction

C〕FunctionF1(bAsInteger〕
IfbMod2=0Then
 F1=1
Else
 F1=0
EndIf
EndFunction
D〕FunctionF1(bAsInteger〕
IfbMod2<>0Then
 Return0
Else
 Return1
EndIf
EndFunction

〔29〕以下关于KeyPress情况过程中参数KeyAscii的表达中精确的选项是

A〕KeyAscii参数是所按键的ASCII码
B〕KeyAscii参数的数据典范为字符串
C〕KeyAscii参数可以省略
D〕KeyAscii参数是所按键上标注的字符
〔30〕设窗体上有一个名为Text1的文本框，并编写如下次第：
PrivateSubForm_Load(〕
Show
Text1.Text="":Text1.SetFocus
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle〕
Print"次第方案"
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger〕
Print"VisualBasic";
EndSub
次第运行后，假定在文本框中输出字母“a〞，然后单击窗体，那么在窗体上表示的内容是
A〕VisualBasicB〕次第方案C〕VisualBasic次第方案D〕a次第方案
〔31〕假定有下表所列的菜单结构：
━━━━━━━━━━━━━━━━━━━━
标题名称层次
────────────────────
表示appear1〔主菜单〕
大年夜图标bigicon2〔子菜单〕
小图标smallicon2〔子菜单〕
━━━━━━━━━━━━━━━━━━━━
恳求次第运行后，假定单击菜单项“大年夜图标〞，那么在该菜单项前添加一个“√〞。以下精确的情况过程是

A〕PrivateSubbigicon_Click(〕
bigicon.Checked=False
EndSub
B〕PrivateSubbigicon_Click(〕
Me.
EndSub

C〕PrivateSubbigicon_Click(〕
bigicon.Checked=True
EndSub
D〕PrivateSubbigicon_Click(〕

EndSub

〔32〕假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，那么单击命令按钮后，能使打开的对话框的标题为“NewTitle〞的情况过程是
A〕PrivateSubCommand1_Click(〕
CommonDialog1.DialogTitle="NewTitle"
CommonDialog1.ShowPrinter
EndSub
B〕PrivateSubCommand1_Click(〕
CommonDialog1.DialogTitle="NewTitle"
CommonDialog1.ShowFont
EndSub
C〕PrivateSubCommand1_Click(〕
CommonDialog1.DialogTitle="NewTitle"
CommonDialog1.ShowOpen
EndSub
D〕PrivateSubCommand1_Click(〕
CommonDialog1.DialogTitle="NewTitle"
CommonDialog1.ShowColor
EndSub

〔33〕假定一个工程含有多个窗体及标准模块，那么以下表达中差错的选项是
A〕任何时刻最多只需一个窗体是运动窗体
B〕不克不迭把标准模块设置为启动模块
C〕用Hide办法只是隐藏一个窗体，不克不迭从内存中去除该窗体
D〕假定工程中含有SubMain过程，那么次第肯定起首实行该过程
〔34〕假定在工程文件中有一个标准模块，其中定义了如下记录典范
TypeBooks
 NameAsString*10
 TelNumAsString*20
EndType
恳求当实行情况过程Command1_Click时，在次第文件Person.txt中写入一条记载。以下可以完成该把持的情况过程是
A〕PrivateSubCommand1_Click(〕
DimBAsBooks
Open"c:\Person.txt"ForOutputAs#1
B.Name=InputBox("输出姓名"〕
B.TelNum=InputBox("输出号码"〕
Write#1,B.Name,B.TelNum
Close#1
EndSub
B〕PrivateSubCommand1_Click(〕
DimBAsBooks
Open"c:\Person.txt"ForInputAs#1
B.Name=InputBox("输出姓名"〕
B.TelNum=InputBox("输出号码"〕
Print#1,B.Name,B.TelNum
Close#1
EndSub
C〕PrivateSubCommand1_Click(〕
DimBAsBooks
Open"c:\Person.txt"ForOutputAs#1
Name=InputBox("输出姓名"〕
TelNum=InputBox("输出号码"〕
Write#1,B
Close#1
EndSub
D〕PrivateSubCommand1_Click(〕
DimBAsBook
Open"c:\Person.txt"ForInputAs#1
Name=InputBox("输出姓名"〕
TelNum=InputBox("输出号码"〕
Print#1,B.Name,B.TelNum
Close#1
EndSub

〔35〕目录列表框的Path属性的感染是
A〕表示当前驱动器或指定驱动器上的某目录下的文件名
B〕表示当前驱动器或指定驱动器上的目录结构
C〕表示根目录下的文件名
D〕表示指定道路下的文件

二、填空题〔每空2分，共30分〕
请将每空的精确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
〔1〕数据管理技能展开过程经过人工管理、文件系统跟数据库系统三个阶段，其中数据独破性最高的阶段是【1】。
〔2〕算法复杂度要紧包括时刻复杂度跟【2】复杂度。
〔3〕在停顿模块测试时，要为每个被测试的模块不的方案两类模块：驱动模块跟承接模块〔桩模块〕。其中【3】的感染是将测试数据转达给被测试的模块，并表示被测试模块所发作的结果。
〔4〕一棵二叉树第六层〔根结点为第一层〕的结点数最多为【4】个。
〔5〕数据结构分为逻辑结构跟存储结构，循环行列属于【5】结构。
〔6〕设有以下函数过程：
Functionfun(mAsInteger〕AsInteger
DimkAsInteger,sumAsInteger
sum=0
Fork=mTo1Step-2
 sum=sum+k
Nextk
fun=sum
EndFunction
假定在次第中用语句s=fun(10〕调用此函数，那么s的值为【6】。
〔7〕在窗体上画一个命令按钮跟一个文本框，然后编写命令按钮的Click情况过程。次第运行后，在文本框中输出一串英文字母〔不区分大小写〕，单击命令按钮，次第可寻出未在文本框中输出的其他所有英文字母，并以大年夜写办法落序表示到Text1中。比如，假定在Text1中输出的是abDfdb，那么单击Command1按钮后Text1中表示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
PrivateSubCommand1_Click(〕
DimstrAsString,sAsString,cAsString
str=UCase(Text1〕
s=""
c="Z"
Whilec>="A"
 IfInStr(str,c〕=0Then
 s=【7】
 EndIf
 c=Chr$(Asc(c〕【8】〕
Wend
Ifs<>""Then
 Text1=s
EndIf
EndSub

〔8〕在n个运发起中选出任意r集团参加比赛，有特不多种差异的选法，选法的个数可以用公式打算。以以下列图窗体中3个文本框的名称依次是Text1、Text2、Text3。次第运行时在Text1、Text2中分不输出n跟r的值，单击Command1按钮即可求出选法的个数，并表示在Text3文本框中(见以以下列图〕。请填空。


PrivateSubCommand1_Click(〕
DimrAsInteger,nAsInteger
n=Text1
r=Text2
Text3=fun(n〕/fun(【9】〕/fun(r〕
EndSub
Functionfun(nAsInteger〕aslong
DimtAsLong
【10】
Fork=1Ton
 t=t*k
Next
fun=t
EndFunction

〔9〕以下是一个比赛评分次第。在窗体上树破一个名为Text1的文本框数组，然后画一个名为Text2的文本框跟名为Command1的命令按钮。运行时在文本框数组中输出7个分数，单击“打算得分〞命令按钮，那么最后得分表示在Text2文本框中〔去丢掉一个最高分跟一个最低分后的平均分即为最后得分〕，如以下列图。请填空。

PrivateSubCommand1_Click(〕
 DimkAsInteger
 DimsumAsSingle,maxAsSingle,minAsSingle
 sum=Text1(0〕
 max=Text1(0〕
 min=【11】
 Fork=【12】To6
 Ifmax<Text1(k〕Then
 max=Text1(k〕
 EndIf
 Ifmin>Text1(k〕Then
 min=Text1(k〕
 EndIf
 sum=sum+Text1(k〕
 Nextk
 Text2=(【13】〕/5
EndSub

〔10〕如以下列图，在列表框List1中已经有假定干人的复杂信息，运行时在Text1文本框〔即“查寻货色〞右边的文本框〕输出一个姓或姓名，单击“查寻〞按钮，那么在列表框中停顿查寻，假定寻到，那么把该人的信息表示在Text2文本框中。假定有多个匹配的列表项，那么只表示第1个匹配项；假定未寻到，那么在Text2中表示“查无此人〞。请填空。

PrivateSubCommand1_Click(〕
DimkAsInteger,nAsInteger,foundAsBoolean
found=False
n=Len(【14】〕
k=0
Whilek<List1.ListCountAndNotfound
IfText1=Left$(List1.List(k〕,n〕Then
Text2=【15】
found=True
EndIf
k=k+1
Wend
IfNotfoundThen
Text2="查无此人"
EndIf
EndSub

2005年9月世界打算机等级检验二级VB笔试参考答案
选择题
【1-5】CACDC【6-10】DAABB
【11-15】BCCDC【16-20】CABBA
【21-25】DAADC【26-30】ADBAC
【31-35】CCDAB
填空题
【1】数据库系统【2】空间【3】驱动模块
【4】32【5】存储结构【6】30
【7】s&c【8】-1【9】n-r
【10】t=1【11】Text1(0〕【12】1
【13】〔sum-max-min〕【14】text1.text【15】list1.list(k〕