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

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

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

1、以下选项中,不合法的VisualBasic的变量名是（）。

A、a5b

B、_xyz

C、a_b

D^andif

标准答案：B

知识点解析：VB中变量的命名规则为：①必须以字母或汉字开头②由字母、汉

字、数字或下划线组成③不能使用VB已经占用的关键字。本题选项B中变量名

以下划线开头，不合法。故B选项错误。

2、在窗体上画一个命令按钮（其Name属性为Commandl）,然后编写如下代码：

OptionBase1PrivateSubCommand1_Click（）Dimaa=Array（1,2,3,4）：j=lFor

i=4To1Step-1S=S+a（i）*j：j=j*10NextiPrintsEndSub运行上面的程序,单击命

令按钮，其输出结果是（）。

A、4321

B、12

C、34

D、1234

标准答案：D

知识点解析：本题考查累加运算。s为求和项，a⑴*j为每一项，i的变化为4到

1,j的变化为10的倍数。因此求和s为：4*1+3*10+2*100+1*1000,结果为

1234o

3、在VisualBasic中,所谓“文件”指的是（）。

A、内存中的全部程序和数据

B、内存中的全部指令

C、存放在外部介质上的数据的集合

D、用打印机打印出来的程序清单

标准答案：C

知识点解析：在计算机科学技术中，常用“文件”这一术语来表示输入输出操作的对

象。所谓“文件”，是指记录在外部介质上的数据的集合。所以C选项叙述正确。

4、下列程序执行后，变量X的值为（）。Dima,b,c,dAsSingleDimxAsSingle

a=10：b=30：c=400Ifb>aThend=a：a=b：b=dEndlfIfb>CThenx=b

Elselfa>CThenx=CElsex=aEndIf

A、10

B、30

C、400

D、430

标准答案：B

知识点解析：本题考查选择语句的程序分析。If语句的执行是If条件表达式值为

True时执行If分支，否则执行Elself分支或者结束。本题中首先判断b>a成立，

因此a、b的值交换；接下来由于b>c不成立，a>c也不成立，因此x的值为a。

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

String*10TelAsString*20EndTypePrivateSubCommandl_Click（）DimpAsRType

p.Name=InputBox（"姓名"）pTel=lnputBox（"电话号"）Open"Books.datHForRandom

As#lPut#l,,pClose#1EndSub该程序运行时有错误，修改的方法是（）。

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

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

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

D、Pul语句应该写为Pul#1,p.Name,p.Tel

标准答案：A

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

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

在前面加工关键字Private。Open语句中使用ForRandom表示文件以随机方式存

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

数组变量外的任何变量。

6、下列关于栈的叙述正确的是（）o

A、栈按“先进先出“组织数据

B、栈按“先进后出”组织数据

C、只能在栈底插入数据

D、不能删除数据

标准答案：B

知识点解析：栈是按“先进后出”的原则组织数据的，数据的插入和删除都在栈顶进

行操作。

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

（）。

A、顺序输入方式

B、顺序输出方式

C、随机存取方式

D、二进制方式

标准答案：C

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

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

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

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

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

默认方式。

8、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（）。

A、1

B、2

C、3

D、4

标准答案：B

知识点解析：窗体的Borderstyle属性是用来设置窗体的边框样式的。属性值1为

FixedSingled为FixedDialog。为FixedToolWindow,设置为这3个属性值都不能

改变窗口大小。2是Sizable,表示窗体大小可以改变。故选B。

9、面向对象方法中，继承是指（）.

A、一组对象所具有的相似性质

B、一个对象具有另一个对象的性质

C、各对象之间的共同性质

D、类之间共享属性和操作的机制

标准答案：D

知识点解析：继承是面向对象的方法的一个主要特征，是使用已有的类的定义作为

基础建立新类的定义技术。广义的说，继承是指能够直接获得已有的性质和特征，

而不必重复定义它们，所以说继承是指类之间共享属性和操作的机制。

10、软件按功能可以分为应用软件、系统软件和支撑软件（或工具软件）。下面属于

应用软件的是（）。

A、学生成绩管理系统

B、C语言编译程序

C、UNIX操作系统

D、数据库管理系统

标准答案：A

知识点解析：软件按功能可以分为：应用软件、系统软件、支撑软件。操作系统、

编译程序、汇编程序、网络软件、数据库管理系统都属于系统软件。所以B、C、

D都是系统软件，只有A是应用软件。

11、下列方法中，不属于软件调试方法的是（）。

A、回溯法

B、强行排错法

C、集成测试法

D、原因排除法

标准答案：C

