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

家二级(VB)机试模拟试卷第1套

一、选择题(本题共40题，每题1.0分，共40分。)

1、为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为()。

A^DimpiAsInteger

B、Dimpi(7)AsInteger

C、DimpiAsSingle

D^DimpiAsLong

标准答案：C

知识点解析：单精度Single或双精度Double型的变量能够保存浮点型小数，整型

Integer和长整型Long的变量只能保存整型数据。本题中圆周率为3.14159,小

数，可用定义一个Single或Double型变量来保存。故选C。

2、窗体上有1个名为Listl的列表框，其中已经输入了若干个项目(如图3所示);

还有2个文本框，名称分别为TextKText2,1个名称为Commandl的命令按钮,

并有以下程序。图3PrivateSubCommand1Click()Dim

strAsString,SAsString,kAsIntegers=Textl：str="''Fork=Listl.ListCount.1

To0Step—1IfInStr(List1.List(k),s)>0Thenstr=str&List1.List(k)&""EndIf

NextkIfstr="o，ThenText2="没有匹配项目"ElseText2=strEndIfEndSub程序运行

时，在Textl中输入“京”，单击命令按钮，则在Text2中显示的内容是()。

A、京

B、北京南京

C、南京北京

D、没有匹配的项目

标准答案：C

知识点解析：本题考查循环程序的分析以及列表框属性的应用。函数

InStr(IAstl.List(k),s)的作用是在Listl.IAst(k)中从头开始寻找s,找不到就返回

0,否则返回s在Listl.IAst(k)中的位置。整个循环的功能是，从列表框中最后一

个列表项开始寻找含有与Textl中字符串相同的子串，如果存在相同的子串，把

Listl.List(k)全部连接至］str中,并显示在Text2中。

3、已知AS="Welcome"，下列语句操作能够正确执行的是()。

A、Label1.Height=AS

Labell.Caption=AS

C、Label1.Enabled—AS

D、Label1.Visible=AS

标准答案：B

知识点解析：本题考查标签的各种属性。标签的Height属性值为数值型，不能赋

字符串型值，而Enabled和Visible为布尔型，只有Caplion属性值为字符串型。

4、在窗体上有一个文本框Textl和一个标签Labell,要求运行程序时，在文本框

中输入的内容立即显示在标签中（如图1所示），则空白处应填入的内容是（）。

图1PrivateSubTextI（）Label1.Caption=Textl.TextEnd

Sub

A、GetFocus

B、Click

C、Change

D、LostFOCBS

标准答案：C

知识点解析：本题考查文本框的事件。文本框的GetFocus事件为文本框获得俵点

时触发一次，而单击文本框时触发一次Click事件，Change事件是每次文本框中的

文本发生改变时触发的事件，而LostFocus事件是文本框失去焦点时触发的事件。

5、软件设计中划分模块的一个准则是（）。

A、低内聚低耦合

B、高内聚低耦合

C、低内聚高耦合

D、高内聚高耦合

标准答案：B

知识点解析：一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之

间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。

6、如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（）。

A、它的Yl、Y2属性的值相等

B、它的XI、X2属性的值相等

C、它的xl、Y1属性的值分别与X2、Y2属性的值相等

D、它的XI、X2属性的值分别与Yl、Y2属性的值相等

标准答案：B

知识点解析：Line控件有四个属性分别为XI、Yl,X2、Y2,分别代表两个端点

的横坐标和纵坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即

Xl=X2o

7、下面不能在信息框中输出“VB”的是（）。

A、MsgBoxWB"

B、x=MsgBox（nVB"）

C、MsgBox（”VB”）

D、CallMsgBox"VB"

标准答案：D

知识点解析：Msgbox的功能：显示消息提示框，存墙话框中显示提示消息，等待

用户单击按钮，单击不同的按钮返回不同的整数。MsgBox函数格式：变量

=MsgBox（〈提示内容样式标题］），注意MsgBox函数带括号，有返回值；

MsgBox语句格式：MsgBox（〈提示内容＞［,样式］［,标题］）,有无括号都可以，无

返回值。选项D中用Call语句调用MsgBox函数，要符合Call语句的语法规则：

Call函数名（实参表）,缺少括号，应该为CallMsgBox。VB”）,语法才正确。故D

选项不能输出“VB”，会出错。

8、一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工

作人员与实体计算机之间的联系是（）。

A、一对一

B、一对多

C、多对多

D、多对一

标准答案：C

知识点解析：因为一个人可以操作多个计算机，而一台计算机又可以被多个人使

用，所以两个实体之间是多对多的关系。

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

A、VisualBasic是事件驱动型可视化编程工具

B、VisualBasic应用程序不具有明显的开始和结束语句

C、VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性

