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

2006年9月世界打算机等级检验二级VB口试试卷
一、选择题〔每题2分，共70分〕
以下各题A〕、B〕、C〕、D〕四个选项中，只需一个选项是精确的，请将精确选项涂写在答题卡呼应位置上，答在试卷上不得分。
（1） 以下选项不符合优良次序方案风格的是〔〕

A、源次序要文档化
B、数听阐明的次序要标准化
C、避免滥用goto语句
D、模块方案要保证高耦合、高内聚

（2） 从工程管理角度，软件方案一般分为两步完成，它们是〔〕

A、提纲方案与详细方案
B、数据方案与接口方案
C、软件结构方案与数据方案
D、过程方案与数据方案

（3） 以下选项中不属于软件生命周期开拓阶段任务的是〔〕

A、软件测试
B、提纲方案
C、软件爱护
D、详细方案

（4） 在数据库系统中，用户所见的数据方式为
A、不雅念方式
B、外方式
C、内方式
D、物理方式
（5） 数据库方案的四个阶段是：需求分析、不雅念方案、逻辑方案跟〔〕
A、编码方案
B、测试阶段
C、运行阶段
D、物理方案
（6） 设有如下三个关系表，以下把持中精确的选项是〔〕

R
S
T

A
m
n

B
C
1
3

A
B
C
m
1
3
n
1
3

A、T=R∩S
B、T=R∪S
C、T=R×S
D、T=R∕S

（7） 以下表达中精确的选项是〔〕
A、一个算法的空间复杂度大年夜，那么其时辰复杂度也确信大年夜
B、一个算法的空间复杂度大年夜，那么其时辰复杂度确信小
C、一个算法的时辰复杂度大年夜，那么其空间复杂度确信小
D、上述三种说法都差错
（8） 在长度为64的有序线性表中停顿次序查寻，最坏情况下需求比较的次数为〔〕

A、63
B、64
C、6
D、7

（9） 数据库技能的全然目标是要处置数据的〔〕

A、存储征询题
B、共享征询题
C、安全征询题
D、爱护征询题

（10） 对以下二叉树
F
CE
ADG
B
停顿中序遍历的结果是〔〕

A、ACBDFEG
B、ACBDFGE
C、ABDCGEF
D、FCADBEG

（11） 以下表达中精确的选项是〔〕
A、窗体的Name属性指定窗体的名称，用来标示一个窗体
B、窗体的Name属性值是表示在窗体标题中的文本
C、可以在运行时代修改窗体的Name属性的值
D、窗体的Name属性值可以为空
（12） 以下表达中差错的选项是〔〕
A、打开一个工程文件时，系统自动载入与该工程有关的窗体文件
B、保存VisualBasic次序时，应分不保存窗体文件及工程文件
C、VisualBasic应用次序只能以阐明办法实行
D、窗体文件包含该窗体及其控件的属性
（13） 设a=2，b=3，c=4以下表达式的值是〔〕
Nota<=cOr4*c=b^2And<>a+c

A、-1
B、1
C、True
D、False

（14） 设有如下的用户定义典范：
Typestudent
NumberAsString
NameAsString
AgeAsInteger
EndType
那么以下精确引用该典范成员的代码是〔〕

A、student.Name="李明"

B、DimsAsstudent
s.Name="李明"

C、DimsAsTypestudent
s.Name="李明"
D、DimsAsType
s.Name="李明"