知识点解析：软件调试主要采用以下三种方法：强行排错法：作为传统的调试方

法，其过程可概括为设置断点、程序暂停、观察程序状态、继续运行程序。回溯

法：该方法适合于小规模程序的排错、即一旦发现了错误，先分析错误征兆，确定

最先发现“症状”的位置。原因排除法：原因排除法是通过演绎和归纳，以及二分法

来实现。

12、在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和

Textl,再编写如下程序：DimssAsStringPrivateSubTextl_KeyPress(KeyAsciiAs

Integer)IfChr(KeyAscii)<>"",Thenss=ss+Chr(KeyAscii)EndSubPrivateSub

Commandl_Click()DimmAsString,iAsIntegerFori=Len(ss)To1Step—

1m=m+Mid(ss,i,l)NextTextl.Text=UCase(m)EndSub程序

运行后，在文本框中输入"Number100”，并单击命令按钮，则文本山中显示的是

()o

A、NUMBER100

B、REBMUN

C、REBMUN100

D、001REBMUN

标准答案：D

知识点解析：题目中程序是将ss字符串进行反向排列，并放到m中去。其中

Number空格后的100被当成字符串来处理，最后结果是将”Number100”反向排

列，并通过UCase()函数将所有字母转换成大写，得至I]001REBMUN。

13、窗体上有一个名称为Vscmul的滚动条，当用鼠标拖动滚动条中的滚动块时，

触发的事件是()。

A、Click

B、KeyDown

C、DragDrop

D、Scroll

标准答案：D

知识点解析：用鼠标拖动滚动条中的滚动块，说明在滚动条上有拖动、滚动的动

作，所以触发滚动条的Scroll事件，故选D。

14、下面描述中，不属于软件危机表现的是()。

A、软件过程不规范

B、软件开发生产率低

C、软件质量难以控制

D、软件成本不断提高

标准答案：A

知识点解析：软件危机主要表现在：软件需求的增长得不到满足；软件开发成本和

进度无法控制；软件质量难以保证；软件不可维护或维护程度非常低；软件的成本

不断提高；软件开发生产率的提高赶不上硬件的发展和应用需求的增长。所以选择

Ao

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

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

A、Random

Output

C、Sequential

D、Append

标准答案：C

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

式，可以是下述操作之一：①Oulpul：指定顺序输出方式。②Inpul：指定顺序输

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

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

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

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

16、设某二叉树的后序序列与中序序列均为ABCDEFGH,则该二叉树的前序序列

为（）。

A、HGFEDCBA

B、ABCDEFGH

C、EFGHABCD

D、DCBAHGFE

标准答案：A

知识点解析：二叉树遍历可以分为3种：前序遍历［访问根结点在访问左子树和访

间右子树之前）、中序遍历（访问根结点在访问左子树和访问右子树两者之间）、后序

遍历（访问根结点在访问左子树和访问右子树之后）。二叉树的后序序列与中序序列

相同，说明此树结点没有右子树，且最后一个节点H为根节点，而前序遍历中根

节点应在最先被访问，即节点H在最先出现，由此推断前序遍历为HGFEDCBA,

故A选项正确。

17、为了清除列表框中由定的项目，应使用的方法是（）。

A、Cis

B、Clear

C、Remove

D、Removeitem

标准答案：D

知识点解析：清除列表框中的指定内容要使用Re-movehem方法，格式为：

Removeitem（索引值），只要指定要清除项目的索引值就可以清除指定项日。如果要

清除列表框中的全部内容可以使用Clear方法。

18、下面关于命令按钮的叙述中错误的是()。

A、命令按钮上可以显示图片

B、命令按钮上的文字就是其Caption属性的值

C、在程序运行过程中，不能改变命令按钮的标题

D、运行程序时，当命令按钮获得焦点后，按下Enter键也能激活它的Click事件

标准答案：C

知识点解析：在程序运行过程中，可以改变命令按钮的标题。

19、窗体上有一个名称为VScrolll的垂直滚动条，为了设定单击滚动条两端箭头

时的Value增量值，应设置的属性是

A、LargeChange

SmallChange

C、Max

D、Min

标准答案：B

知识点解析：SmallChange属性表示当用户单击滚动条两端的箭头时，Value属性

值的增加或减小的量，默认值为1。

20,下列叙述中正确的是

A、循环队列中的元素个数随队头指针与队尾指针的变化而动态变化

B、循环队列中的元素个数随队头指针的变化而动态变化

C、循环队列中的元素个数随队尾指针的变化而动态变化

D、以上说法都不对

标准答案：A

知识点解析：在循环队列中，用队尾指针rear指向队列中的队尾元素，用排头指

