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

2006年4月世界打算机等级检验二级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
BC
DEF
停顿后序遍历的结果为。
A〕ABCDEFB〕DBEAFCC〕ABDECFD〕DEBFCA
(7〕在深度为7的满二叉树中，叶子结点的个数为。
A〕32B〕31 C〕64D〕63
(8〕“商品〞与“顾主〞两个实体集之间的联系一般是。
A〕一对一B〕一对多C〕多对一D〕多对多
(9〕在E-R图中，用来表示实体的图形是。
A〕矩形B〕椭圆形C〕菱形D〕三角形
(10〕数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。
A〕DB包括DBS跟DBMSB〕DBMS包括DB跟DBS
C〕DBS包括DB跟DBMS D〕不任何关联
(11〕以下关于VisualBasic特点的表达中，差错的选项是。
A〕VisualBasic是采用情况驱动编程机制的语言
B〕VisualBasic次第既可以编译运行，也可以阐明运行
C〕构成VisualBasic次第的多个过程不结实的实行次第
D〕VisualBasic次第不是结构化次第，不存在结构化次第的三种全然结构
(12〕以下表达中，差错的选项是。

A〕一个VisualBasic应用次第可以含有多个标准模块文件
B〕一个VisualBasic工程可以含有多个窗体文件
C〕标准模块文件可以属于某个指定的窗体文件
D〕标准模块文件的扩大年夜名是.bas

(13〕以下表达中，差错的选项是。
A〕在VisualBasic中，东西所能照应的情况是由系统定义的
B〕东西的任何属性既可以通过属性窗口设定，也可以经进次第语句设定
C〕VisualBasic中赞同差异东西应用一样名称的办法
D〕VisualBasic中的东西存在自己的属性跟办法
(14〕设有如下语句：
Dima，bAsInteger
c="VisualBasic"
d=#7／20／2005#
以下关于这段代码的表达中，差错的选项是。

A〕a被定义为Integer典范变量
B〕b被定义为Integer典范变量
C〕c中的数据是字符串
D〕d中的数据是日期典范

(15〕以下能从字符串"VisualBasic"中开门见山取出子字符串"Basic"的函数是。
A〕LeftB〕MidC〕StringD〕Instr
(16〕设a=4，b=3，c=2，d=1，以下表达式a>b+1Orc<dAndbModc的值是。
A〕TrueB〕1 C〕-1D〕0
(17〕以下可以作为VisualBasic变量名的是。
A〕A#AB〕counstAC〕3AD〕?AA
(18〕设x=4，y=6，那么以下不克不迭在窗体上表示出“A=10”的语句是。
A〕PrintA=x+yB〕Print"A=";x+yC〕Print "A="+Str(x+y〕 D〕Print"A="&x+y
(19〕假定有如下的命令按钮(名称为Command1〕情况过程：
PrivateSubCommand1_Click(〕
x=InputBox("输出："，"输出整数"〕
MsgBox"输出的数据是：〞，，〞输出数据："+x
EndSub
次第运行后，单击命令按钮，假定从键盘上输出整数10，那么以下表达中差错的选项是。

A〕x的值是数值10
B〕输出对话框的标题是“输出整数〞
C〕信息框的标题是“输出数据：10”
D〕信息框中表示的是“输出的数据是：〞

(20〕在窗体上画1个命令按钮(名称为Command1〕跟1个文本框(名称为Text1〕，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
x=Val(Text1.Text〕
SelectCasex
Case1，3
y=x*x
CaseIs>=10，Is<=-10
y=x
Case-10To10
y=-x
EndSelect
EndSub
次第运行后，在文本框中输出3，然后单击命令按钮，那么以下表达中精确的选项是。
A〕实行y=x*xB〕实行y=-x
C〕先实行y=x*x，再实行y=-x
D〕次第出错

(21〕设有命令按钮Command1单击情况过程，代码如下：
PrivateSubCommand1_Click(〕
Dima(30〕AsInteger
Fori=1To30
a(i〕=Int(Rnd*100〕
Next
ForEacharrItemIna
IfarrItemMod7=0ThenPrintarrItem；
IfarrItem>90ThenExitFor
Next
EndSub
关于该情况过程，以下表达中差错的选项是。
A〕a数组中的数据是30个100以内的整数
B〕语句ForEacharrItemIna有语法差错
C〕IfarrItemMod7=0……语句的功能是输出数组中可以被7整除的数
D〕IfarrItem>90……语句的感染是当数组元素的值大年夜于90时参加For循环

(22〕设有命令按钮Command1的单击情况过程，代码如下：
PrivateSubCommand1_Click(〕
Dima(3，3〕AsInteger
Fori=1To3
Forj=1To3
a(i，j〕=i*j+i
Nextj
Nexti
Sum=0
Fori=1To3
Sum=Sum+a(i，4-i〕
Nexti
PrintSum
EndSub
 运行次第，单击命令按钮，输出结果是。
A〕20B〕7 C〕16D〕17
(23〕在窗体上画1个名称为Command1的命令按钮，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
a=0
Fori=1To2
Forj=1To4
IfjMod2<>0Then
a=a-1
EndIf
a=a+1
Nextj
Nexti
Printa
EndSub
次第运行后，单击命令按钮，输出结果是
A〕0B〕2 C〕3D〕4

(24〕窗体上有名称分不为Text1、Text2的2个文本框，有一个由3个单项选择按钮构成的控件数组Option1，如图1所示。次第运行后，假定单击某个单项选择按钮，那么实行Text1中的数值与该单项选择按钮所对应的运算(乘以1、10或100〕，并将结果表示在Text2中，如图2所示。为了完成上述功能，在次第中的征询号(?〕处应填入的内容是。

图1图2 
PrivateSubOption1_Click(IndexAsInteger〕
IfText1.Text<>""Then
SelectCase ?
Case0
Text2.Text=Val(Text1.Text〕
Case1
Text2.Text=Val(Text1.Text〕*10
Case2
Text2.Text=Val(Text1.Text〕*100
EndSelect
EndIf
EndSub
A〕IndexB〕Option1.IndexC〕Option1(Index〕 D〕Option1(Index〕.Value

(25〕在窗体上画1个命令按钮，其名称为Command1，然后编写如下次第：
PrivateSubCommand1_Click(〕
Dima(10〕AsInteger
DimxAsInteger 
Fori=1To10
a(i〕=8+i
Next
x=2
Printa(f(x〕+x〕
EndSub
Functionf(xAsInteger〕
x=x+3
f=x
EndFunction
次第运行后，单击命令按钮，输出结果为。
A〕12B〕15 C〕17D〕18
(26〕以下关于过程的表达中，差错的选项是。

A〕情况过程是由某个情况触发而实行的过程
B〕函数过程的前去值可以有多个
C〕可以在情况过程中调用通用过程
D〕不克不迭在情况过程中定义函数过程

(27〕在窗体上画3个标签、3个文本框(名称分不为Text1、Text2跟Text3〕跟1个命令按钮(名称为Command1〕，外表如以下列图。编写如下次第：

PrivateSubForm_Load(〕
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand1_Click(〕
x=Val(Text1.Text〕
y=Val(Text2.Text〕
Text3.Text=f(x，y〕
EndSub
Functionf(ByValxAsInteger,ByValyAsInteger〕
DoWhiley<>0
tmp=xMody
x=y
y=tmp
Loop
f=x
EndFunction
运行次第，在Text1文本框中输出36，在Text2文本框中输出24，然后单击命令按钮，那么在Text3文本框
中表示的内容是。
A〕4B〕6 C〕8D〕12
(28〕窗体上有名称分不为Text1、Text2的2个文本框，恳求文本框Text1中输出的数据小于500，文本框Text2中输出的数据小于1000，否那么重新输出。为了完成上述功能，在以下次第中征询号(?〕处应填入的内容是
PrivateSubText1_LostFocus(〕
CallCheckInput(Text1，500〕
EndSub
PrivateSubText2_LostFocus(〕
CallCheckInput(Text2，1000〕
EndSub
SubCheckInput(tAs?，xAsInteger〕
IfVal(t.Text〕>xThen
MsgBox"请重新输出!"
EndIf
EndSub
A〕TextB〕SelTextC〕ControlD〕Form
(29〕在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger〕
PrintChr(KeyCode〕
EndSub
PrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger〕
PrintChr(KeyCode+2〕
EndSub
次第运行后，把中心移到文本框中，现在假定敲击“A〞键，那么输出结果为。

A〕 A
A
B〕 A
B
C〕 A
C
D〕 A
D

(30〕为了使列表框中的工程呈多列表示，需要设置的属性为。
A〕ColumnsB〕StyleC〕ListD〕MultiSelect
(31〕在窗体上画1个命令按钮，名称为Command1，然后编写如下次第：
DimFlagAsBoolean
PrivateSubCommand1_Click(〕
DimintNumAsInteger
intNum=InputBox("请输出："〕
IfFlagThenPrintf(intNum〕
EndSub
Functionf(XAsInteger〕AsInteger
IfX<10Then
Y=X
Else
Y=X+10
EndIf
f=Y
EndFunction
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle〕
Flag=True
EndSub
运行次第，起首单击窗体，然后单击命令按钮，在输出对话框中输出5，那么次第的输出结果为。
A〕0B〕5 C〕15D〕无任何输出
(32〕在菜单编辑器中树破1个名称为Menu0的菜单项，将其“可见〞属性设置为False，并树破其假定干
子菜单，然后编写如下过程：
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle〕
IfButton=1Then
PopupMenuMenu0
EndIf
EndSub
那么以下表达中差错的选项是。
A〕该过程的感染是弹出一个菜单
B〕单击鼠标右键时弹出菜单
C〕Menu0是在菜单编辑器中定义的弹出菜单的名称
D〕参数X、Y指明鼠标当前位置的坐标

(33〕窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击情况过程如下：
PrivateSubCommand1_Click(〕
CD1.FileName=""
CD1.Filter="AllFiles|*.*|(*.DoC〕|*.Doc|(*.Txt〕|*.txt"
CD1.FilterIndex=2
CD1.Action=1
EndSub
关于以上代码，差错的表达是。

A〕实行以上情况过程，通用对话框被设置为“打开〞文件对话框
B〕通用对话框的初始道路为当前道路
C〕通用对话框的默认文件典范为*.Txt
D〕以上代码差错文件实行读写把持

(34〕以下表达中差错的选项是。
A〕用Shell函数可以实行扩大年夜名为.exe的应用次第
B〕假定用Static定义通用过程，那么该过程中的局部变量都被默认为Static典范
C〕Static典范的变量可以在标准模块的声明局部定义
D〕全局变量必须在标准模块中用Public或Global声明
(35〕以下关于文件的表达中，差错的选项是。
A〕应用Append办法打开文件时，文件指针被定位于文件尾
B〕当以输出办法(Input〕打开文件时，假定文件不存在，那么树破一个新文件
C〕次第文件各记录的长度可以差异
D〕随机文件打开后，既可以停顿读把持，也可以停顿写把持
二、填空题(每空2分，共30分〕
请将每空的精确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
(1〕对长度为10的线性表停顿冒泡排序，最坏情况下需要比较的次数为【1】。
(2〕在面向东西办法中，【2】描画的是存在相似属性与把持的一组东西。
(3〕在关系模型中，把数据看成是二维表，每一个二维表称为一个【3】。
(4〕次第测试分为静态分析跟静态测试。其中【4】是指不实行次第，而只是对次第文本停顿检查，通过阅读跟讨论，分析跟觉察次第中的差错。
(5〕数据独破性分为逻辑独破性与物理独破性。当数据的存储结构修改时，其逻辑结构可以波动，因此，基于逻辑结构的应用次第不必修改，称为【5】。
(6〕以下语句的输出结果是【6】。
PrintFormat(Int(12345.6789*100+0.5〕／100，"0000，0.00"〕

(7〕在窗体上画1个命令按钮，其名称为Command1，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
Dimarr(1To100〕AsInteger
Fori=1To100
arr(i〕=Int(Rnd*1000〕
Nexti
Max=arr(1〕：Min=arr〔1〕
Fori=1To100
If【7】ThenMax=arr(i〕
If【8】ThenMin=arr(i〕
Nexti
Print"Max="；Max，"Min="；Min
EndSub
次第运行后，单击命令按钮，将发作100个1000以内的随机整数，放入数组arr中，然后查寻并输出这100个数中的最大年夜值Max跟最小值Min，请填空。

(8〕在窗体上画1个名称为Command1的命令按钮跟2个名称分不为Text1、Text2的文本框，如以下列图，然后编写如下次第：
FunctionFun(xAsInteger,ByValyAsInteger〕AsInteger
x=x+y
Ifx<0Then
Fun=x
Else
Fun=y
EndIf
EndFunction
PrivateSubCommand1_Click(〕
DimaAsInteger,bAsInteger
a=-10：b=5
Text1.Text=Fun(a，b〕
Text2.Text=Fun(a，b〕
EndSub
次第运行后，单击命令按钮，Text1跟Text2文本框表示的内容分不是【9】跟【10】。

(9〕在窗体上画1个命令按钮跟1个文本框，其名称分不为Command1跟Text1，然后编写如下代码：
DimSaveAllAsString
PrivateSubCommand1_Click(〕
Text1.Text=Left(UCase(SaveAll〕，4〕
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger〕
SaveAll=SaveAll+Chr(KeyAscii〕
EndSub
次第运行后，在文本框中输出abcdefg，单击命令按钮，那么文本框中表示的内容是【11】。
(10〕在窗体上画1个命令按钮跟1个通用对话框，其名称分不为Command1跟CommonDialog1，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
CommonDialog1.【12】="打开文件"
CommonDialog1.Filter="AllFiles(*.*〕|*.*"
CommonDialog1.InitDir="C：＼"
CommonDialog1.ShowOpen
EndSub
该次第的功能是，次第运行后，单击命令按钮，将表示“打开〞文件对话框，其标题是“打开文件〞，在“文件典范〞栏内表示“AIlFiles(*.*〕〞，并表示C盘根目录下的所有文件，请填空。
(11〕在窗体上画1个文本框，名称为Text1，然后编写如下次第：
PrivateSubForm_Load(〕
Open"d：＼temp＼dat.txt"ForOutputAs#1
Text1.Text=""
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger〕
lf【13】=13Then
IfUCase(Text1.Text〕=【14】Then
Close1
End
Else
Write#1，【15】
Text1.Text=""
EndIf
EndIf
EndSub
以前次第的功能是，在D盘temp目录下树破1个名为dat.txt的文件，在文本框中输出字符，每次按回车键(回车符的ASCII码是13〕都把当前文本框中的内容写入文件dat.txt，并去除文本框中的内容；假定输出“END〞，那么终了次第。请填空。

2006年4月世界打算机等级检验二级VB笔试参考答案
一、选择题

〔1〕…〔5〕DADBA〔6〕…〔10〕DCDAC〔11〕…〔15〕DCBAB
〔16〕…〔20〕DBAAA〔21〕…〔25〕BCDAD〔26〕…〔30〕BDCCA
〔31〕…〔35〕BBCCB

二、填空题

〔1〕45
〔2〕类
〔3〕关系
〔4〕静态分析〔静态测试〕
〔5〕物理独破性
〔6〕12,345.68
〔7〕【7】Max<arr(i〕
【8】Min>arr(i〕
〔8〕【9】-5
【10】5
〔9〕ABCD
〔10〕DialogTitle
〔11〕【13】KeyAscii
【14】“END〞
【15】Text1.text