D、VisualBasic中控件的某些属性只能在运行时设也

标准答案：C

知识点解析：VB工具箱中不是所有的控件都具有宽度和高度属性，比如定时器控

件Timer、直线控件Line就没有。故C选项错误。

10、关于菜单设计，下列叙述中错误的是（）。

A、弹出式菜单也在菜单编辑器中定义

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

C、程序运行过程中，可以重新设置菜单的Visible属性

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

标准答案：D

知识点解析：本题考查菜单设计。VB中所有的菜能都是在菜单编辑器中定义的。

定义菜单时后面的字母为访问该菜单项的访问犍，每个菜单项都要有惟一的名

字，在程序运行中可以艰据名字来更改菜单的Enabled、Visible等属性。不同名称

的菜单的标题可以相同。

11、表达式Sgn(0.25)的值是()<,

A、-1

B、0

C、1

D、0.5

标准答案：C

知识点解析：Sgn函数是符号函数，正数返回1,负数返回一1,0返回0。本题中

0.25是正数，所以返回1,故C选项正确。

12、组合框是文本框和()特性的组合。

A、复选框

B、标签

C、列表框

D、目录列表框

标准答案：C

知识点解析：本题考查组合框。组合框控件(ComboBox)是将文本框和列表框的功

能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中

直接输入文本内容来选定项目。

13、设a=uVisualBasic"，下面语句中可使b="Basie”的是()。

A、b=Left(a,8)

B、b=Mid(a,8,5)

C、b=Right(a,8)

D、b=Left(a,8,5)

标准答案：B

知识点解析：考查字符串处理函数。字符串函数Left以及Right表示从主串的左边

或者右边开始取连续个字符构成子串，函数有两个参数，第一个参数为字符串，第

二个参数为整数。而Mid函数表示从主串中的某个字符开始连续取若干个字符构

成子串。

14>在正确安装VisualBasic6.0后，可以通过多种方式启动VisualBasic6.0。

以下方式中，不能启动VisualBasic6.。的是()。

A、通过“我的电脑”找到vb6.exe,双击该文件名

B、进入DOS方式，执行vb6.exe文件

C、通过“开始”菜单中的“运行”命令

D、通过“开始”菜单中的“程序”命令

标准答案：B

知识点解析：本题考查VB6.0环境的启动。正确安装了VB以后，最常用的启动

模式是通过“开始”菜单,选择“程序”命令,启动VisualBasic的程序；如果“开始”

菜单没“启动”文件，则可在硬盘中寻找VB安装文件夹，找到VB6.exe可执行文

件，双击运行；如果了解运行路径，则可在“运行”中直接输入可执行文件名，即可

运行。注意：VB6.exe是Windows下的应用软件，不能脱离Windows操作系统

运行。

15、窗体上有文本框Textl和一个菜单，菜单标题、名称见表，结构如图2所示。

要求程序执行时单击,、保存”菜单项，则把其标题显示在lextl文本框中，下面可实

现此功能的事件过程是()。图2

A、PfivateSubsave_Click()save一Click()Textl.Text二file.save.CaptionEndSub

PrivateSubsaveClick()Textl.Text=save.CaptionEndSub

C、PrivateSubfileClick()Textl.Tcxt=file.save.CaptionEndSub

D、PrivateSubfileClick()Textl.Text=save.CaptionEndSub

标准答案：B

知识点解析：本题考查菜单事件。菜单建立以后，对于每个菜单项要进行编写程

序，才可以进行处理，单击“保存”命令时，代码窗体自动出现事件过程：Private

Subsave_Click()EndSub在程序之间加上Textl的Text属性改变代码即可。

16、下列关于二叉树的叙述中，正确的是()。

A、叶了结点总是比度为2的结点少个

B、叶子结点总是比度为2的结点多一个

C、叶子结点数是度为2的结点数的两倍

D、度为2的结点数是度为1的结点数的两倍

标准答案：B

知识点解析：根据二叉树的基本性质3：在任意一棵二叉树中，度为。的叶子结点

总是比度为2的结点多一个。所以选择B。

17、在窗体上画一个命令按钮(名称为Commandl),并编写如下代码：Function