针front指向排头元素的前一个位置。因此，从排头指针front指向的后一个位置直

到队尾指针rear指向的位置之间所有的元素均为队列中的元素。所以循环队列中

的元素个数与队头指针和队尾指针的变化而变化，A正确.

21、窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应

使用的语句是()。

A、PrintCbl.Selected

B、PrintCbl.List(Cbl.Listindex)

C、PrintCbl.Selected.Text

D、PrintCbl.List(Listlndex)

标准答案：B

知识点解析：组合框的属性Listindex返回当前所选项目的索引号，List(Index)属性

返回指定索引号的列表项内容，因此返回当前选定的列表项应该用

Cbl.List(Cbl,Listlndex)o

22、用来设置文字字体是否斜体的属性是()。

A、FontUnderline

B>FontBold

C>FontSlope

D^Fontltalic

标准答案：D

知识点解析：FontUndedine属性设置文字是否有下划线；FonlBoki属性是设置文

字是否加粗；Fontltalic属性是设置文字是否斜体；没有FontSlope属性。故选D。

23、在软件设计中不使用的工具是()。

A、系统结构图

B、PAD图

C、数据流图(DFD图)

D、程序流程图

标准答案：C

知识点解析：系统结构图是对软件系统结构的总体设计的图形显示。在需求分析阶

段，已经从系统开发的角度出发，把系统按功能逐次分割成层次结构，是在概要设

计阶段用到的。PAD图是在详细设计阶段用到的。程序流程图是对程序流程的图

形表示，在详细设计过程中用到。数据流图是结构化分析方法中使用的工具，它以

图形的方式描绘数据在系统中流动和处理的过程，由于它只反映系统必须完成的逻

辑功能，所以它是一种功能模型，是在可行性研究阶段用到的而非软件设“时用

到，所以选择C

24、以下语句或语句组中，不能找出x、y中最大值的是

A、Ify>xThenMax=y:Max=x

B、Max=x:Ify>=xThenMax=y

C^Ifx>yThenMax=xElseMax=y

D、Max=IIf(x>y,x,y)

标准答案：A

知识点解析：A项语句组中执行IfThen语句后.都将x赋值给Max.不能找出最

大值，实际上，这个IF语句缺少Else,故选项A不能找出最大值；选项B和选项

C能找出最大值。IIF函数实际上可以理解成”If...Then...Else”的另外一种表现形

式，即Hf(条件，True部分，False部分)，其中条件为一逻辑表达式，当条件为

真(True)时,返回"True部分”;当条件为假(False)时，返回"False部分题

目中的Max=Hf(x>y,x,y)意思是如果x>y,则将x赋值给Max,否则将y赋值给

Max,选项D也能找出最大值。故答案选择A项。

25、为了将“联想电脑”作为数据项添加到列表框Listl的最前面，可以使用语句

()。

A、List1.Additem”联想电脑”，0

B、Listl.Additem”联想电脑”，1

C、List1.Additem0,”联想电脑”

D、Listl.Additem1,”联想电脑”

标准答案：A

知识点解析：为列表框控件添加数据的方法是Addllem,Lisi控件的Additem方法

的语法是：AddItem(String,index)＜,其中index是列表框中列表项的索引值,第一

项的索引值为0。

26、下面描述中不属于软件需求分析阶段任务的是

A、撰写软件需求规格说明书

B、软件的总体结构设计

C、软件的需求分析

D、软件的需求评审

标准答案：B

知识点解析：需求分析阶段的工作可以分为4个方面：需求获取、需求分析、编写

需求规格说明书和需求评审。故B选项正确。

27、以下数组定义语句中，错误的是()。

A、Statica(10)AsInteger

Dimc(3,1To4)

C、Dimd(-10)

D、Dimb(0To5,1To3)AsInteger

标准答案：B

知识点解析：定义数组有2种格式：第1种格式：数组每一维的只给出下标的上

界，即可以使用的下标的最大值。格式为Dim|public|private|slalic＜数组名＞(上界，

[上界..])[As类型名]形如：Dima(5)AsInterger,Dimb(4,5)AsInteger这种形式,

数组各维的下标的下界只能为。或1,而且下标的上界＞=下界。本题中C选项下

标上界一10＜0或1,故A选项正确，C选项错误。第2种格式：数组的每一维下

标的上界和下界都说明。格式为Dim|public|private|staticv数组名＞((下界to上

界)L(下界to上界)…])形如:Dima(—2to5)AsIntergerDima(lto3,2to6)As

【merger这种形式，数组各维下标的下界没有限制，只要保证下标的上界＞=下界就