（15） 设a=5，b=6，c=7，d=8，实行以下语句后，x的值为
x=IIf((a>b〕And(c>d〕,10,20〕

A、10
B、20
C、True
D、False

（16） 实行以下次序段后，变量c$的值为
a$=〞VisualBasicProgramming〞
b$=〞Quick〞
c$=b$&Ucase(Mid$(a$，7，6〕〕&Right$(a$，12〕
A、VisualBASICProgramming
B、QuickBasicProgramming
C、QUICKBasicProgramming
D、QuickBASICPrograming
（17） 在窗体上画一个文本框〔其名称为Text1〕跟一个标签〔其名称为Label1〕，次序运行后，假定在文本框中输出指定的信息，那么破即在标签中表示一样的内容。以下可以完成上述把持的情况过程是〔〕

A、PrivateSubText1_Click(〕
Label1.Caption=Text1.Text
EndSub
B、PrivateSubText1_Change(〕
Label1.Caption=Text1.Text
EndSub
C、PrivateSubLabel1_Change(〕
Label1.Caption=Text1.Text
EndSub
D、PrivateSubLabel1_Click(〕
Label1.Caption=Text1.Text
EndSub

（18） 在窗体上画一个命令按钮跟一个标签，名称分不为Command1跟Label1，编写如下情况过程：
PrivateSubCommand1_Click(〕
Counter=0
Fori=1To4
Forj=6To1Step-2
Counter=Counter+1
Nextj
Nexti
Label1.Caption=Str(Counter〕
EndSub
次序运行后，单击命令按钮，标签中表示的内容是〔〕

A、11
B、12
C、16
D、20

（19） 在窗体上画一个名称为Text1的文本框跟一个名称为Command1的命令按钮，然后编写如下情况过程：
DimiAsInteger,nAsInteger
Fori=0To50
i=i+3
n=n+1
Ifi>10ThenExitFor
Next
Text1.Text=Str(n〕
次序运行后，单击命令按钮，在文本框中表示的值是

A、5
B、4
C、3
D、2

（20） 在窗体上画一个命令按钮跟两个标签，其名称为Command1、Label1跟Label2，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
a=0
Fori=1To10
a=a+1
b=0
Forj=1To10
a=a+1
b=b+2
Nextj
Nexti
Label1.Caption=Str(a〕
Label2.Caption=Str(b〕
EndSub

A、10跟20
B、20跟110
C、200跟110
D、110跟20

（21） 在窗体上画一个名称为List1的列表框，一个名称为Lable1的标签，列表框中表示假定干都市的名称。当单击列表框中的某个都市时，该都市从列表框中毁灭，并在标签中表示出来。以下能精确完成上述把持的次序是〔〕

A、PrivateSubList1_Click(〕
Label1.Caption=List1.ListIndex
List1.RemoveItemList1.Text
EndSub
B、PrivateSubList1_Click(〕
Label1.Name=List1.Text
List1.RemoveItemList1.Text
EndSub
C、PrivateSubList1_Click(〕
Label1.Caption=List1.Text
List1.RemoveItemList1.ListIndex
EndSub
D、PrivateSubList1_Click(〕
Label1.Name=List1.Text
List1.RemoveItemList1.ListIndex
EndSub

（22） 在窗体上画一个名称为Command1的命令按钮，然后编写如下次序：
PrivateSubCommand1_Click(〕
DimiAsInteger,jAsInteger
Dima(10,10〕AsInteger
Fori=1To3
Forj=1To3
a(i,j〕=(i-1〕*3+j
Printa(i,j〕;
Nextj
Print
Nexti
EndSub
次序运行后，单击命令按钮，窗体上表示的是〔〕
A、123
246
369
B、234
345
456
C、347
258
369
D、123
456
789

（23） 在窗体上画一个命令按钮，名称为Command1的命令按钮，然后编写如下次序：
PrivateSubCommand1_Click(〕
Dima(4〕AsInteger,b(4〕AsInteger
Fork=0To2
a(k+1〕=InputBox("请输出一个整数"〕
b(3-k〕=a(k+1〕
Nextk
Printb(k〕
EndSub
次序运行后，单击命令按钮，在输出对话框中分不输出2、4、6，输出结果为〔〕：

A、0
B、2
C、3
D、4
（24） 有以下次序：
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、813
B、013
C、712
D、00

（25） 以下表达中精确的选项是〔〕
A、一个Sub过程至少要有一个ExitSub语句
B、一个Sub过程必须有一个EndSub语句
C、可以在Sub过程中定义一个Function过程，但不克不迭定义Sub过程
D、调用一个Function过程可以获得多个前去值
（26） 有以下次序：
SubsubP(b(〕AsInteger〕
Fori=1To4
b(i〕=2*i
Nexti
EndSub
PrivateSubCommand1_Click(〕
Dima(1To4〕AsInteger
a(1〕=5
a(2〕=6
a(3〕=7
a(4〕=8
subPa(〕
Fori=1To4
Printa(i〕
Nexti
EndSub
运行上面的次序，单击命令按钮，输出结果为：

A、2
4
6
8
B、5
6
7
8
C、10
12
14
16
D、出错

（27） 设有如下通用过程：
PublicFunctionfun(xStrAsString〕AsString
DimtStrAsString,strLAsInteger
tStr=""
strL=Len(xStr〕
i=1
DoWhilei<=strL/2
tStr=tStr&Mid(xStr,i,1〕&Mid(xStr,strL-i+1,1〕
i=i+1
Loop
fun=tStr
EndFunction
在窗体上画一个名称为Text1的文本框跟一个名称为Command1的命令按钮，然后编写如下的情况过程：
PrivateSubCommand1_Click(〕
Dims1AsString
s1="abcdef"
Text1.Text=UCase(fun(s1〕〕
EndSub

A、ABCDEF
B、abcdef
C、AFBECD
D、DEFABC

（28） 在窗体上画一个命令按钮跟两个文本框，然后编写如下的情况过程：
PrivateSubText1_KeyPress(KeyAsciiAsInteger〕
……
EndSub
假定中心已经位于文本框中，那么可以触发KeyPress情况的把持是〔〕

A、单击鼠标
B、双击文本框
C、鼠标滑过文本框
D、按下键盘上的某个键

（29） 在窗体上画一个命令按钮跟两个文本框，其名称分不为Command1、Text1跟Text2，然后编写如下次序：
Dims1asString,s2asString
PrivateSubForm_Load(〕
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger〕
s2=s2&Chr(KeyCode〕
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger〕
s1=s1&Chr(KeyAscii〕
EndSub
PrivateSubCommand1_Click(〕
Text1.Text=s2
Text2.Text=s1
s1=""
s2=""
EndSub
次序运行后，在Text1中输出“abc〞，然后单击命令按钮，在文本框Text1跟Text2中表示的内容分不为〔〕

A、abc跟ABC
B、abc跟abc
C、ABC跟abc
D、ABC跟ABC

（30） 以下说法精确的选项是〔〕
A、任何时候都可以通过实行“货色〞菜单中的“菜单编辑器〞命令打开菜单编辑器
B、只需当某个窗体为当前活动窗体时，才能打开菜单编辑器
C、任何时候都可以通过单击标准货色栏的“菜单编辑器〞按钮打开菜单编辑器
D、只需当代码窗口为当前活动窗口时，才能打开菜单编辑器
（31） 在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下情况过程:
PrivateSubCommandl_click(〕
CommonDialogl．Filter=“AllFiles(*.*〕︱*.*︱TextFiles(*．txt〕︱*.txt︱ExecutableFiles(*.exe〕|*.exe〞
CommonDialog1．Filterlndex=3
CommonDialogl．ShowOpen
MsgBoxCommonDialogl．Filename
EndSub
次序运行后，单击命令按钮，将表示一个“打开〞对话框，现在在“文件典范〞框中表示的是〔〕

A、AllFiles(*.*〕
B、TextFiles(*．txt〕
C、ExecutableFiles(*.exe〕
D、不判定

（32） 以下表达中差错的选项是〔〕
A、一个工程中可以包含多个窗体文件
B、在一个窗体文件中用Public定义的通用过程不克不迭被其他窗体调用
C、窗体跟标准模块需求分不保存为差异典范的磁盘文件
D、用Dim定义的窗体层变量只能在该窗体中应用
（33） 以下表达中差错的选项是〔〕
A、语句〞Dima，bAsInteger〞声明了两个典范变量
B、不克不迭在标准模块中Static定义型变量
C、窗体层变量必须先声明，后应用
D、在情况过程或通用过程内定义的变量是局部变量
（34） 设有语句Open“d:\Test.txt〞ForOutputAs#1,以下表达中差错的选项是〔〕
A、假定d盘根目录下无Test.txt文件，那么该语句创破此文件
B、用该语句树破的文件的文件号为1
C、该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息
D、实行该语句后，就可以通过语句Pring#向文件Test.txt写入信息。
（35） 以下表达差错的选项是〔〕
A、次序文件中的数据只能按次序读写
B、对一致个文件，可以用差异的办法跟差异的文件号打开
C、实行Close语句，可将文件缓冲区中的数据写到文件中读取信息
D、随机文件中各记录的长度是随机的

二、填空题〔每空2分，共30分〕
   请将每一个正确答案在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
   留心：以命令关键字填空的必须拼写残缺。

〔1〕以下软件系统结构图的宽度为【1】
T
BCD
EF
〔2〕【2】的任务是诊断跟改正次序中的差错。
〔3〕一个关系表的行称为【3】。
〔4〕按“提高后出〞原那么结构数据的数据结构是【4】。
〔5〕数据结构分为线性结构跟非线性结构，带链的行列属于【5】。
〔6〕描画“X是小于100的非负整数〞的VisualBasic表达式是【6】
〔7〕在窗体上有一个名称为Command1的命令按钮跟一个名称为Text1的文本框。次序运行后，Command1为禁用〔灰色〕，现在假定在文本框中输出字符，那么命令按钮Command1变为可用。请填空。
PrivateSubForm_Load(〕
Command1.Enabled=False
EndSub
PrivateSubText1_【7】(〕
Command1.Enabled=True
EndSub
〔8〕在窗体上画一个名称为“Command1〞的命令按钮，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
DimaAsString
a="123456789"
Fori=1To5
PrintSpace(6-i〕;Mid$(a,【8】,2*i-1〕
Nexti
EndSub
次序运行后，单击命令按钮，窗体上输出结果是：
5
456
34567
2345678
123456789
请填空。
〔9〕以下次序的功能是：将一维数组A中的100个元素分不赋给二维数组B的每一个元素并打印出来，恳求把A〔1〕
到A〔10〕依次赋给B〔1，1〕到B〔1，10〕，把A〔11〕到A〔20〕依次赋给B〔2，1〕到B〔2，10〕，把A〔91〕到A〔100〕依次赋给B〔10，1〕到B〔10，10〕，请填空：
OptionBase1
PrivateSubForm_Click(〕
DimiAsInteger,jAsInteger
DimA(1To100〕AsInteger
DimB(1To10,1To10〕AsInteger
Fori=1To100
A(i〕=i
Nexti
Fori=1To【9】
Forj=1To【10】
B(i,j〕=【11】
PrintB(i,j〕;
Nextj
Print
Nexti
EndSub
〔10〕在窗体上画一个名称为Combo1的组合框，然后画两个名称分不为Label1、Label2，标题分不为“都市名称〞跟空白的标签。次序运行后，在组合框中输出一个新的工程并按回车键，假定输出的工程在组合框的列表中不存在，那么自动将其添加在组全框的列表中，并在Label2中给出提示“已成功添加新的输出项〞，如以以下列图所示。假定输出的工程已存，那么在Label2中给出提示“输出工程已在组合框中〞。请填空。

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger〕
IfKeyAscii=13Then
Fori=0ToCombo1.ListCount-1
IfCombo1.Text=【12】Then
Label2.Caption="输出项已在组合框中。"
ExitSub
EndIf
Nexti
Label2.Caption="已成功添加新输出项。"
Combo1.【13】Combo1.Text
EndIf
EndSub
〔11〕在窗体上画一个命令按钮跟一个文本框，其名称分另为Command1跟Text1，然后编写如下情况过程：
PrivateSubCommand1_Click(〕
DimindataAsString
Text1.Text=""
Open"d:\myfile.txt"For【14】As#1
DoWhile【15】
Input#1,indata
Text1.Text=Text1.Text+indata
Loop
EndSub
次序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并表示在文本框中。请填空。

2006年9月世界打算机等级检验二级VB笔试参考答案
一、选择题
〔1〕…〔5〕DACBD〔6〕…〔10〕CDBBA
〔11〕…〔15〕ACDBB〔16〕…〔20〕DBBCD
〔21〕…〔25〕CDBAB〔26〕…〔30〕ACDCB
〔31〕…〔35〕CBACD
二、填空题

〔1〕3
〔2〕次序调试
〔3〕元组
〔4〕栈
〔5〕线性结构
〔6〕X%>=0AndX%<100
〔7〕Change
〔8〕6-i
〔9〕【9】10
【10】10
【11】A((i-1〕*10+j〕
〔10〕【12】Combo1.list(i〕
【13】AddItem
〔11〕【14】Input
【15】NotEOF(1〕