Fun1(ByVaiaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-b

b=t+aFunl=l+bEndFunctionPrivateSubCommand1_Click()DimxAs

Integerx=10PrintFunl(Funl(x,(Funl(x,x-1))),x—1)EndSub程序

运行后，单击命令按钮，输出结果是()。

A、10

B、0

C、Il

D、21

标准答案：B

知识点解析：本题是过程的嵌套调用，过程嵌套调用时要先计算最内层的过程，然

后由里向外执行。因此Funl(Funl(x,(Funl(x,x-1))),x—1)执行过程如下：先

执行Funl(x,x-1),由于形参a是按值传递，因此不会影响x的值，x=10,即

Fun1(10,9)ot=l,b=l+10=ll,则函数返回值为1+11=12。再执行Funl(x,

(Funl(x,x-1))),由于内层过程返回12,因此又可写成Funl(x,(12)),由于x仍

为原值，因此过程即Funl(10/2)。t=-2,b=-2+10=8,则函数返回值为-2+

8=6。最后执行Funl(Funl(x,(Funl(x,x-I))),x—1),即Funl(6,x—1),由

于x仍为原值，因此过程即为Funl(6,9)。t=—3,b=—3+6=3,则函数返回值为

—3+3=0。

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

Commandl_Click()Dimarr_x(5,5)AsIntegerFori=1To3Forj

=2To4arr_x(i,j)=i*jNextjNextiPrint

arr_x(2,1)；arr_x(3,2)；arr_x(4,3)EndSub运行程序，并单击命令按钮，窗

体上显示的内容为()o

A、060

B、260

C、0612

D>2612

标准答案：A

知识点解析：程序定义了一个二维数组，然后利用For循环对其中部分元素赋值，

没有得到赋值的元素值为0。赋值元素的第1维范围是1〜3,第2维范围是2〜

40因此在输出语句中，arr_x(2,l)第2维不在赋值范围所以此元素值=0,

arr_x(3,2)两维都在赋值范围内所以此元素值为3］。

19、关系数据模型的三个组成部分中不包括()。

A、关系的完整性约束

B、关系的数据操纵

C、关系的数据结构

D、关系的并发控制

标准答案：D

知识点解析：关系数据模型的三个组成部分：数据结构，操作集合(数据操纵)，完

整性约束。故本题答案为D选项。

20、组合框兼有两种控件的特性，这两种控件是()，

A、标签和文本框

B、列表框和文本框

C、复选框和单选按钮

D、标签和列表框

标准答案：B

知识点解析：组合框(ComboBox)是由组合列表框和文本框的特性而成的控件。也

就是说组合框是一种独立的控件，但它兼有列表框和文本框的功能。它可以像列表

框一样，让用户通过鼠标选择所需要的项目，也可以像文本框一样，用键人的方式

选择项目。故B选项叙述正确。

21＞设窗体上有一个水平滚动条HScrolll和一个命令按钮CommandI,及下面的事

件过程：PrivateSubForm_Load()HScrolll.Min=0HScrolll.Max=100

EndSubPrivateSubCommandl_Click()HScrolll.Value=70EndSub程序运行时

A)；11-1-----

B)W，一

oMTTTOI

单击命令按钮，则滚动条上滚动块位置的图示是()。D)

A、

B、

C、

D、

标准答案：C

知识点解析：题目中程序运行时设置了水平滚动条所能表示的最小值为0,能表示

的最大值为100,当单仃命令按钮时，设置水平滚动条的当前位置为70,即在水平

滚动条中部偏右的位置，按各个选项图形的所示，C选项的图示与题目相符。

22、以下关于VB文件的叙述中，正确的是

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

B、一个.vbg文件中可以包括多个.vbp文件

C、一个.vbp文件只能含有一个标准模块文件

D、类模块文件的扩展名为.bas

标准答案：B

知识点解析：标准模块文件的扩展名是.bas；工程组文件的扩展名是.vbg,由多个

工程文件组成；工程文件的扩展名是.vbp,可以含有多个标准模块文件；类模块文

件的扩展名为.cis。

23、下列关于控件数组的叙述中，正确的是()。

A、控件数组可以由不同类型的控件组成

B、控件数组元素的最小下标值为1

C、在设计阶段，可以改变控件数组元素的Index属性值

D、控件数组的名字由Caplion属性指定

标准答案：C

知识点解i斤：控件数组必须用同类型的控件组成。最小下标为0,控件数组的名字

由Name属性指定。选C。

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

如下：PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerx=

ValQnputBox（"输入整数"））y=ValQnpulBox（"输入整数"））PrintStr（fun（x,y）+x+y）

EndSubPrivateFunctionfun（ByRefmAsInteger,ByVainAsInteger）m=m*mn=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

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

PrivateSubCommandl_Click（）Move500,500EndSub程序执行时，单击命令按

钮，实现的功能是（）。

A、命令按钮移动到距窗体左边界、上边界各500的位置

B、命令按钮向左、上方向各移动500

C、窗体移动到距屏幕左边界、上边界各500的位置

D、窗体向左、上方向各移动50。

标准答案：C

知识点解析：本题考查Move方法。Move方法移动窗体或控件，并可改变其大

小，具体的格式为：［对象.］Move左边距离［,上边距离［,宽度［,高度］］］,其中

对象可以是除时钟、菜单外的所有控件，省略时默认为窗体。Move方法的功能