行.故D选项fF确°以卜两种形式也可以混合使用.故R选项也正确“

28、编写如下程序：PrivateSubCommandl_Click()Dima(10)AsStrings=

"123456"n=Len(s)Fork=1Tona(k)=Mid(s,k,1)NextkFori=1Ton\2t=a(i)

a(i)=a(n-i+1)a(n-i+1)=tNextiFork=1TonPrinta(k);NextkEndSub程序运

行后，单击命令按钮Command1，输出结果为

A、654321

B、123456

C、654123

D、123654

标准答案：A

知识点解析：第一个For循环从字符串s中提取数字，赋值给数组a的元素。第二

个For循环对数组a中的元素实现倒序排列。第三个For循环实现打印。选A)。

29、假定有以下程序段：Fori=ITo3Forj=5To1Step-IPrint

i*jNextjNexti则语句Printi*j的执行次数是（）。

A、15

B、16

C、17

D、18

标准答案：A

外层F”循环从I到3兄3次.内房第环

知识点解析：从5到1.25次因此渺环体执行的次数是3~=15次

30、以下变量名中合法的是（）。

A、x—2

B、12abc

C^sum_total

D、print

标准答案：c

知识点》析：根据VB中变量名的命名规则，变量x—2中有一减号，不合法；变

量12abe是以数字开头，不合法；变量print是VB的保留字，不能作变量名，也

不合法。sum_lolal是符合命名规则，是合法的。故选C。

31、设有如下程序：PrivateSubForm_Click（）num=InputBox（"请输入一个实

数"）p=InStr（num,u."）Ifp>0ThenPrintMid（num,p+1）

ElsePrint"END"EndIfEndSub运行程序，单击窗体，根据提示输入

一个数值。如果输入的不是实数，则程序输出“END”：否则（）。

A、用字符方式输出该实数

B、输出该实数的整数部分

C、输出该实数的小数部分

D、去掉实数中的小数点，保留所有数码输出

标准答案：C

知识点解析：InStr函数查找小数点在输入的实数中的位置，如果找不到将返回0。

Mid函数一般有3个参数，从第2个参数指定的位置开始，在第1个参数字符串中

截取第3个参数指定长度的字符，第3个参数可以省略，这时就一直截取到字符串

尾部。因此程序的意思就是如果输入的是实数（p〉0即说明找到了小数点，是实数）

就输入该实数的小数部分，否则输出“END”。因此选项C正确。

32、下列循环中，可以正常结束的是（）。

A、i=10Doi=i+lLoopUntili<l

B、i=lDoi=i+1LoopUntili=10

C、i=10Doi=i+1LoopWhilei>l

D、i=10Doi=i-2LoopUntili=1

标准答案：B

知识点解析：选项A中先执行一次循环体，i的值变成I,测试循环结束条件，i<l

不成立，循环继续，i值总是增加，达不到循环结束条件，不能正常结束。选项B

先执行循环体，i值加1变成2,再测试循环结束条件i=10,继续循环，i值再加

1,直到i变为10,循环结束。选项C中i初值为10,先执行一次循环体，使i加

1,然后判断继续循环的条件i〉l是否成立，此后i值不会小于等于，循环会一直

继续下去，不会正常结束。选项D中i初值为10,每次循环i值减2,因此它总是

偶数，而循环结束的条件是i=l,不可能达到，循环会一直继续下去。

33、以下打开VisualBasic菜单编辑器的操作中，错误的是()。

A、执行“编辑“菜单中的“菜单编辑器”命令

B、执行“工具“菜单中的”菜单编辑器”命令

C、单击工具栏中的“菜单编辑器”按钮

D、右击窗体，在弹出的快捷菜单中选择”菜单编辑器”命令

标准答案：A

知识点解析•：在“编辑”菜单中没有”菜单编辑器”命令。故A选项错误。

34、在窗体上画2个名称分别为Textl和Text2的文本框，然后编写如下事件过

程：PrivateSubForm_Load()ShowTextl.Text="ABCDEF"Texl2.SetFocusEndSub

PrivateSubText1_GotFocus()Textl.SelStart=2Textl.SelLength=3EndSub运行程

序，单击Textl,该文本框中的内容为

A、显示ABCDEF,且BCD被选中

B、显示ABCDEF,且CDE被选中

C、显示BCD

D、显示CDE

标准答案：B

知识点解析：Form_Load方法即在Form窗体加载时，Tcxtl.Tcxt的值被赋值为

"ABCDEF'1,Texl2.Se【Focus将光标定于文本框Tex【2。Texll_Go〔Focus方法即在

