国家二级（VB）机试模拟试卷6

家二级（VB）机试模拟试卷第1套

一、选择题（本题共40题，每题1.0分，共40分。）

1、已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历

序列是（）。

A、ABCDE

B、ECABD

C、EACDB

D、CDEAB

标准答案：C

知识点解析：由于后序遍历的最后一个元素为E,所以E为根结点，所以它的前序

遍历的首个元素为E,故排除A和D选项。由于中序遍历中，7t素B在元素根结

点E的后面，所以B为二叉树的右子树，并且该二叉树右子树只有一个元素，所

以前序遍历的最后一个元素应为B,故选项C为正确选项，即该二叉树的前序遍

历序列是EACDB。

2、命令按钮Command］的单击事件过程如下：PrivateSUbCommandl_Click()

Dima(10,10)AsIntegerx=0Fori=lTo3Forj=lTo3a(i,j)=i*2ModjIfx

A、I

B、2

C、3

D、4

标准答案：B

知识点解析：题目中定义了一个二维数组，为数组赋初值并找出这些值中最大的值

输出。数组中的值为：a(l,1)=1*2modl=0a(l>2)=1*2mod2=0a(1,3)=1*2mod

3=2a(2,1)=2*2modl=0a(2,2)=2*2mod2=0a(2,3)=2*2mod3=1a(3,1)=3*2

modl=0a(3,2)=3*2mod2=0a(3,3)=3*2mod3=0显然最大值为2,因此Printx语

句将在窗体上显示2。

3、关系数据库管理系统能实现的专门关系运算包括（）。

A、排序、索引、统计

B、选择、投影、连接

C、关联、更新、排序

D、显不、打印、制表

标准答案：B

知识点解析：关系数据库管理系统的专门关系运算包括选择运算、投影运算和连接

运算。

4、窗体上有两个名称分别为Textl、Text2的文本框。Textl的KeyUp事件过程如

下：PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAs

Stringc=UCase(Chr(KeyCode))Text2.Text=Chr(Asc(c)4-2)EndSub当向

文本框Textl中输入小写字母a时，文本框Text2中显示的是()。

A、A

a

C、C

D、c

标准答案：C

知识点解析：KeyDown和KeyUp事件的KeyCode参数返回的是“键"，即按字母

和“a"时得到的KeyCode的值是相同的，都是&H41。因此程序中对输入卬时得

到的KeyCode,经Chr函数转为字符后为“A”，经Ucase函数转换仍为“A“，所以变

量c中的字符为“A”。Asc(c)将返回变量c中的第一个字符的ASCH,加2后，再由

Chr函数转为字符即为”A“后面的第2个字符，即所以答案应为选项C。

5、在窗体Forml上放一个名为Texll的文本框和一个名为Command1的命令按

钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则

把命令按钮的标题设置为“VB等级考试二级”。以下能正确实现上述操作的事件过

程是()。

A、PrivateSubTextl_Change()Command1.Caption=MVB等级考试二级"EndSub

B、PrivateSubCommandl_Click()Caption="VB等级考试二级"EndSub

C、PrivateSubForml_Click()Textl.Caption="VB等级考试二级"EndSub

D、PrivateSubCommandl_Click()Textl.Text=”VB等级考试二级"EndSub

标准答案：A

知识点解析：本题考查文本框的事件。文本框的Click事件是单击文本框时触发

的，Change事件是每次文本框中文本发生改变时都触发的事件。题中要求当文本

框的字符改变以后实现要求，因此应通过文本框的Change事件更改Command1的

caption属性。

6、在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是

()。

A、顺序输入方式

B、顺序输出方式

C、随机存取方式

D、二进制方式

标准答案：C

知识点解析：Open语句打开文件时的格式为：Open文件说明［For方式^Access存

取类型锁定］As［#］文件号［Len=记录长度］其中，“方式”可以是：Oulpul指定顺序输

出方式、Inpul指定顺序输入方式、Append指定顺序输出方式，它与Outpul不同的

是，当用Append方式打开文件时，，文件指针被定位在文件末尾，如果文件执行写

操作，则写入的数据附加在原来文件的后面。Random指定随机存取方式，也是默

认方式。

7、在窗体上画一个命令按钮，名称为Command］，然后编写如卜代码：Oplion

Base0PrivateSubCommandl_Click()DimA1(4)AsInteger,A2(4)AsInteger