是：把对象从当前位置移动到左上角坐标为（左边距离，上边距离）的位置，同时根

据高度和宽度参数来改变控件的高度和宽度。

26、需求分析阶段的任务是（）。

A、软件开发方法

B、软件开发工具

C、软件开发费用

D、软件系统功能

标准答案：D

知识点解析：需求分析是软件定义时期的最后一个阶段，它的基本任务就是详细调

查现实世界要处理的对象，充分了解原系统的工作概况，明确用户的各种需求，然

后在这些基础上确定新系统的功能。

27、下列可以打开立即窗口的操作是（）。

A、Ctrl+D

B、Ctrl+E

C、Ctrl+F

D、Ctrl+G

标准答案：D

知识点解析：快捷键打开的是添加文件对话框；快捷键打开的是菜单编辑器对话

框；快捷键不打开任何对话框；快捷键打开的是立即窗口。

28>设有如下程序：PrivateSubForm_Click()DimxAsInteger,pAsIntegerx=

InputBox("请输入一个整数")p=fee(x)PrintpEndSubFunctionfee(aAsInteger)Ifa

<20Theny=aElsey=20+aEndIffee=yEndFunction运行程序，单击窗体，在

输入对话框中输入20,单击“确定”按钮，输出结果为

A、10

B、20

C、3。

D、40

标准答案：D

知识点解析：程序主要是从输入对话框中得到一整数x,并将x作为参数，带入

fee(x)函数，返回p值，并输出。其中InpulBox是VisualBasic函数，功能是弹

出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输

入的文字，将返回用户输入的数字存储在x中；fee(x)为题目的一个函数。Function

fee(aAsImeger)中参数为整数a,当a<20时，返回值为a,否则返回值为20+a。

故可知当输入对话框中瑜入20时，x=20,执行p=fee(x)=20+20=40o故选项D

正确。

29、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的()属

性设置为Trueo

A、Value

B、Cancel

C、Enabled

D、Default

标准答案：D

知识点解析：本题考查捽件的常见属忤”对于所有具有Cancel属忤的捽件.

Cancel表示该控件是否当按下“Esc”键时，执行某个事件过程。Enabled表示控件是

否可以使用，命令按钮的默认属性为Defauk,表示当按下回车键的时候，执行某

个命令按钮的事件过程。

30、下列关于数据库设计的叙述中，正确的是()。

A、在需求分析阶段建立数据字典

B、在概念设计阶段建立数据字典

C、在逻辑设计阶段建立数据字典

D、在物理设计阶段建立数据字典

标准答案：A

知识点解析：数据字典是在需求分析阶段建立，在数据库设计过程中不断修改、充

实和完善的。

31、下列叙述中正确的是

A、每一个结点有两个指针域的链表一定是非线性结构

B、所有结点的指针域都为非空的链表一定是非线性结构

C、循环链表是循环队列的链式存储结构

D、线性结构的存储结点也可以有多个指针

标准答案：D

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

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

习惯称为线性表。双向链表结点具有两个指针域，属于线性结构，A选项错误。循

环链表所有结点的指针域都为非空，属于线性结构，B选项错误。循环链表是链

表，循环队列属于队列，队列只能在队尾入队，在排头退队，链表可以在任何位置

插入、删除，C选项错误。双向链表结点具有多个指针域，D选项正确。

32、下面描述中不属于数据库系统特点的是

A、数据共享

B、数据完整性

C、数据冗余度高

D、数据独立性高

标准答案：C

知识点解析：数据库系统的特点为高共享、低冗余、独立性高、具有完整性等，C

错误。

33、长整型常数的类型说明符为

A、%

B、#

C、&

D、@

标准答案：C

知识点解析：%：整型.#：双精度实型，&：长整型,货币型C

34、一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入

栈，然后再依次出栈，则元素出栈的顺序是()。

A、12345ABCDE

B、EDCBA54321

C、ABCDE12345

D、54321EDCBA

标准答案：B

知识点解析：栈是先进后出的原则组织数据，所以入栈最早的最后出栈，所以选择

Bo

35、编写如下程序：PrivateSubCommand1_Click()DimxAsString,yAsStringx=