Textl获得隹点时.Textl.SelStart=2从本文框起始位置为2,即C的位置.

Textl.SelLength=3设置选中长度为3。故正确答案为选项B。

35、为了读取数据，需打开顺序文件"D:\data5.txt"，以下正确的命令是

A、OpenD:\data5.txtForInputAs#1

B、Open"D:\data5.txt"ForInputAs#2

C、OpenD:\data5.txtForOutputAs#1

D、Open"D:\data5.txt"ForOutputAs#2

标准答案：B

知识点解析：打开顺序文件的基本格式为：Open”文件名称“ForModeAs#文件

号。”文件名称”表示要打开的文件的路径。Mode为打开模式：OutPut用于输出；

Append用于追加写入；Input用于读取。文件号为打开文件时指定的句柄(即文件

号)。

36、为了调整图像框的大小以与其中的图形相适应，必须把它的Streich属性设置

为()。

A、True

B、False

C、1

D、2

标准答案：B

知识点解析：图像框的St⑻he属性值为False时，将自动放大或缩小图像框中的图

形以与图像框的大小相适应。

37、窗体上的三个命令按钮构成名称为Commandl的控件数组。如图所示。

程序如下:PrivateSub

Commandl_Click(IndexAsInteger)IfIndex=1ThenPrint”计算机等级

考试"EndItItlndex=2ThenPrintCommandl(2).CaptionEnd

IfEndSub运行程序，单击”命令按钮2"，则如下叙述中正确的是()。

A、PrintCommand1(2).Caption语句有错

B、在窗体上显示"命令按钮2"

C、在窗体上显示"命令按钮3"

D、在窗体上显示"计算机等级考试”

标准答案：D

知识点解析：控件数组与数据数组一样下标默认从0开始，即本题中按钮控件数组

的Index值为0,1,2,分别对应命令按钮1、命令按钮2、命令按钮3。当单击命令

按钮2时，Index值为1,因此程序会输出“计算机等级考试”。

,1□1x|

Commandl

38、设有如图所示窗体和以下程序：PrivateSub

Commandl_Click()Text1.Text="VisualBasic"EndSubPrivateSub

Textl_LostFocus()IfTcxtl.Tcxt<>"BASIC"ThenText1.Text

Textl.SetFocusEndIfEndSub程序运行时，在Textl文本框中输入”Basic"如

图所示)，然后单击Commandl按钮，则产生的结果是()。

A、文本框中无内容，焦点在文本框中

B、文本框中为“Basic”，焦点在文本框中

C、文本框中为“Basic”，焦点在按钮上

D、文本框中为“VisualBasic”，焦点在按钮上

标准答案：A

知识点解析：题目程序的功能为，当单击命令按钮时，Tex”失去焦点，激发

Textl的LostFocus事件，在此事件中，程序判断文本框中字符串是否为“BASIC”，

如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示

"VisualBasic",如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会

执行命令按钮的单击事件过程。题目中输入了“Basic”，与"BASIC”不符，因此文本

框置空，焦点回到文本框中。

39、以下说法中正确的是（）。

A、事件过程也是过程，只能由其他过程调用

B、事件过程的过程名是由程序设计者命名的

C、事件过程通常放在标准模块中

D、事件过程是用来处理由用户操作或系统激发的事件的代码

标准答案：D

知识点解析：事件过程也是过程，其他过程或系统都可以调用它。故A选项错

误。事件过程的过程名是由系统命名的。故B选项错误。通常事件过程放在窗体

模块中。故C选项错误。事件过程是用来处理由用户操作或系统激发的事件的代

码。只有当用户或系统触发事件后，才执行相应的事件过程。故D选项正确。

40、软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任

务的是

A、测试

B、设计

C、可行性研究

D、实现

标准答案：C

知识点3析：开发阶段包括分析、设计和实施两类任务。其中分析、设计包括需求

分析、总体设计和详细设计3个阶段，实施则包括编码和测试两个阶段，C不属于

开发阶段。

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

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

41、在名称为Foiml的窗体上画•个名称为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的窗体上设ii^一个菜单。要求在窗体上添加名为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,其功能是：①单击“读数据”命令

按钮，把考生文件夹下in4.dal文件中已按升序方式排列的60个数读入数组A,

并显示在Textl中：②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任

意一个整数；单击''插入”按钮，将输入的数插入A数组中合适的位置，使其仍保

持A数组的升序排列，最后将A数组的内容重新显示在Texll中。在窗体文件中已

经给出了全部控件（如图2-9所示）和程序，但程序不完整，要求去掉程序中的注释

符，把程序中的?改为正确的内容。本程序只考虑插入一个整数的情况。注意：不