Fork=0To2Al(k+l)=InputBox("请输入一个整数”)A2(3—k)

=Al(k+l)NextkPrintA2(k)EndSub程序运行后，单击命令按钮，在输

入对话框中依次输入2、4、6,则输出结果为()。

A、0

B、I

C、2

D、3

标准答案：C

知识点解析：程序运行过程如下：k=0,输入2,Al(k4-1)=A1(O+1)=A1(1)=

2,A2(3—k)=A2(3—0)=A2(3)=2k=l,输入4,Al(k+1)=AI(1+1)=A1(2)=

4,A2(3—k)=A2(3—l)=A2(2)=4k=2,输入6,Al(k+1)=AI(2+1)=A1(3)=

6,A2(3-k)=A2(3-2)=A2(l)=6k=3,For循环结束，输出A2(k)的值即A2(3)

的值，即2。

8、在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表

框，一个名称为Filel的文件列表框，两个名称分别为Labell、Label2的标签(标题

分别为空白和''共有文件要使得驱动器列表框与目耒列表框、目录列表框与文

件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。下列能

够正确实现上述功能的程序是()。

A、PrivateSubDirl_change()Filel.Path=Dirl.PathEndSubPrivateSub

Drivel_Change()Dirl.Path=Drive1.DriveLabel1.Caption=File1.ListCountEnd

Sub

B、PrivateSubDirl_Change()File1.Path=Dirl.PathEndSubPrivateSub

DriveI_Change()Dirl.Path=Drivel.DriveLabel1.Caption=File1.ListEndSub

C^PrivateSubDirlchange()Filel.Path=Dirl.PathLabe)1.Caption=File

1.ListCountEndSubPrivateSubDrivcl_changc()Dirl.Path=Drive1.Drive

Labell.Caption=Filel.ListCountEndSub

D^PrivateSubDirl_Change()Fiiel.Path=Dirl.PathLabell.Caption=Filel.List

EndSubPrivateSUbDrivcl_Changc()Dirl.Path=DrivcI.DriveLabel

I.Caption=File1.ListEndSub

标准答案：C

知识点解析：考查文件系统控件。要使驱动器、目录和文件列表框同步显示，那么

就需要编写代码才能使它们之间彼此同步，在驱动器Drivel的Change事件中，要

Dirl.Path=Drivel.Drive,使目录的路径和驱动器一致,同时在目录Dirl的

Change事件中要Filel.Path=Dirl.Path,使文件路杼的位置和驱动器一致c可以

在文件列表框中使用ListCounl属性来统计文件数目(当文件路径改变时统计)。

9、一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间

的联系是()。

Asi：1联系

B、1：m联系

C、m：1联系

D>m：n联系

标准答案：D

知识点解析：因为一个教师可讲授多门课程，而一门课程又能由多个老师讲授所以

他们之间是多对多的关系，可以表示为m：n。

10、窗体的左右两端各有1条直线，名称分别为Linel、Line2；名称为Shapel的

圆靠在左边的Linel直线上（见图）；另有1个名称为Timerl的计时器控件，其

匕nabled属性值是True。要求程序运行后，圆每秒向右移动100,当圆遇到Line2

UForml三叵口、

HL，|

时则停止移动。为实现上述功能，某人把计

时器的Interval属性设置为1000,并编写了如下程序：PrivateSubTimerl_Timer（）

Fork=Linel.XIToLine2.XIStep100IfShapel.Left+Shapcl.Width

A、把计时器的Interval属性设置为I

B、把Fork=IAnel.XIToLine2.X1Step100和Nextk两行删除

C、把Fork=Lincl.XIToLine2.XIStep100改为Fork=Linc2.XIToLincl.XI

Step100

D、把IfShapel.Left+Shapel.Width

标准答案：B

知识点解析：在计时器事件中不应再设置步长为100的For循环，应该把For循环

去掉，只留下循环体的语句，计时器每秒激发一次，每次判断小球是否移到Line2

处，不到就改变自己的Left值即继续移动。因此B正确。

II、关于Keypress事件，以下叙述中正确的是（）。

A、在控件数组的控件上按键盘键，不能触发KeyPress事件

B、按下键盘上任一个键时，都能触发KeyPress事件

C、按字母键时，拥有焦点的控件的KeyPress事件会被触发

D、窗体没有KeyPress事件

标准答案：C

知识点解析：A选项错误原因：在控件数组的任何控件上按键盘键，会触发

KeyPress事件；B选项错误原因：只有按键盘上的ASCH字符键时，才能触发

KeyPress事件。ASCH字符键包括标准键盘上的字符、数字、标点符号、<：

Enter>,和键等，其他键KeyPress事件不能识别。D选项错误原因：窗体也有

KeyPresss事件。故C选项正确。

12、设窗体上有一个通用对话框控件CDI,希望在执行下面程序时，打开如图所示

的文件对话框：PrivateSubCommand!—Click()CD1.DialogTit1e="打开文件”

CD1.CitDir="C：”CDLFilter="所有文件I*.*IWord文档I*.docI文本文

件I*.txt"CD1,件eName=""CDLAction=lIfCD1.FileName=""ThenPrint"未打

开文件”ElsePrint"要打开文件”&CD1.FileNameEndIfEndSub

一x.M：工―二网即”用

-ET

.」2

-3厂商9I

文件〜中际7NF“1

rUM金方xn弄

但实际显示的的对话框列出了C：

\下的所有的文件盒文件夹，“义件类型”一栏中显示的是“所有文件”。下面的改正

方案中正确的是（）

A、把CD1.Actio11=l改为CD1.Action=2

B、把"CDI.Filter="后面字符串中的“所有文件”改为“文本文件”

C、在语句CDLActiom=l的前面添加：CDI.Filtcrlndcx=3

D、把CDI.FileName=""改为CDI.FileName="文本文件”

标准答案：C

知识点解析：在通用对堵框控件中，Filter属性指定了在对话框中显示的文件类

型，该属性可以设置多个文件类型，每种文件类型由文件描述和文件通配符与扩展

名组成，并由“I”隔开.Filterindex属性用来指定默认的过滤器，Filter属性中设置

了多个过滤器后，每个过滤器的对应的能按从左到右顺序是1、2...,Fihcrlndcx属

性默认为1,即第一个过滤器，因此程序中会显示：C\下的所有文件。应该在通

活框打开之前（CDI.Actions之前）添加CDI.Fliterlndex=3,即使默认过滤器为第

3个过滤器。

13、语句DimAir（-2To4）.AsInteger所定义的数组的元素个数为（）。

A7个

、

B6个

、

c5个

、

D4个

、

标准答案：A

知识点解析：本题是定义了一个一维数组，下标是一2lo4,所以数组元素的个数

是4一（一2）+1=7,故选A。

14>设a=10,b=5,c=l,执行语句Printa>b>c后，窗体上显示的是（）。

A、True

B、False

C、11

D、出错

标准答案：B

知识点解析：本题中Pnnt语句中的表达式只有运算符，相同优先级，左结合。

先计算a>b,即105,值为True,（即一1）,再计算一1>1,结果为False。故B选

项正确。

15、为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效,必须把

它的Slyle属性设置为（）o

A、0

B、1

C、True

D、False

标准答案：B

知识点解析：为了使命令按钮的Picture>DownPicture或DisablePicture属性生效，

必须把Style属性设置为1（图形格式），否则设置的图片无效。

16^某人编写了向随机文件中写一条记录的程序，代码如下：TypeRTvpcName

AsString*10TelAsString*20EndTypePrivateSubCommandI_Click（）DimPAs

RTypeP.Name=InputBox（“姓名”）P.Tel=InputBox（“电话号”）

Opcn^Books.datt4ForRandomAs#lPut#l,,PQose#lEndSub该程序运行时有错

误，修改的方法是（）。

A、在类型定义“TypeRType”之前力口上“Private”

B、DimPAsRType必须置于窗体模块的声明部分

C、应把Open语句中的ForRandom改为ForOutput

D、Put语句应该写为Pul#l,P.Name,P.Tel

标准答案：A

知识点解析：记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，

关键字Type前可以有Public（默认）或Private,而如果在窗体模块中定义，则必须

在前面加上关键字PrivateoOpen语句中使用ForRandom表示文件以随机方式存

取。Pul语句的语法为：Pul#文件号，［记录号］,变量。其中“变量”是除对象变量和

数组变量外的任何变量。

17、窗体上有名称为Commandl的命令按钮,名称分别为Labell、Label2>Labcl3

的标签。编写如下程序：PrivatexAsIntegerPrivateSubCommandl_Click（）

StaticyAsIntegerDimzAsIntegern=5z=z+ny=y+nx

=x+yLabel!=xLabel2=yLabel3=zEndSub运行程序，连续3次

单击命令按钮后，3个标签中分别显示的是()。

A、555

B、15105

C、151515

D、30155

标准答案：D

知识点解析：变量x被定义为窗体模块变量，它在整个窗体模块中有效。Click事

件中变量y定义为Static,即静态变量，它的值在每调用过程时都会保留上次的

值。每次电击按钮标签中显示的值即x、y、z的值是：第一次，n=5,z=z+n=

0+5=5,y=y+n=0+5=5,x=x+y=O+5=5；第二次，n=5,z=z+n=0+

5=5,y=y+n=5+5=10,x=x+y=5+10=15；第三次，n=5,z=z+n=0+

5=5,y=y+n=10+5=15,x=x+y=15+15=30；因此3次单击命令按钮后，

3个标签中分别显示的是30155o

18、已知：x=-6y=39则表达式“y\x*Sgn(x)”的值为()。

A、-6.5

B、-6

C、6

D、6.5

标准答案：C

知识点解析：本题按运算符从高到低优先级计算：*(\,所以应该是39\(一

6)*Sgn(-6)(39\(-6){(-1)-(39\6(6,故选Co

19、某二义树中共有350个结点，其中200个为叶子结点，则该二叉树中度为2的

结点数为()。

A、不可能有这样的二叉树

R、150

C、199

D、149

标准答案：A

知识点解析：在树结构中，一个结点所拥有的后件个数称为该结点的度。对任何一

棵二叉树，度为0的结点(即叶子结点)总是比度为2的结点多一个。二叉树中有

350个结点，叶子结点个数为200,设度为1的结点个数为nl,度为2的结点个数

为n2。n2=n0—1=199,n1=350—200—199=一49,显然节点个数不可能为负

数，所以这样的二叉树是不存在的。故A选项正确。

20、公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有

多名职员。则实体部门和职员间的联系是

A>1：1联系

B>m：1联系

C、1：m联系

D、m：n联系

标准答案：C

知识点解析：两个实体集间的联系实际上是实体集间的函数关系，主要有一对一联

系（1:1）、一对多联系（l:m）、多对一联系（m:l）、多对多联系（m:n）。对于

每一个实体部门，都有多名职员，则其对应的联系为一对多联系（l:m）,答案选

Co

21、某系统结构图如下图所示（nN5）该

系统结构图的最大扇出数是（）。

A、n

B、3

C、2

D、n+1

标准答案：A

知识点解析：模块的扇出是指本模块的直属下层模块的个数，或者说是由一个模块

直接调用的其他模块数。题干中某系统为一个模块，其扇出数目为n（佗5）,功能2

模块扇出数为3,功能n模块扇出数为2,则该系统结构图的最大扇出数是n。故

本题答案为A选项。

22、窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的代码

如下：PrivateSubCommandl_Click（）DimxAsInteger,yAsIntegerx=

Val（InputBox（"输入整数"））y=Val（InputBox（"输入整数"））PrintStr（fun（x,y）+x+y）

EndSubPrivateFunctionfun（ByRefmAsInteger,ByVainAsInteger）m=m*inn=n

+nfun=m+nEndFunction运行程序，单击命令按钮时，出现输入对话框，分别输

入3、5,则窗体上显示的是

A、27

B、28

C、33

D、38

标准答案：C

知识点解析：函数fun执行后，x值被改变，y值不变。即x=9,y=5：计算得结果

为33,选C）o

23、顺序文件在一次打开期间（）。

A、只能读，不能写

B、只能写，不能读

C、既可读，又可写

D、或者只读，或者只写

标准答案：D

知识点解析：顺序文件的读写是由Open语句的打开模式决定。用Output模式打

开，则可对顺序文件进行写操作；用Input模式打开，可对顺序文件进行读操作；

用Append模式打开，可将数据追加到文件尾部。打开一次期间，只能读，或只能

写，不能同时进行读写操作。但随机文件和二进制文件打开以后可以同时进行读写

操作。故D选项正确。

24文件d:\city.txt的内容如下：BeiJingTianjinShangHaiChongQing编写如下事

件过程：PrivateSubForm_Click()DimInDOpen"d:\city.txt"ForInputAs#1Do

WhileNotEOF(1)LineInput#1,InDLoopCloseIPrintInDEndSub运行程序，单击

窗体，输出结果是

A、文件city.txt的全部内容

B、BeiJing

C、ChongQing

D、空白

标准答案：C

知识点解析：#1文件以读操作的方式打开。在文件结尾的部分退出。退出时InD

内存储的内容是ChongQing,打印的内容就是ChongQing,选D)。

25、以下程序段的功能是()。x=8.6y=Int(x+0.5)Printy

A、输出y的绝对值

B、实现x的四舍五入

C、实现x的绝对值

D、实现y的四舍五入

标准答案：R

知识点解析：本题考查函数Int的功能，Int(x)的作用是取不大于x的最小的整数，

可以实现数据的四舍五入。

26、能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是

A、x>=5Andx<20

B、x>=5Orx<20

C^5<=x<20

D、5<=X<=20

标准答案：A

知识点解析：选项B表述的是x为大于等于5或者小于20的数，不符题意；选项

C、选项D的表达式不符合VB的逻辑表达式方式，是错误的。

27、VisualBasic根据计算机访问文件的方式将文件分成3类，其中不包括()。

A、顺序文件

B、Unix文件

C、二进制文件

D、随机文件

标准答案：B

知识点解析：本题考查VB文件的分类。VB中根据文件的访问形式分为顺序文

件、随机文件和二进制文件。

28、有如卜程序代码：PrivateSubForm_Click()DimSumAsIntegerSum=0While

Sum<=20Sum=Sum+1WendPrintSumEndSub退行程序，单击窗体，输出结果

是

A、19

B、20

C、21

D、22

标准答案：C

知识点解析：While循环只有在“条件”为真(True)的情况下执行循环体。如果条

件从一开始不成立，则一次循环也不执行。本题程序运行时，sum=0,符合条件

sum<=20,执行循环体,sum=0+l=l；当sum=l时,sum<=20,继续执行循环体,

sum=2；如此卜去，当sum=20时，sum<=20,执彳j该循环体后，sum=21,不再符

合循环执行条件，退出循环。故本题正确答案为C

29、在列表框或组合框中，能够表示当前被选中列表项序号的是

A、Listindex

B、Index

C>TopIndex

D、List

标准答案：A

知识点解析：列表框或组合框中.LiMndex属件用于设置或返I国当前被选择项目

的索引号；List属性用夹列出或设置列表项的内容,故正确答案为选项A。

30、以下叙述中错误的是

A、程序运行过程中，可以利用代码重新设置菜单项的Visible属性的值

B、在菜单标题中，由所引导的字母指明了访问该菜单项的访问键

C、在同一窗体的菜单项中，不允许出现标题相同的菜单项

D、弹出式菜单也在菜单编辑器中进行设计

标准答案：C

知识点解析：选项C中,同一窗体的菜单项,是“名称”不能相同,即“name”属性不

能相同，但”caption”标题属性可以相同。故正确答案为选项C。

31、下列与队列结构有关联的是

A、函数的递归调用

B、数组元素的引用

C、多重循环的执行

D、先到先服务的作业调度

标准答案：D

知识点解析：队列的修改是依先进先出的原则进行的，D正确。

32、设有如下的程序段：s=Oi=1Whilei<=10s=s+iWendPrints以上程序段

的执行结果是

A、输出55

B、输出56

C、死循环，直到溢出

D、输出无穷大的数

标准答案：C

知识点解析：i=l,循环条件1<10,s=O+l；下次循环i的值仍为1,继续执行；

以此类推，无论执行多少次，变量i的值都没有发生改变，循环条件i<=10总是满

足即“条件”永远为真，程序将不停地重复执行循环体，造成“死循环”，故正确答案

为C选项。

33、以下不属于VisualBasic数据文件的是

A、顺序文件

B、随机文件

C、数据库文件

D、二进制文件

标准答案：C

知识点解析：可以从不同的角度对文件进行分类：按照文件的内容，可分成程序文

件和数据文件；按照文件存储信息的形式，可分为ASCII文件和二进制文件；按

照文件的组织形式，可分成顺序文件和随机文件；按照存储介质，又可以分为光盘

文件、磁盘文件、磁带文件、打印文件等。

34、设数据集合为D={1,3,579),D上的关系为R,下列数据结构B=(D,R)

中为非线性结构的是

A、R={(5,1),(7,9),(1,7),(9,3)}

B、R={(9,7),(1,3),(7,1),(3,5))

C、R={(1,9),(9,7),(7,5),(5,3)}

D、R={(1,3),(3,5),(5,9))

标准答案：D

知识点解析：一个非空的数据结构如果满足以下两个条件：有且只有一个根结点；

每一个结点最多有一个前件，也最多有一个后件，则称为线性结构，在数据结构中

习惯称为线性表。A选项中，5为根结点，线性表为51793。B选项中，9为根结

点，线性表为97135。C选项中，1为根结点，线性表为19753。D选项，结点1与

7都是根结点，属于非线性结构，故D选项正确。

35、在黑盒测试方法中，设计测试用例的主要根据是()。

A、程序内部逻辑

B、程序外部功能

C、程序数据结构

D、程序流程图

标准答案：B

知识点解析：黑盒测试是对软件已经实现的功能是否满足需求进行测试和验证，黑

盒测试完全不考虑程序内部的逻辑结构和内部特性，只根据程序的需求和功能规格

说明，检查程序的功能是否符合它的功能说明，所以本题选择B

36、计算下面分段函数的正确语句是()。"I

A、y=IIf(x>0,x+1,IIf(x<0,x-1,0))

B、y=IIf(x=0,0,IIf(x>0,x—1,x4-1))

C、y=IIf(x>0,x+l,Hf(x<0,0,x-l))

D、y=IIf(x=0,0,x-1,x+1)

标准答案：A

知识点解析：HF是条件函数，它的语法格式是：Hf(〈条件表达式〉，〈表达式为

True时的取值〉，〈表达式为False时的取值〉)B选项中，内层的HF函数中，当

x>0时，x+1,否则x-l,所以应该是IIf(x>0,x+1,x-l)oC选项中，内层的

Hf函数中,当xvO时，x-1,否则0,所以应该是Hf(x<0,x-l,0)oD选项中Ilf

函数中有4个参数不对，应该有3个参数。故B、C、D选项均错误，A选项正

确。

37、编写如下程序：PrivateSubCommandl_Click()DimiAsInteger,jAs

Integern=lnputBox("输入一个大于1的正整数")Fori=2Ton

Forj=2ToSqr(i)IfiModj=0ThenExitForNextj

Ifj>Sqr(i)ThenPrintiNextiEndSub该程序的功能是()。

A、判断n是否为素数

B、输出n以内所有的奇数

C、输出n以内所有的偶数

D、输出n以内所有的素数

标准答案：D

知识点解析：假设输入2、4、9进行验证，输入2时程序会输出2,输入4时，程

序会输出2、3,可见程序不是判断n是否为素数，所以A不对。由前面验证可

知，程序也不是输出n以内的所以奇数或偶数，所以B、C也不对。如果输入9

时，程序会输出2、3、5、7,说明程序是输出n以内的所有素数，所以D正确。

38、窗体上有一个名称为Command1的命令按钮，编写如下事件过程：Private

SubCommandI_Click()i=0DoWhilei<6Forj=1Toin=n+1Nexti=i+1Loop

PrintnEndSub运行程序，单击命令按钮时，窗体上显示的是

A、10

B、15

C、16

D、21

标准答案：B

知识点解析：For循环中n从1累加到i。D。While循环由循环变量i控制一共执行

6次。选B）。

39、设x是整型变量，与函数nf（x>0,-x,x）有相同结果的代数式是（）。

A、|x|

B、一冈

C、x

D、—x

标准答案：B

知识点解析：IIF函数是条件函数，本题的含义是如果x>0条件成立，即x为E

数，就返回一x,即x的负数，否则返回x（它本身），两种情况都是返回负数。根据

这一点，选项B符合要求。故B选项正确。

40、下列针对框架控件的叙述中，错误的是（）。

A、框架是一个容器控件

B、框架也有Click和DblClick事件

C、框架也可以接受用户的输入

D、使用框架的主要目的是为了对控件进行分组

标准答案：C

知识点解析：框架是一个容器控件，用于将屏幕上的对象分组。框架常用的事件是

Click和DblClick,它不接受用户输入，不能显示文本和图形，也不能与图形相

连。

二、基本操作题（本题共2题，每题7.0分，共2分0）

请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

41、在名称为Forml的窗体上画一个名称为CD1的通用对•话框，通过属性窗口设

置CD1的初始路径为C\,默认的文件名为None,标题为“保存等级考试”，如

保〃号续态或

何枳EB-F）三］.电d0・

usmr«■SOCMM

UI

QlHKAi2

，二Pr.,Filmict

J-e・m

OW

jTDBWStul

刘似精738c

ren

3rrni

胃口因

(«)nuie

叉胃名,Hi-[GR]

.egI--------------3I

____________________

图2所示。图2注意:

存盘时必须存放在考生文件央下，_£程文件名为sj〔l.vbp,窗体文件名为

sjtl.frnio

标准答案：|操作步骤|步骤1：新建一个“标准。EXE”工程，选择|工程］一［部件］命

令，在弹出的“部件”对话框的列表中选PWicroSoftCommonDiMogControl.0"

项目，单击“确定”按钮。步骤2：在窗体Forml上画一个通用对话框，其相关属

表12-7

属性设・值

NameCDI

DialogTitJc保存等级考试

通用对话刖

FdcNameNone

性设置如表12—7所示。----------InitDir——口——步骤3：编写

Forml的Iroad事件，加入下面的代码：CDI.ShowSave步骤4：按要求将文件保

存至考生文件夹中。

知识点解析：通用对话框的InitDir属性用于为打开或另存为对话指定初始的目

录，如果此属性没有指定，则使用当前目录。通用对话框的初始路径由InitDir属

性设置，默认文件名由FileName属性设:置.，标题由DialogTille属性设置。

42、在名称为Forml的窗体上设计一个菜单。要求在窗体上添加名为menu。，标

题为“菜单命令”的主菜单，再添加两个名称分别为“mcnul"、“mcnu2”，标题分别

为“不可用菜单项、'、"上一菜单项可用''的子菜单，并且使程序运行时，mcnul子菜

单不可用，menu2子菜单已经选中（运行时的效果如图3所示）。

・For•1回区

荣I

.上一mwr常

图3再编写适当的事件过程，使得程序运行时，单击“上一

菜单项可用”，则“不可用菜单项”变为黑色（可用）。要求程序中不得使用变量，且只

有一条语句。注意：存盘时必须存放在考生文件夹卜，工程文件名为sii2.vbp,

窗体文件名为sit2.Frir.o

标准答案：［操作步骤］步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设

计菜单，各菜单项及属性设置如表12—8所示。

»12-8

标题名称是否育效内♦符号

菜单命令menuO有效0

不可用菜单项menu!无效1

上菜单项可用menu2有效1一步骤2：打开代码编辑窗口，编

写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSubmenu2_Click（）

menu1.Enabled=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。

知识点解析：①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设

置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项的

唯一关键字（不能重复）；“索引”项，用于设置菜单数组中各元素的索引号；“快捷

键''项，是一个下拉列表框，用于设置菜单项的快捷键；“帮助上下文”项，设置当

鼠标移动到某菜单项上按＜F1＞键时显示的帮助信息在帮助文件中的对应位置；

Visible（可见）项，用于设置控件或菜单项在程序运行时是否可见，值为True表示可

见，值为False表示不可见；Enabled（有效）项，用于设置控件或菜单项在程序运行

时是否有效，值为True时表示有效，值为False时表示无效（显示为灰色）。通过编

辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升（设置为上一级菜单）、

缩进（设置为下一级菜单）、上移、下移等操作。②文本框的Text属性用于设置或

返回其显示的文本内容。本题原程序设计思路：在“上一菜单项可用”命令的单击

事件过程中，通过语句设置“不可用菜单项''命令的Enabled属性值为True。

三、简单应用题（本题共I题，每题1.0分，共1分C）

43、（1）考生文件夹中有工程文件sjt3.vbpo窗体上有一个名称为Label1、抓题为

“标签控件”的标签；有一个名称为Command］、标题为“命令按钮”的命令按钮、单

击上述两控件中的任一控件，则在标签Label2中显示所单击控件的标题内容（标题

内容前添加“单击”二字），下图是单击命令按钮后的窗体外观。请去掉程序中的注

释符，把程序中的?改为正确的内容。注意：考生不得修改窗

体文件中已经存在的控件和程序，最后程序按原文件名存盘。（2）在考生文件天下

有一个工程文件sit4.vbp,其窗体上有一个由八个图片框控件组成的控件数组、

两个命令按钮及一个计时器控件，如图1所示。程序功能：将计时器控件设置为

每隔0.5秒触发一次Timer事件。运行程序时，只显示下标为0的图片框控件数

组元素，其他图片桩均不可见。单击“开始”按钮，数组中的每个图片框自左至右依

次显示，时间间隔为0.5秒，产生“月亮”从左向右移动的效果，如图2所示。月

亮移到右端后再从左端重新开始。单击"停止''按钮，"月亮''停止移动。要求：按

照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为止确的内容。

注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行

图1

cF«rml„.■尸4乂口,

「一。一’:

||_____JLL]

存盘。图2

标准答案：(1)步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序

中的注释符将问号改为正确的内容。参考答案PrivateSubCommandl_Click()

CallShowName(Commandl)'将Command1控件传入ShowNameEndSubPrivateSub

Labell_Click()CallShowName(Labell)，将Label控件传入ShowNameEndSub

PrivateSubShowName(cAsControl)'两者类型都为控件IfTypeOfcIs

CommandBLittonThenLabel2.Caplion="单击"&Commandl.CaptionEndIfIf

TypeOfcIsLabelThenLabel.Caption="单击"&Lab»1.CaptionEndIfEndSub步

骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)步骤I：打开本题工程文

件，将Timerl的Interval属性设置为500。步骤2：打开代码编辑窗口，去掉程序

中的注释符将问号改为正确的内容。参考答案PrivateSubForm_Load()

Picturel(O).Left=OPicturel(O).Top=100Fork=lTo7Piclurel(k).Visible=False当

窗体装载时，下标为1〜7的图片都不显示NextEndSubPrivateSub

Command1_C1ick()Timer!.Enabled=True'单击Command1按钮,Timer事件触发

EndSubPrivateSubCommand2_Click()Timerl.Enabled二FalseEndSubPrivateSub

Timer!Timer（）StaticiAsIntegerPicturel（i）.Visible=Falsei=i+lIfi=8Then判断图片

是否执行到最后一张i=0'重置i值EndIfPicturel（i）.Visible=TrueEndSub步骤3：

调试并运行程序，关闭程序后按题目要求存盘。

知识点解析：（1）单击两个控件中的任一个，通过Call语句调用函数ShowName。实

现在标签Label2中显示所单击控件的标题内容，自定义函数ShowName。用于判断

控件的类型，CommandButton表示命令按钮，Label表示标签，如果变量C的控件

类型是Com-mandButton,那么Label2的Caption属性设置为"单击

"&Command1.Caption,显示控件的标题内容。⑵首先将Timerl的Interval属性

设置为500,使计时器控件设置为每隔0.5秒触发一次。在FormJLoad事件过程

中，通过图片框Visible属性设置只显示下标为0的图片框控件数组元素，其他下

标为1〜7的图片框均不显示。单击“开始”按钮，计时器的Enabled属性设置为

True,TimcrLTimcr事件启动，运用循环语句将数组中的每个图片框自左向右依次

显示，产生“月亮”从左向右移动的效果，循环变量设置为局部变量Static,使“月

亮”移到右端后再从左端重新开始。单击“停止”按钮，“月亮”停止移动。

四、综合应用题（本题共1题，每题1.0分，共1分C）

44、在窗体卜建立二个菜单（名称分别为Read、Cale和Save.标题分别为“读人数

据”、“计算并输出“和“存盘”），然后添加一个文本框（名称为Textl,可显示多行，

ScrollBars属性设置为2）（如图所示）。程序运行后，如果执行“读入数据”命令，则

读入datainl.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单

击”计算并输出“按钮，则把该数组中小于50的元素显示在文本框中，求出它们的

和，并把所求得的和显示在窗体上；如果单击“存盘”按钮，则将所求得的和存入考

生文件夹下的dataout.txt文件中。在考生文件夹下有一个工程文件sjt5.vbp。窗

体文件中的RcadDala过程可以把datainl.txl文件中的100个整数读入Arr数组

中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中（整数值

通过计算求得，文件名为dataout.txt）。注意：考生不得修改窗体文件中已经存在

的程序。存盘时，工程文件名仍保存为sjt5.vbp,窗体文件名仍保存为

sjt5.frmo

标准答案：步骤1：打开本题工程文件，利用菜单设计器，按表3.108中的设置

建立菜单项，在窗体Foirnl中绘制一个文本框，其相关属性值见表1和表2。

表1

标题控件读入数据计算并愉出存盘

名再ReadCalcSave

内编符号000

表2

控件文本框

属性NameMultiLineScrollBanText

设置值Text1TRUE2步骤2：分析并编写程序代码。程序

提供代码OplionBase1DimArr(100)AsIntegerSubReadData()Open

ApP.Path&叭txt7,ForInputAs#lFori=lTol(X)Input#I,Arr(i)Nexti

Close#1EndSubSubWriteData(FilenameAsString,NumAsInteger)Open

App.Path&*\''&FihnamcForOutputAs#lPrint#1,NumClose#1EndSub程序结束

PrivateSubCaic_Crick()Textl.Text='"'Fori=lTo100IfArr(i)<50Then

Textl.Text=Textl.Text&Arr(i)&Space(5)sum=suiTi+Arr(i)EndIfNextiPrintsum

EndSubPrivateSubRead_Click()ReMDataEndSubPrivateSubSave_Click()

\"1"加口21或@12014.1乂『'.51101£11(15111)步骤3：调试并运行程序，关闭程序后按题

目要求存盘。

知识点解析：在“读数”命令的Click事件过程中，通过调用ReadData过程将数据从

inS.txt文件读人数组Arr(窗体变量)中；在“计算”命令的Click事件过程中，在

For循环语句(循环变量i的初值为1,终值为100)中依次将数组Arr中小于50的元

素的值显示在文本框中，并将其值累加到变量sum；在“保序”命令的Click事件过

程中，通过调用WriteData过程将Sum的值写入数据文件out5.txlo

国家二级（VB）机试模拟试卷第2套

一、选择题（本题共40题，每题1.0分，共40分。）

1、以下叙述中错误的是（）。

A、标准模块文件的扩展名是.bas

B、标准模块文件是纯代码文件

C、在标准模块中声明的全局变量可以在整个工程中使用

D、在标准模块中不能定义过程

标准答案：D

知识点解析：标准模块独立保存为标准模块文件.bas,故A选项正确。标准模块

是应用程序内其他模块访问的过程和声明的容器。当应用程序比较庞大，含有多个

窗口，而且几个窗口需耍写重复的过程、变量等代码时，就可以把这些重复的代码

写在标准模块。故B选项正确。在标准模块中定义的Public变量、Public过程属

于全局变量和全局过程，在整个工程中的其他窗体、模块都可以使用。改C选项

正确，在标准模块中可以定义过程，故D选项错误。

2、设有表示学生选课的三张表，学生s(学号，姓名，性别，年龄，身份证号)，课

程C(课号，课名)，选课SC(学号，课号，成绩)，则表SC的关键字(键或码)为()。

号

成绩

课

A、,

成绩

号

学

B、,

课号

号

学

、,

姓名

号

C学

D、,

：c

知识点解析：学号是学生表s的主键，课号是课程表C的主键，所以选课表SC的

关键字就应该是与前两个表能够直接联系旦能唯一定义的学号和课号，所以选择

Co

3、下列可作为VisualBasic变量名的是()。

A、A#A

B、constA

C、?xy

D、4A

标准答案：B

知识点解析：本题考查变量命名规则。VB中变量的命名应遵循以下规则：只能由

字母、数字和下划线组成；第一个字符必须是英文字母；有效字符为255个；不能

用关键字做变量名。

4、窗体上有一个由两个文本框组成的控件数组，名称为Textl,并有如下事件过

程：PrivateSubTcxtl_Changc(IndcxAsInteger)Sc.cctCaseIndexCascO

Textl(l).FontSize=Textl(0).FontSize*2Textl(1).Text=Textl(O).TextCase1

Textl(O).FontSize=Textl(l).FontSize/2Textl(O).Text=Textl(l).TextCaseElse

MsgBox”执行Else分支"EndSelectEndSub关于上述程序，以下叙述中错误的是

()。

A、Index用于标识数组元素

B、本程序中CaseElse分支的语句永远不会被执行

C、向任何一个文本框输入字符，都会在另一个文本框中显示该字符

D、下标为。的文本框中显示的字符尺寸将越来越小

标准答案：D

知识点解析：控件数组的Index属性作为控件数组的下标，用于标识数组元素索。

题目中程序功能是当任一个文本框内容改变时设置第2个文本框的字号是第1个文

本框字号的2倍，同时两个文本框显示相同的文字。假如用户没有使用控件数组的

Index属性的默认值程序将执行到Else分支。

5、在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有

若干个键，它们称为该表的()。

A、连接码

B、关系码

C、外码

D、候选码

标准答案：D

知识点解析：在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表

中可能有若干个键，它们称为该表的候选码或候选键。从二维表的所有候选键中选

取一个作为用户使用的键称为主键或主码。

6、下列数据结构中，能用二分法进行查找的是()。

A、无序线性表

B、线性链表

C、二叉链表

D、顺序存储的有序表

标准答案：D

知识点解析：二分法查找只适用于顺序存储的有序表，表中的元素按值从小到大排

列。

7、下列排序方法中，最坏情况下比较次数最少的是()。

A、冒泡排序

B、简单选择排序

C、直接插入排序

D、堆排序

标准答案：D

知识点解析：冒泡排序、直接插入排序与简单选择排序法在最坏情况下均需要比较

n(n-l)/2次,而堆排序在最坏情况下需要比较的次数是nlog2no

8、下列选项中，不属于数据管理员(DBA)职责的是()。

A、数据库维护

B、数据库设计

C、改善系统性能，提高系统效率

D、数据类型转换

标准答案：D

知识点解析：数据库管理员(DaiaBaseAdminislralor,DBA)是指对数据库的规划、

设计、维护、监视等的人员，其主要工作如下：数据库设计。DB