Right(,rabcd",2)y=Mid(MdcbaM,2,3)Ifx>yThenPrintx+yElsePrinty+xEndIf

EndSub程序运行后，单击命令按钮Commands输出结果为

A、cdcba

cbacd

C>cbacd

D、cbcd

标准答案：A

知识点解析：Right（“abcd”,2）从字串的右边截取2个字符“cd"，Mid（"dcba",2,3）从

第二个字符开始截取3个字符“cba”然后判断x和y的大小。选A）。

36、若要清除列表框控件中的所有列表项，应该使用的方法是

A、Removeitem

B、Clear

C、Delete

D、Refresh

标准答案：B

知识点解析•：Clear方法用来清除列表框中的全部内容，格式为：列表框Clear。

37、某系统总体结构图如下图所示：该系统总体结构图的深度是（）。

A、7

B、6

C、3

D、2

标准答案：C

知识点解析：根据总体结构图可以看出该树的深度为3,比如：XY系统--功能2--

功能2.1,就是最深的度数的一个表现"

38、执行下列语句：strInput=InputBox（"请输入字符串“，"字符串对话框“，"字符

串“）将显示输入对话框。此时如果直接单击“确定“按钮，则变量strinput的内容是

（）。

A、请输入字符串

B、字符串对话框

C、字符串

D、空字符串

标准答案：C

知识点解析：InpulBox函数的格式：变量名=InpulBox（"提示信息”标题栏显示

信息”][,"输入文本框中默认值”][,X][,Y]）InputBox函数的功能：在一输入对话

框中显示提示，等待用户在输入文本框中输入数据，然后按下按钮，返回文本框内

容。如果用户单击“确定”按钮，则InputBox函数把输入文本框的内容作为一字符

串返回；如果没有输入数据，按“确定”按钮，则返回的是空字符串；如果按“取消”

按钮，则不管输入框有没有输入数据，都返回空字符串。根据以上所述，运行程

序，会出现一输入对话框，在上面有”请输入字符串”提示信息，标题栏中显示'字

符串对话框”，输入文本框中有默认值”字符串“，单击“确定”按钮后，文本框中的”

字符串”三个字作为字符串返回给sirinpul变量。所以Slrlnput变量的内容是”字符串

",故选C。

39、窗体上有一个名称为Commandl的命令按钮，一个名称为Textl的文本框，其

Text属性值为"VBProgramming”。运行程序后，选中其中的WB”，并执行如下事

件过程：PrivateSubCommandl_Click（）Texti.SelText="C++"EndSub则文本框中

显示的内容为

A、VB

VBProgramming

C、文本框被清空

D、C++Programming

标准答案：D

知识点解析：文本框SelText属性返回或设置包含当前所选择文本的字符串;如果没

有字符被选中，则为零长度字符串由题意知，选中“VB”，返回“C++”，所以结

果为"C++Programming'o

40、下面叙述中错误的是（）。

A、软件测试的目的是发现错误并改正错误

B、对被调试的程序进行“错误定位”是程序调试的必要步骤

C、程序调试通常也称为Debug

D、软件测试应严格执行测试计划，排除测试的随意性

标准答案：A

知识点解析：软件测试的目的是为了发现错误而执行程序的过程，并不涉及改正错

误，所以选项A错误。程序调试的基本步骤有：错误定位、修改设计和代码，以

排除错误、进行1国归测试.防I卜引进新的错误.程序调试通常称为Dehug.即排

错。软件测试的基本准则有：所有测试都应追溯到需求、严格执行测试计划，排除

测试的随意性、充分注意测试中的群集现象、程序员应避免检查自己的程序、穷举

测试不可能、妥善保存测试计划等文件。

二、基本操作题（本题共2题，每题1.0分，共2分。）

请根据以下各小题的要求设计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属

性设置，默认文件名由FilcName属性设置，标题由DialogTi加属性设置。

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、在考生文件夹下有一个工程文件Sjt4.vbp,相应的窗体文件为sjt4.frm,在

窗体上有一个文木框和一个命令按钮.程序运行后，单击命令按钮，即可计算出1

一1000范围内能被7整除或被5整除的整数的个数，并显示在文本框中。在窗体

的代码窗口中，已给出了部分程序，其中计算能被7整除或能被5整除的整数的个

数的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中

的任何内容，只在FunctionFun()和EndFunction之间填入你编写的若干语句。最

后将修改后的文件按原文件名存盘。

标准答案：步骤1：打开本题工程文件。步骤2：分析并编写程序代码。Function

Fun()DimSAsInteger,iAsIntegerFori=lTo1000IfiMod5=0OriMod7=0Then

8=s+1EndIfNextiFun二sEndFunction步骤3：调试并运行程序,关闭程序后按题

目要求存盘。

知识点解析：本题要求的是1000以内能被5或7整除的数的个数。在VisualBasic

中，使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为

0,则表示可以整除，否则不能整除。

四、综合应用题(本题共I题，每题1.0分，共I分。)

44、在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体，标题分别为“启

动”、“注册”、“登录”，程序运行时显示“启动”窗体，单击窗体上按钮时弹出对应

窗体进行注册或登录。注册信息放在全局数组uSers中，注册用户数(小于或等于

10个)放在全局变量n中(均已在标准模块中定义)。注册时用户名不能重复，且“口

令”与“验证口令”必须相同，注册成功则在“启动”窗体的标签中提示“注册成功”，

否则提示相应错误信息。登录时.检验用户名和口令,若正确,则在“启动”窗体的

标签上提示“登录成功”，否则提示相应错误信息。标准模块中函数finduscr的功能

是：在users数组中搜索用户名(参数ch),找到则返回该用户名在users中的位置，

否则返回0。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的

注释符，把Form2、Form3窗体文件中的?改为正确的内容。注意：不得修改已经

存在的程序和控件的属性；最后，程序按原文件名存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗

口，去掉程序中的注释符“巾，将问号改为正确的内容。参考答案(画线部分是需考

生填入的内容)’Form2窗体代码PrivateSubCommandl_CIick()，清空重置Textl='u,

Text2=',nText3-EndSubSubwriteusers。'向数组users中写入新用户信息n=n+T

用户数目自增users(n,1尸Textl'保存用户的用户名、密码users(n,2)=Text2End

SubPrivateSubCommand2_Click()IfText1=""ThenMsgBox("必须输入用户名!。

Textl.SetFocus'Textl重新获得焦点Elselfflnduser(Trim$(Textl))>0Then，如找到

相同名，则返回位置一定大于。MsgBox("此用户名已经存在!”)ElselfText2<>

Text3Then，比较口令与验证口令是否相同MsgBox("口令验证错误!")Elsewriteusers

FormLLabell="注册成功!”'当注册成功后Label1显示成功信息Form2.HideEndIf

EndSub'Form3窗体代码PrivateSubCommand!CliCk()k=finduser(Trim$(Textl))If

k=QThen吗佥证用户名是否存在MsgBox("没有注册!”)ElselfTrim$(Text2)<>

users(j^2)Thcn'验证输入的密码是否正确MsgBox("口令错误!")Else

Form1.Label1.Caption="登录成功!"Form3.HideEndIfEndSub步骤3：调试并

运行程序，关闭程序后女题目要求存盘。

知识点解析•：因为本题的窗体比较多，含有一个模块，所以首先要理清思路，了解

每一个窗体的功能。窗体1是启动界面，可以选择登录或者注册，窗体2是注册窗

口实现用户的注册，窗体3是登录窗口实现用户的登录，模块中函数的功能是在数

组中寻找用户名，并返回其所在的位置。理清了各个窗体和模块的关系，就可以开

始分析并编写代码了。

国家二级(VB)机试模拟试卷第2套

一、选择题(本题共40题，每题1.0分，共40分。)

1设有如下程序段:DimsAsInteger,nAsIntegers=0n=lDoWhiles=s+nn=n+l

LoopPrints以上程序段用来计算1+2+3+…+100的累加和，则在处应填入

的内容是()。

A、n<=100

B、n<100

C、n>100

D、n>=100

标准答案：A

知识点解析：DoWhile循环条件表达式[语句块][ExitDo]Loop若循环条件表达式

为True时，执行循环语句，当循环条件表达式为False时，结束循环。由题意知，

求1+2+……+100的累加和，应把循环条件表达式设置为"nV=100”,所以A选项

正确。

2、函数过程F1的功能是：如果参数a为奇数，则返回值为I,否则返回值为0。

以下能正确实现所述功能的代码的是()。

A^FunctionFl(aAsInteger)IfaMod2=0ThenReturn0ElseReturn1EndIfEnd

Function

B、FunctionFl(aAsInteger)IfaMod2=0ThenFl=0ElseFl=lEndIfEndFunction

C>FunctionFl(aAsInteger)IfaMod2=0ThenFl=lElseFl=0EndIfEndFunction

D、FunctionFl(aAsInteger)IfaMod2<>0ThenReturn0ElseReturn1EndIfEnd

Function

标准答案：B

知识点解析：本题考查程序的基本算法。定义函数过程时，要求计算结束以后，把

函数的返回值存放在过程名中，返回给调用函数。题目中a为奇数，条件为aMod

2=0时,返回0,否则返回1。

3、已知变量X、Y为整数型，且x=4,y=12,S为字符串型，且s=a,LblOk为标

签控件•，下列赋值语句不合法的是()。

A、x=LblOk.Caption

LblOk.caption=Str(x)

C、x*3=y

D、y=x*s

标准答案：c

知识点.析：本题考查标签控件的属性。标签控件Caption属性值为字符串，赋值

表达式要求赋值号左边必须是变量，不能出现表达式。

4、窗体上有名为Textl、Text2的两个文本框，和一个由3个单选按钮组成的控件

数组Oplionl,如图1所示。程序运行后，如果单击某个单选按钮，则执行Texll

中数值与该单选按钮所对应的运算(乘1、乘10或乘100),并将结果显示在Text2

中，如图所示。为了实现上述功能，在程序中的横线处应填入的内容是()。

..._▼J2_

图1图2PrivateSubOption1------

Clickl[一AsInteger)IfTextl.Text<>""ThenSelectCaseCase0：

TeXt2.Text=Textl.TextCase1：Text2.Text=Textl.Text*10Case2：

Text2.Text=TeXtl.Text*100EndSelectEndIfEndSub

A、Optionl.Index

B、Index

C、Optionl(Index)

D、Optionl(Index).Value

标准答案：B

知识点解析：本题考查控件数组元素的区分。控件数组由一组相伺类型的控件组

成。它们共用一个控件名，具有相同的属性，建立时系统给每个元素赋一个惟二的

索引号(Index),索引号从0开始。控件数组共享同样的事件过程，通过返回的下标

值区分控件数组中的各个控件。

5、以下叙述中正确的是()。

A、任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器

B、只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

C、只有当窗体设计窗口为当前活动窗体时，才能打开菜单编辑器

D、任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器

标准答案：c

知识点。析：本题考查菜单编辑器。在窗体设计界面中，可以使用“工具”菜单下的

“菜单编辑器”命令，或使用工具栏上的菜单编辑器命令，来打开菜单编辑器。在代

码窗口中，菜单编辑器命令为灰色的，不可以使用。

6、窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。窗

体文件的程序如下：PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSub

Commandl_Click()DimyAsxy.a=InputBox('M,)Ify.a\2=y.a/2Then

y.b=y.a*y.aElsey.b=Fix(y.a/2)EndlfTextl.Text=y.bEndSub对以上程

序，下列叙述中错误的是()。

A、x是用户定义的类型

B、InputBox函数弹出的对话框中没有提示信息

C、若输入的是偶数，y.b的值为该偶数的平方

D、Fix(y.&/2)把丫.a/2的小数部分四舍五入，转换为整数返回

标准答案：D

知识点解析：x是用户定义的一种变量类型，可以使用它来声明变量。

InputBoxC"，)函数的提示信息为“、即为空，因此弹出的对话框中没有提示信息。

在程序中通过比较输入的数被2整除和被2除的值是否相等来判定它是否为偶数，

如果是那么y.b的值就是y.a的值的平方。Fix函数是取整函数，它会删除小数

部分，直接取表达式的整数部分，不四舍五入，因此D选项错。

7、软件调试的目的是

A、发现错误

B、改善软件的性能

C、改正错误

D、验证软件的正确性

标准答案：C

知识点解析：在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是

诊断和改正程序中的错误。

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

()。

A、顺序输入方式

B、顺序输出方式

C、随机存取方式

D、二进制方式

标准答案：C

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

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

输出方式、Input指定顺序输入方式、Append指定顺序输出方式，它与Outpm不同

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

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

默认方式。

9、下列二叉树描述中，正确的是()。

A、任何一棵二叉树必须有一个度为2的结点

B、二叉树的度可以小于2

C、非空二叉树有0个或1个根结点

D、至少有2个根结点

标准答案：B

知识点解析：二叉树是由RO个结点的有限集合构成，此集合或者为空集，或者由

一个根结点及两棵互不相交的左右子树组成，并且左右子树都是二叉树。二叉树可

以是空集合，根可以有空的左子树或空的右子树。二又树不是树的特殊情况，它们

是两个概念。二叉树具有如下两个特点：①非空二叉树只有一个根结点。②每一

个结点最多有两棵子树，且分别称为该结点的左子树与右子树。

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

A、在通用过程中，多个形式参数之间可以用逗号作为分隔符

B、在Print方法中，多个输出项之间可以用逗号作为分隔符

C、在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D、当一行中有多个语句时，可以用逗号作为分隔符

标准答案：D

知识点解析：一般情况下，输入程序时要求一行只写一条语句。但语句行较短时也

可以将多个语句书写在同一行中，这时，语句之间使用冒号分隔。故D选项错

误。

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

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

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

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

D、窗体没有KeyPress事件

标准答案：C

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

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

KeyPress事件。ASCII字符键包括标准键盘上的字符、数字、标点符号、、和键

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

件。故C选项正确。

12、使用Open语句可以打开或建立文件，并同时指定文件的输入输出方式。下列

输入输出方式中错误的是（）。

A、Random

Output

C、Sequential

D、Append

标准答案：C

知识点解析：使用Open语句可以打开或建立文件，并同时指定文件的输入输出方

式，可以是下述操作之一：©Output：指定顺序输出方式。©Input：指定顺序输

入方式。③Append：指定顺序输由方式，与Output不同的是，当用Append方式

打开文件时，文件指针被定位在文件末尾。©Random：指定随机存取方式，也是

默认方式。⑤Binary：指定以二进制方式打开文件。故本题C选项不是文件的输

入输出方式。本题选择C选项。

13、命令按钮Commandl的事件过程如卜.:PrivateSubCommandl_Click()

Dimarr(5,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To4

Forj=2To4arr(i,j)=i+jNextjNextiPrint

arr(l,3)+arr(3,4)EndSub执行上述过程，输出结果是()。

A、6

B、7

C、11

D、12

标准答案：C

知识点解析：当用Dim语句定义数组时，该语句把数组中的全部元素都初始化为

0,而把字符串数组中的全部元素都初始化为空字符串。程序中利用For循环为数

组arr的部分元素赋值这些元素的第一维范围是1〜4,第二维的范围是2〜4,值

为两维下标的和。程序要输出arr(l，3)+arr(3,4)的值，arr(l,3)值为1+3=

4,arr(3,4)值为3+4=7。4+7=11,因此程序输出结果为11。

14、设窗体上有2个直线控件Linel和Line2,若使两条直线相连接，需满足的条

件是()。

A、Linel.Xl=Line2.X2且Linel.Yl=Line2.Y2

B、LineI.XI-Line2.Y1且Line1.Y1-Line2.X1

C、Linel.X2=Line2.Xl且Linel.Yl=Line2.Y2

D、LineLX2=Line2.Xl且Linel.Y2=Line2.Y2

标准答案：A

知识点解析：直线控件的XI、Y1和X2、Y2属性分别表示直线两个端点的坐标，

即(XI,Y1)和(X2,Y2)。如果要使两条直线相连，显然这两条直线的某一端点的

坐标相同才行。因此本题需要Linel.Xl=Linc2.Xl且Linel.Yl=Line2.Yl,或

Linel.X1=Line2.X2且Linel.Yl=Line2.Y2,或Linel.X2=Line2.X1且Linel.Y2=

Line2.Yl,或Linel.X2=Line2.X2且Linel.Y2=Line2.Y2。因此A选项正确。

15、(39)编写如下程序:PrivateSubCommand!—Click()DimmAsInteger,nAs

Integern=2Form=lTo3Printproc(n)；NextmEndSubFunctionproc(iAsInteger)

DimaAsIntegerStaticbAsIntegera=a+lb=b+lproc=a*b+iEndFunction程序运行

后,单击命令按钮Commandl,输出结果为()。

A、333

B、345

C、356

D、123

标准答案：B

知识点解析：变最b定义为Sialic!即静态变量，它的特点是每次调用都会保留上次

的值。程序click事件中调用了3次proc(n),即pm*)：第一次，a=a+l=0+l=L

b=b+l=0+1=1.proc=a*b+i=1*1+2=3：第二次，a=a+l=O+l=1»

b=b+I=l+l=2.proc=a*b+i=1*2+2=4：第三次，a=a+1=0+1：1,b=b+1=2+1=3>

proc=a*b+i=l*3+2=5：因此输出结果为345。

16、下面不属于软件工程j三要素的是()。

A^需求

B、方法

C、工具

D、过程

标准答案：A

知识点解析：软件工程包括3个要素，即方法、工具和过程。本题答案为A。

17、设有如下函数：FunctionDelSpace(chAsString)AsIntegerDimn%,st$,

c$st=,,nn=0Fork=11oLcn(ch)c=Mid(ch,k,1)

Ifc<>""Thenst=st&cElsen=n+1

EndIfNextkch=stDelSpace=nEndFunction函数的功能是()。

A、统计并返回字符串ch中字符的个数

B、删除字符串ch中的空格符，返回删除字符的个数

C、统计并返回字符串ch中非空格字符数

D、删除字符串ch中除空格符外的其他字符，返回删除字符的个数

标准答案：B

知识点解析•：过程中对，专入的字符串的字符一个个取出，判断如果不是空格则依次

连接到一个字符串变量中，如果是空格则订数加L最后，返回不包含空格的字符

串和空格的个数。因此选项B正确。

18、窗体的Mouseup事件过程如下：PrivateSubForm_MouseUp(ButtonAs

Integer,ShiftAs：Integer,XAsSingle,YAsSingle)...EndSub关于以上定义,

以下叙述中错误的是()c

A、根据shift参数，能够确定使用转换键的情况

B、根据x、Y参数可以确定触发此事件时鼠标的位置

C、Button参数的值是在MouseUp事件发生时，系统自动产生的

D、MouseUp是鼠标向卜移动时触发的事件

标准答案：D

知识点解析：MouseUp事件是鼠标松开时触发的事件过程，事件过程的Button参

数值由系统产生，为被按下的键，Shift参数表示Shift、Ctrl和Alt键的状态，X、

Y参数表示光标的当前位