得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。

图2-8图2-9

标准答案：步骤1：打开考生义件中的本题工程义件sjl4.vbp,在代码编辑:窗口，

去掉程序中的注释符将问号改为正确的内容。参考代码：IfnumVa(i)

ThenExitForForj=60ToiStep-1a(j+1)=a(j)a(i)=numFork=lTo61步骤2：按要

求将文件保存至考生文件夹中。

知识点解析：暂无解析

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

44、在考生目录下有一个工程文件sit5.vbpo窗体中已经给出了所有控件(如图

2.82所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目

录下的in5.txt文件中的一个整数放入Tex"；单击“计算”按钮，则计算出大于该

数的第一个素数，并显示在Text2中：单击“存盘”按钮，则把找剑的素数存到考生

目录下的out5.txt文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，

把结果存入。ut5.txt义件，否则无成绩。最后把修改后的文件按原文件名存盘。

图2・82

标准答案：【操作步藐】步骤1：打开木题对应工程文件sjl5.vbpo步骤2：双

击窗体Forml上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如

下代码：参考代码：PrivateSubCoramand2CliCk()a%=CInt(Textl.Text)Doa%

=a%+lLoopUntilisprime(a%)Text2.Text=a%EndSub步骤3：编写判断素数的

函数过程isprime,参考代码为：Functionisprime(aAsInteger)DimflagAsBoolean

k%=2flag=TrucWhilek%<=Int(a/2)AndflagIfa/k%=Int(a/k%)Thcnflag=False

EndIfk%=k%+lWendisprime=flagEndFunction步骤4：按键运行程序，先单击

“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。少骤5：按要求将文件

保存至考生文件夹中。

知识点解析：暂无解析

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

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

1、结构化程序设计的3种结构是。。

A、顺序结构,分支结构,跳转结构

B、顺序结构,选择结构,循环结构

C、分支结构,选择结构,循环结构

D、分支结构,跳转结构,循环结构

标准答案：B

知识点解析：程序设计语言仅仅使用顺序、选择和重复（循环）三种基本控制结沟就

足以表达出各种其他形式结构的程序设计方法。遵循程序结构化的设计原则，按结

构化程序设计方法设计出的程序易于理解、使用和维护；可以提高编程工作的效

率，降低软件的开发成本“

2、关于变量作用域，下列叙述中正确的是（）。

A、在窗体的FormLroad事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

C、在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同

名，但其作用域只限于该过程

D、在调用过程中，所有局部变量被系统初始化为。或空字符串

标准答案：C

知识点解析：本题考查变量的作用域。局部变量是在过程内用声明的变量，只能在

本过程中使用，不同过程中的局部变量可以重名，由Dim或者Private声明的局部

变量在过程调用前才会被初始化为0或空字符串，静态局部变量不会被初始化为0

或空字符串：在“通用声明”段中用Public语句声明的变量为全局变量，可被本应用

程序的任何过程或函数访问。

3、若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事

件过程被调用的操作是（）o

A、用鼠标右键单击此按钮

B、按键盘上的Esc键

C、按键盘上的回车键

D、用鼠标右键双击此按钮

标准答案：C

知识点解析：当命令按钮的Defauh属性值为True时，程序运行，按回车键和单击

该命令按钮一样都会触发按钮的Click事件；当命令按钮的Cancel属性值为True

时，程序运行，按Esc键和单击该命令按钮都会触发按钮的Click事件。故选C。

4、下列关于函数过程的叙述中，正确的是（）。

A、如果不指明函数过程参数的类型，则该参数没有数据类型

B、函数过程的返回值可以有多个

C、函数过程形参的类型与函数返回值的类型没有关系

D、当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

标准答案：C

知识点解析：本题考查过程定义。在VB中出现的变量，如果没有声明类型，那么

为变体型。VB中可以通过调用函数过程得到返回值，一个函数过程只能有一个返

何值，如果需要改变主调过程的参数，可以进行传址方式调用函数。VB数组参数

中不存在传址调用，函数的参数和返回值类型之间没有任何关系。

5、数据库应用系统中的核心问题是（）。

A、数据库设计

B、数据库系统设计

C、数据库维护

D、数据库管理员培训

标准答案：A

知识点解析：数据库应用系统中的核心问题是数据库的设计。

6、设x=4,y=8,z=7,则以下表达式的运算结果是（）。xz）Orz

A、1

B、-1

C、The

D、False

标准答案：D

知识点解析：本题考查逻辑运算。将操作数进行逻辑运算，结果是逻辑值。常见的

逻辑运算有逻辑与和逻辑或，格式分别为：“条件表达式1And条件表达式2"，条

件表达式均为T时结果为T；”条件表达式1Or条件表达式2”，有一个条件表达式

为T时结果为T。Not为取反运算，若xz为False,因此And运算结果为False：又

因为Z

7、设窗体上有名称为Option1的单选按钮，且程序中有语句：If

Option!.Value=TrueThen下面诏句中与该语句不等价的是（）。

A、IfOption1.ValueThen

B、IfOption1=TrueThen

C、IfValue=TrueThen

D、IfOption1Then

标准答案：C

知识点解析：A选项中Opiionl.Value可作为一个条件表达式，它返回的是单选

按钮Value属性的属性值，根据属性值就可判断出单选按钮是否被选中；B选项中

Opiionl等价于Option1.Value；D选项与A选项等价，故A、B、D选项均与程

序中语句等价；C选项中Value是属性名，前面必须加控件名才能用，不能单独使

用，故C选项错误。

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

PrivateSubCommandl_Click()DimrecAsanimalOpenHc：\vbTest.dat"For

RandomAs#1Len=Len(rec)rec.animalName="cat"rec.aColor="White"Put#1,，

recClose弁IEndSub记录类型定义如下：PrivatelypcanimalanimalNameAs

String*20aColorAsString*10EndType下列叙述中正确的是()。

A、记录类型animal不能在Fonnl中定义，必须在标准模块中定义

B、如果文件c：\vbTest.dat不存在，则Open命令执行失败

C、由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D、语句,rec”将animal类型的两个数据元素写到文件中

标准答案：B

知识点解析：本题考查随机文件的基本操作。随机文件以记录作为存储单位，以

Random打开文件的格式为：Open文件名ForRandomAs#文件号［Len=记录长

度］。如果文件不存在，则打开失败。写操作格式为：Pui［#］文件号，［记录号1,变

量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在

当前记录后的位置插入一条记录。读操作格式为：Get［#］文件号，［记录号］,变量

名。如果忽略记录号，则读出当前记录后面的那一条记录。一般记录类型在VB中

是以Type定义的自定义类型，可以在窗体和标准模块中定义。

9、下列程序的执行结果为()。n=0j=lDoUntiln>2n=n+l：j=j+n*(n+l)LoopPrint

n：i

A、01

R、37

C、321

D、313

标准答案：C

知识点解析：本题考查循环程序的分析。在DoUniil循环中如果n小于等于2,那

么把n*(n+l)的结果累加到j上。因此程序的功能为：循环变量n从0开始到2共

执行了3次，R的为计算1+1*2+2*3+3*4O

10、下面关于标准模块的叙述中，错误的是()。

A、标准模块中可以声明全局变量

B、标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程

C、标准模块中可以包含一些Public过程

D、一个工程中可以含有多个标准模块

标准答案：B

知识点解析：标准模块中可以包含一个SubMain过程，可以通过“工程属性”对话

框中将SubMain过程设置启动对象。故B选项错误。

11、下列程序的功能是调用字体对话框来设置文本框中的字体，单击Commandl

按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话

框，则文本框中将发生哪些变化（）。PrivateSubCommandl_Click（）

CommonDialog1.CancelError=TrueCommonDialogl.Flags=3OnErrorResume

NextCommonDialogl.ShowFontTexll.Font.Name=CommonDialogl.FontName

Textl.Font.Size=CommonDialogl.FontSize

lextl.Font.Bold_=CommonDialogl.bontBold

Textl.Font.Italic==CommonDialogl.FontlmiicTextl.Fontunderline-

ommonDialogl.FontUnderlineTextl.FontStrikethru=onimonDialogl.FontStrikethru

Textl.ForeColor=CommonDialogl.ColorEndSub

A、Textl的文字下划线发生变化

B、Textl的字体发生变化

C、Textl的字体和颜色发生变化

D、程序出错

标准答案：B

知识点解析：本题考查通用对话框的属性。CommonDialogl的Flags属性值为3

时，出现的字体对话框中没有删除线、下划线、颜色元素，因此利用

CommonDialogl不能改变文本框中字体颜色以及删除线和下划线，但是可更改

Textl中的字体。

12、在窗体（Name属性为Forml）上画两个文本框（Name属性分别为Textl和Tex12）

和一个命令按钮（Name属性为Commandl）,然后编写如下两个事件过程（）。

PrivateSubCommandl_Click（）a=Tcxtl.Text+Text2.TextPrintaEndSubPrivate

SubForm_Load（）Textl.Text=n"：Text2.Text=""EndSub程序运行后,在第一个

文本框（Textl）和第二个文本框（Tex⑵中分别输入123和321.然后单击命令按钮.

则输出结果为（）。

A、444

B、321123

C、123321

D、132231

标准答案：C

知识点解析：文本框的'Text属性返回的是字符串。因此，Textl.Texl的值为

“123”、Text2.Text的值为“321”,题目中语句“a=Textl.Text+Text2.Text”就是一

个连接字符并赋值运算，两个值连接起来就是123321,因此本题最后输出结果为

选项C。

13、若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScore

AsIntegerStrNameAsStringEndTypeDimStudcnt（5）AsTem则下面的输出语句中

正确的是（）。

A、PrintStudent.Score(2),Student.SlrName⑵

PrintStudent.Score,Student.StrName

C、PrintStudent(2).Score,Student(2).StrName

D、PrintScore(2),StrName⑵

标准答案：A

知识点解析：在标准模块中可以声明自定义类型，该类型由Type关键字声明，在

声明中要定义类型的所有域。若用自定义类型声明一个变量，则该变量拥有若干

域，取得每个域的值需要用''变量名.域名”的形式，作为一个自定义类型的数组，

首先要取出某个数组元素然后才能访问该元素的某个域，所以要想访问Student(2)

的域，需要使用Studeni(2).Score和Student。).StrNameo

14、在标准模块中用Public关键字定义的变量，其作用域为()。

A、本模块所有过程

B、整个工程

C、所有窗体

D、所有标准模块

标准答案：B

知识点解析：在标准模块中用Public定义的变量是公用的、全局变量，在整个工

程中的所有窗口、模块中都能引用，作用域是整个工程。故B选项正确。

15、在VisualBasic6.0集成开发环境中，主窗口的标准工具栏上有一个按钮，单

击此按钮可以运行正在设计的工程，这个按钮的图标是()。

A).C).D)||

A、

B、

C、

D、

标准答案：A

知识点解析：在VisualBasic6.0集成开发环境中，单击A选项中按钮可以运行正

在设计的工程，B图标表示暂停，c图标表示停止，D图标表示撤销。故A选项正

确。

16、编写如下程序：PrivateSubCommandl_Click()Dima(3,3)AsInteger

DimsAsIntegerFori=1To3Forj=1To3a(i,j)=i*

j+iNextjNextis=0Fori=1To3s=s+a(i,4—

i)NextiPrintsEndSub程序运行后，单击命令按钮Commandl,输出结果

为()o

A、7

B、13

C、16

D、20

标准答案：C

知识点解析：程序通过For循环为数组a赋值，具体值如下：a(l,l)=l+l=2,

a(l,2)=2+l=3,a(l,3)=3+l=4；a(2,l)=2+2=4,a(2,2)=4+2=6,a(2,3)=

6+2=8；a(3,l)=3+3=6,a(3,2)=6+3=9,a(3,3)=9+3=12；程序要计算指

定数组元素的和，这几个元素是a(l,3),a(2,2),a(3,l),所以s=4+6+6=16。

17、在窗体上画一个名称为Textl的文本框，并编写如下程序：OptionBasel

PrivateSubForm_Click(iDimarrDimStartAsInteger,FinishAsInteger

DimSumAsIntegerarr=Array(12,4,8,16)Start=LBound(arr)

Finish=UBound(arr)Sum=Obori=StartloFinishSum=Sum+

arr(i)Nextic=Sum/FinishTextl.Text=cEndSub运行程序，单击窗

体，则在文本框中显示的是()。

A、40

B、10

C、12

D、16

标准答案：B

知识点解析：程序中将变量arr初始化为有4个元素的数组，使用Lbound和

Ubound函数分别获取数组下标的，下限，然后将数组中的元素值相加，用整除运

算求它们的平均值。算式可写为(12+4+8+16)/4=(40)/4=10。所以答案为B。

18、以下关于VB特点的叙述中，错误的是

A、VB采用事件驱动的编程机制

B、VB程序能够以解释方式运行

C、VB程序能够以编译方式运行

D、VB程序总是从Fonn_Load事件过程开始执行

标准答案：D

知识点解析：在一般情况下.整个应用程序从设计时的第一个窗体开始执行,需要

首先执行的程序代码放在Form_Load事件过程中。如果需要从其他窗体开始执行

应用程序，则可通过”工程“菜单中的“工程属性“命令(“通用"选项卡)指定启动窗

体。但是，如果有SubMain过程，则可以(注意，是“可以“，而不是“必须”)首先执

行SubMain过程。

19、设有如下事件过程：PrivateSubCommandl_Click()Dimaa=

Array(3