国家二级（VB）机试模拟试卷4（共383题）

家二级（VB）机试模拟试卷4（共9

套）

（共383题）

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

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

1、下列程序段的执行结果为（）。x=Int（Rnd+4）SelectCasexCase5：Print"AClass"

Case4：PrinT'BClass**Case3：Prinl"CClass1'CaseElse：Print"DClass"EndSelect

A、AClass

B、BClass

C、CClass

D、DClass

标准答案：B

知识点解析：本题考查多分支选择语句Select。Rnd函数产生（0,1）之间的随机

数，“Int（参数）”函数的作用是产生不大于参数的整数，可以计算出x的值为4。因

此将执行Select语句中Case4后面的分支语句，输出BClasso

2、一棵一叉树的前序遍历结果是ARCEDF,中序遍历结果是CRAEDF,则其后序

遍历的结果是（）。

A、DBACEF

B、CBEFDA

C、FDAEBC

D、DFABEC

标准答案：B

知识点解析：由于该二叉树的前序遍历结果是ABCEDF,显然A结点为根结点，

所以后序遍历时A结点是最后遍历的，其后序遍历的结果为CBEFDAo

3、下列哪一条不属于数据库设计的任务?（）

A、设计数据库应用结构

B、设计数据库概论结构

C、设计数据库逻辑结构

D、设计数据库物理结构

标准答案：A

知识点解析：数据库设计工作量大而且过程复杂，既是一项数据库工程也是一项庞

大的软件工程。考虑数据库及其应用系统开发全过程，将数据库设计分为以下6个

阶段：需求分析、概念结构设计、逻辑结构设计、物理结构设计、数据库实施和数

据库的运行和维护。

B

0

4、有两个关系R,S如下：由关系R通过运算得到关系

S,则所使用的运算为（）o

选择

A、

投

影

B、

插

入

、连

C接

D、

标准答案：B

知识点解析：投影运算是指对于关系内的域指定可引入新的运算。本题中S是在

原有关系R的内部进行的，是由R中原有的那些域的列所组成的关系。所以选择

Bo

5、用来设置文字字体是否斜体的属性是（）。

A、FontUnderline

B、FontBold

C、FontSlope

D、Fonthalic

标准答案：D

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

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

6、设有如图所示窗体和以下程序:PrivateSub

Commandl_Click()Texll.Text="VisualBasic"EndSubPrivateSub

Text1_LostFocus()IfText1.Texto"BASIC'ThenTextl.Text=""

Tcxtl.SctFocusEndIfEndSub程序运行时，在Tcxtl文本框中输入"Basic”］如

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

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

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

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

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

标准答案：A

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

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

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

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

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

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

7、求1!+2!+........—10!的程序如下：PrivateFunctions(xAsInteger)f=1

Fori=1Toxf—f*iNexts=fEndFunctionPrivateSubCommandl_Click()

DimiAsIntegerDimyAsLongFori=1To10Next

PrintyEndS；b为实现功能要求，程序的横线处应该填入的内容是()。

A、Calls(i)

B、Calls

C、y=y+s(i)

D、y—y+s

标准答案：C

知识点解析：题目中过程s的功能是实现一个数的阶乘，而题目是求1到10的阶

乘的和，则程序空缺处应该是过程s返回值的累加，因此就应该为y=y+s⑴。

5x+3

8、把数学表达式万X表示为正确的VB表达式应该是()。

A、(5x+3)/(2y-6)

B、x*5+3/2*y-6

C、(5*x+3)=(2*y―16)

D、(x*5+3)/(y*2—6)

标准答案：D

知识点解析：VB数学表达式中的乘用*表示，除用/表示，表示一个整体的可加

括号()。故D选项正确。

9、下列程序执行后,其输出结果为()。Dima(5)Fori=0To4a(i)=i+l：m=i+lIf

m=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=2Thena(i-l)=a(m-3)a(4)=iPrinta(i)；Next

A、11144

B、12341

C、12144

D、11141

标准答案：C

知识点解析：本题考查数组元素的赋值。数组a在循环中为数据赋值，循环变量i

从0到4,步长为1。如果i等于2,则将a(0)的值赋给a(2)；如果m等于3,则将

a(0)的值赋给a(l)。因此数组元素的值为：12144。

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

下：PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAsString

c=UCase(Chr(KeyCode))Text2.Text=Chr(Asc(c)+2)EndSub当向文本框Textl中输

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

A、A

B、a

C、C

D、c

标准答案：C

知识点解析：KeyDown和Keyup事件的Keycode参数返回的是“键”，即按字母“A”

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

Key.Code,经Chr函数转为字符后为“A"，经Ucasc函数转换仍为“A”，所以变量

c中的字符为“A"。Asc⑹将返回变量c中的第一个字符的AsCH,加2后，再由

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

II、VB的数值型数据分为()两种。

A、整数和长整数

B、整数和浮点数

C、单精度浮点数和双精度浮点数

D、整数和货币数据类型

标准答案：B

知识点解析：考查数值型数据。VB中提供的数值类型包括整数、浮点数、货币类

型和字节型。一般来讲货币类型为定点浮点数或者整数，而字节型为整数。

12、()控件可以使图形根据控件大小而改变大小。

A、图片框

B、标签

C、图像框

D、框架

标准答案：C

知识点解析：本题考查常见控件的基本属性。图片框的AutoSize属性设定图片框

是否按装入图形的大小来调整大小；图像框的Streich属性设定是否调整图形的大

小以适用图像框控件。标签一般用来处理文本，而框架主要用来作为其他控件的容

器。

13、以下关于局部变量的叙述中错误的是()。

A、在过程中用Dim语句或Stalic语句声明的变量是局部变量

B、局部变量的作用域是它所在的过程

C、在过程中用Stalic语句声明的变量是静态局部变量

D、过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放

标准答案：D

知识点解析：局部变量是在过程(事件过程或通用过程)内定义的变量，作用域为该

变量所在的过程，定义时使用Dim、Static关键字。使用Dim关键字定义的是动态

局部变量，过程执行结束后即被释放；使用Static关键字定义的是静态局部变量，

过程执行结束后仍然保留。

14、假定通用对话框的名称为CD1,命令按钮的名称为Commandl,则单击命令

按钮后，能使打开对话框的标题为,、通用对话框”的事件过程是()。

A、PrivateSubCommandl_Click()CD1.DialogTitle="通用对话框”

CD1.ShowPrinterEndSub

B、PrivateSubCommand1Click()CD1.DialogTitl5”通用对话框“CD1.ShowFont

EndSub

C、PrivateSubCommand1Click()CD1.DiaiogTitle="通用对话框”

CD1.ShowOpenEndSub

D、PrivateSubCommand!Click()CD1.DialogTitle="通用对话框”

CD1.ShowColorEndSub

标准答案；C

知识点解析：本题考查通用对话框的常见属性。通用对话框的标题属性为

DialogTitle,如果要打开“打开”对话框可以设置CD1的Action属性为I或者使用

ShowOpen方法。

15、以下描述中，不是线性表顺序存储结构特征的是()。

A、可随机访问

B、需要连续的存储空间

C、不便于插入和删除

D、逻辑相邻的数据物理位置上不相邻

标准答案：D

知识点解析：线性表的顺序存储是用一片连续的空间来存放数据元素，其特点是逻

辑上相邻的元素在物理位置上也相邻。数据元素之间逻辑上的先后关系自动隐含在

物理位置的相邻元素之中，因此不需要另外开辟空间来保存元素之间的关系。

16、下面程序执行时，输出的结果是()。PrivateSubForm_Click()DimiAs

Integer,jAsIntegeri=10Doi=i+jFori=10ToiStep-3i=i+jNextjLoopWhilei<50

Printi；jEndSub

A、5010

B、509

C、5710

D、579

标准答案：C

知识点解析：本题考查二层循环的分析。程序段中的循环结构为外循环Do...Loop

While,又包括了For型循环。外循环为直到型循环，先执行循环体，冉判断条

件。i的初值为10,内循环执行完一次后，i值为20,j值为7,此时内层循环变量

j小于i，内循环结束；执行下一次外循环，此时i初值为27,内存循环i初值为

10,小于终止值，内层循环不执行；以此类推，当i为57时，循环结束。

17>下面程序计算并输出的是()。PrivateSubCommandl_Click()Num=10Sum=0

DoSum=Sum+Num*Num*NumNum=Num.1LoopUnti1Num<=0PrintSumEnd

Sub

A、U+23+33…+］。3的值

B、B!+…+3!+2!+l!的值

C(1+2+3+…+10)3的值

D、10个1(?的和

标准答案：A

知识点解析：对于Do型循环结构，首先看条件判断在循环体的前面还是后面，如

果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件

是什么，至少执行一次循环体。在Until循环中条件为False时执行循环体，条件

为True时退出循环；在While循环中条件为True时执行循环体，条件为False时

退出循环。本题是一个比较简单的D。循环，计算从1到10的立方和。

18、以下关于文件的叙述中，错误的是()。

A、顺序文件中的记录是一个接一个地顺序存放

B、随机文件中记录的长度是随机的

C、文件被打开后，自动生成一个文件指针

D、EOF函数用来测试是否到达文件尾

标准答案：B

知识点解析：随机文件中记录的长度是固定的、相等的，不是随机的。故选项B

错误。

19、不能判断字符变量st中第一个字符是否为“S”的表达式是()。

A、Mid(st,An(M"))="S"

B、Mid(st,1,1)="S"

C、Left(st,Len("SH))="S"

D、Left(st,1)="SH

标准答案：A

知识点解析：Len英文全称为Length,中文意思是长度，kn(s)求字符串s的长度，

即所包含的字符的个数。Mid(s,nl,n2)是字符串截取函数，从s的第nl个字符

开始，向后截取n2个字符，其中n2可省略，省略时，就是截取s的第nl个字符

以后的所有字符。Mid(st,Lcn(MS"))=Mid(st,l)=t,故A选项错误，B选项正确。

Left(s,n)是截取字符串s左边的n个字符，Left(st,kn(HS"))=Left(st,1)=S,故C

和D选项正确。所以答案为A选项。

20、在窗体上画三个名祢分别为Texll、Lisi1和Command］的文本框、列表框和命

令按钮，且Listl中有若干列表项，Textl的内容为空，然后编写如下事件过程：

PrivateSubCommandl_Click()DimiAsIntegerIfTextl.Text=""ThenExitSubEnd

IfIfListl.Listlndexo-1ThenListl.List(Listl.ListIndex)=Textl.TextElse

Listl.AdditemTextl.TextEndIfTextl.Text=""EndSub以下叙述中正确的是

()。

A、程序的功能是从Listl中删除一个列表项

B、程序的功能是把LisH中选中的列表项内容显示在Textl中

C、程序的功能是将Textl中的文本添加到Listl中选中的列表项之后

D、程序运行时，如果Texll中没有输入任何文本，则单击Commandl时程序不进

行其他操作

标准答案：D

知识点解析：程序运行前Textl文本框中的内容为空，当Command1-Click事件过

程执行时，if语句判断Textl为空，条件成立,执行语句ExitSub,过程被提前结

束，后续语句将不会被执行，所以本题D选项叙述正确。本题选择D选项。

21、为了保存数据，需打开顺序文件“E：\UserData.txf\以下正确的命令是

()。

A、OpenE：\UserData.txtForInputAs#1

open"E：\UserData.lxt"ForInputAs#2

C>OpenE：\UserData.txtForOutputAs#1

D、Open"E：\UserDam.txt"ForOutputAs#2

标准答案：D

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

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

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

号)。

22、以下叙述中错误的是

A、用ReDim语句可以改变数组的维数

B、用ReDim语句可以改变数组的类型

C、用ReDim语句可以改变数组每一维的大小

D、用ReDim语句可以对数组中的所有元素置0或空字符串

标准答案：B

知识点解析：ReDim语句无法更改数组变量的数据类型。

23、决定标签内容显示位置的属性是

A、Text

B、Name

C、Alignment

D、Caption

标准答案：C

知识点解析：A1ignment属性用于设jvi,标签中文本的对齐方式。

24、在窗体上画一个文本框，其名称为Textl,然后编写以下程序：PrivateSub

Form_Load()ShowTextl.Text=""Textl.SetFocusEndSubPrivateSub

Textl_KeyPress(KeyAsciiAsInteger)Char=Chr(KeyAscii)KeyAscii=

Asc(UCase(Char))EndSub以上程序的功能是

A、把输入到文本框中的字母转换为小写显示

B、把从键盘上输入的字符在文本框中原样显示

C、把输入到文本框中的字母转换为大写显示

D、把输入到文本框中的字符转换为其ASCII码显示

标准答案：C

知识点解析：Chr()是把ASCH码转换为对应的字符。UCase转换成大写。Asc求

字符串表达式的第一个字符的ASCII编码。答案选C。

25、程序运行时，当在空文本框中依次输入1234时，窗体上显示的是()。Private

subTextl_Change()PrintTextl；EndStlb

A、1234

B、12

C、1121231234

D、10

标准答案：C

知识点解析：本题考查文本框的Change事件，Change事件是每次文本框中的文本

发生改变都要触发的事件，因此输入1234后，Change事件触发了4次，每次都是

把文本框的现有的内容输出，依次输出为1121231234。

26、在窗体上画一个名祢为Textl的文本框，然后画一个名称为Hscrolll的滚动

条，其Min和Max属性分别为。和1000。程序运行后，如果移动滑块，则在文本

框中显示滚动条的当前值。以下能实现上述操作的程序是()。

A、PrivateSubHscrol11Change()Textl.Text=HScroll1.ValueEndSub

PrivateSubHscrol11Click()Textl.Text=HScroll1.ValueEndSub

C、PrivateSubHscrol11Change()Textl.Text=Hscrol11.CaptionEndSub

D、PrivateSubHscrol11Click()Textl.Text=Hscroll1.CaptionEndSub

标准答案：A

知识点解析：本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其value

属性韵值，当滑块的位置发生改变时，将触发滚动条的Change事件。因此，要想

在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件

中将滚动条的value属性值赋值给文本框的Text属性来实现。

27、下列叙述中正确的是

A、线性表链式存储结构的存储空间一•般要少于顺序存储结构

B、线性表链式存储结构与顺序存储结构的存储空间都是连续的

C、线性表链式存储结构的存储空间可以是连续的，也可以是不连续的

D、以上说法均错误

标准答案：C

知识点解析：线性表的顺序存储结构具备如下两个基本特征：(1)线性表中的所

有元素所占的存储空间是连续的；(2)线性表中各数据元素在存储空间中是按逻

辑顺序依次存放的。用一组任意的存储单元来依次存放线性表的结点，这组存储单

元既可以是连续的，也可以是不连续的，甚至是零散分布在内存中的任意位置上

的。因此C正确。

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

A、输出y的绝对值

B、实现x的四舍五入

C、实现x的绝对值

D、实现y的四舍五入

标准答案：B

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

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

29、编写如下程序：PrivateSubCommandl_Click()DimiAsInteger,nAsInteger

Dimarr()AsIntegern=InputBox("请输入数值:")ReDimarr(n)Fori=1To

UBound(arr)arr(i)=iNextFori=1ToUBound(arr)\2temp=arr(i)arr(i)=arr(n-i+

1)arr(n-i+1)=tempNextFori=IToUBound(arr)Printarr(i);NextEndSub程序运

行后，单击命令按钮Commandl,并在输入对话框中输入7,输出结果为

A、7654321

B、1234567

C、3214765

D、4321567

标准答案：A

知识点解析：第一个For循环，是对arr(7)赋值，此时arr(7)=f0,1,2,3,

4,5,6,7]o第二for循环用来对下标1到7的arr数组，进行以下标为4的数组

元素为中心的，对调，结果arr(7)=[0,7,6,5,4,3,2,1]<>故选择A项。

30、在窗体上画一个通用对话框控件CD1,则执行以下程序段后，在显示的“打开”

文件对话框的“文件类型”框中显示的信息是CD1.Filter="所有文件|*.*|Word文件

|*.Doc|文本文件CDl.FikerIndex=2CDLShowOpen

A、Word文件

B、*.Doc

C、文本文件

D、*.Txt

标准答案：A

知识点解析：Filler属性是用来指定对话框中显示的文件类型，它的属性值有一对

或多对文本字符串组成，每对字符串用T隔开，T前面部分为描述符，后面部分

一般为通配符和文件扩展名。FHtcrlndcx属性是指定默认的过滤器，当Filter属性

设置为多个过滤器后，每个过滤器都有一个值，本文中Fillerlndex=2,则默认的文

件类型为Word文件，故正确答案为A选项。

31、要将单选按钮Optl设为被选中，应设置的属性是

A、Value

B、Selected

C>Enabled

D、SetFocus

标准答案：A

知识点解析：要将单选看钮。ptl设为被选中，应设置的属性是Value。设置单选

按钮在执行时的两种状杰：True：表示选中，运行时该单选按钮的圆圈中出现一个

黑点。False（默认值）：表示未选中。

32、下面对对象概念描述正确的是

A、对象间的通信靠消息传递

B、对象是名字和方法的封装体

C、任何对象必须有继承性

D、对象的多态性是指一个对象有多个操作

标准答案：A

知识点解析：对象之间进行通信的构造叫做消息，A正确。多态性是指同一个操作

可以是不同对象的行为，D错误。对象不一定必须有继承性，C错误。封装性是指

从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现

操作，B错误。

33、下列关于标签的描述中，错误的是

A、标签可以响应Click事件

B、标签不能响应DblClick事件

C、为了使标签的Wordwrap属性起作用，必须将其AutoSize属性设置为True

D、标签上显示的文本就是Caption属性的值

标准答案：B

知识点解析：标签可以响应Click事件和DblClick事件。选B）。

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

A、MsgBoxnVB"

B、x=MsgBox（"VB"）

C、MsgBox（HVBH）

D、CallMsgBox"VB"

标准答案：D

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

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

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

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

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

Call函数名(实参表),缺少括号，应该为CaUMsgBoxC'VB"),语法才正确。故D

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

35、编写如下程序：PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerx

=ly=lDoy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoopUntilx<=10

Printx;yEndSub程序运行后，单击命令按钮Command1,输出结巢为

A、11

B、41

C、42

D、728

标准答案：B

知识点解析：Do...LoopUntil循环当条件为真时循环执行循环体。代入初值进行计

算可得结果。选B)。

36、文本框Textl的KeyDown事件过程如下：PrivateSub

Text!_KeyDown(KeyCodcAsInteger,ShiftAsInteger)...EndSub其中参数

KeyCode的值表示的是发生此事件时()。

A、是否按下了Alt键或Ctrl键

B、按下的是哪个数字键

C、所按的键盘键的键码

D、按下的是哪个鼠标键

标准答案：C

知识点解析：参数KeyCode返回的是所按键的键码，而且大小写字母键码值相

同。故选C。

37窗体上有一个Textl文本框，并编写了下面事件过程：PrivateSub

Text1_KeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+3EndSub程序运行

时，金文本框中输入字符“A”，则在文本框中实际显示的是()。

A、A

B、B

C、C

D、D

标准答案：D

知识点解析：KeyPress事件执行时，其中的KeyAscii参数是所按键的ASCII码，

按下“A"键，KeyAscii的值为65,在过程中65+3=68,即A字符后面的第3个字

符的ASCH码值，即字符"D”，因此在文本框中回显“D”。

38、在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell,

然后编写如下事件过程：PrivateSubCommandl_Click()Dimarr(10)Fori

=6To10arr(i)=i—5NextiLabel1.Caption=arr(O)+arr(arr(10)/

arr(6))EndSub运行程序，单击命令按钮，则在标签中显示的是()。

A、0

B、1

C、2

D、3

标准答案：A

知识点解析：程序为使用For语句为数组中部分元素赋值，没显示赋值的数组元素

的值默认为O因此arr(0)=0,arr(10)=10—5=5,arr(6)=6—5=1,arr(arr(10)/

arr(6))即，arr(5/l)=an(5)=0,arr(0)+arr(5)=0+0=00因此标签中显示为0,

39、设有如下程序：PrivateSubForm_Click()num=lnputBox("请输入一个实

数")p=InStr(num,Ifp>0ThenPrintMid(num,p+1)

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

一个数值。如果输入的不是实数，则程序输出“END”；否则()0

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

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

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

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

标准答案：C

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

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

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

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

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

40将窗体的KeyPreview属性设为True,然后编写如下程序：PrivateSub

Form_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub运行程

序时，按下字母诞a,则窗体上显示的是

A、AA

B、Aa

C^aA

D>aa

标准答案：B

知识点解析：KeyCode是按键的实际的字符(不区分大小写)，KeyAscii是以字符为

准，是所按键的ASCII码。

二、基本操作题(本题共2题，每题1.0分，共2分。)

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

41、在名称为Fonnl的窗体上画一个名称为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。，标

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

为“不可用菜单项“、“_L一菜单项可用''的子菜单，并且使程序运行时•，menul子菜

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

图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在窗体上有名称为Combol的组合

框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文木。窗休

上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中

选中一项，如图5（a）所示，单击“输入正整数”按钮，通过输入对话框输入一个正整

数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如

图5（b）所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。在给

出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合

框的有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生

不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。

(a)(b)

图5⑵在考生

目录下有一个工程文件sjt4.vbpo窗体上有一大一小两个名称分别为Shape2、

Shape)的Shape控件。涪在属性窗口中将Sh叩cl控件设置为圆形，并将其颜色设

置为红色(颜色值为&HCU0000FF&),如图6所示。要求：当单击窗体时，Sh即el

移动到矩形(即Shape2)左上角，再次单击窗体，则Shapel移动到矩形的右下角。

在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置

有关的属性值，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能

修改程序的其他部分和控件屈性。最后把修改后的文件按原文件名存盘。

图6

标准答案：(1)步骤1：打开考生文件中的本题工程文件sjt3.vbp,将组合框的

Style属性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符将问号

改为正确的内容。参考代码：SelectCaseCombol.ListindexMsgBoxStr(xi&

fl(x)MsgBoxStr(x)&f2(x)PrivateFunctionf2(ByValxAsInteger)AsStringIfxMod

7=0Then步骤3：按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件

中的本题工程文件sjt4.vbp,将Shapel控件的Shape属性设置为3,BackColorM

性设置为&H000000FF&。步骤2：在代码编辑窗口，去掉程序中的注释符"“，将

问号”?”改为正确的内容。参考代码PrivateFlagASBoolean

Shapei.Top=Shapc2.Top+Sh叩e2.Height-Shape1.Height

Shapel.Left=Shape2.Left+Shape2.Width-Shape!.Width步骤3：按要求将文件

保存至考生文件夹中。

知识点解析：（1）本题源代码中给出了两个函数，fl函数的作用是判断参数的奇偶

性并返回判断结果，其返回值为字符型；f2函数的作用是判断参数能否被7整除，

其返回值也为字符型。在“判断”命令按钮的单击事件中，首先根据组合框的

Listindex值判断选中的是组合框中的哪一项，如果Listindex值为0则调用fl函

数，否则调用位函数。（2）本题原程序中，在窗体的单击事件中，要求实现圆形在

左上角和右下角之间来回切换，需要设置一个全局布尔型变量flag,每次单击窗体

之后将其取反，通过flag的值来判断是需要将圆形移动到哪个位置。要移动到矩

形的右下角，需要令其Top属性等于Shape2.Top4-Shape2.Height-

Sh叩el.Height,Left属性等于Shape2.Lcft+Shapc2.Width-Shape1.Widtho

四、综合应用题（本题共［题，每题7.0分，共7分0）

44、数列1,1,3,5,9,15,25,41,的规律是从第三个数开始，每个数是

它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出

了所有控件，如图2.106所示。请编写适当的事件过程实现以下功能：在Te.xtl

中输入整数40,单击“计算”按钮，则在Tcxt2中显示该数列第40项的值。如果单

击“存盘”按钮，则将计算的第40项的值存到考生E录下的oul5.txt文件中。偎

示：因数据较大,应使用Long型变量.）注意：在结束程序运行之前，必须单击

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

文件名存盘。®2-106

标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sit5.vbpo

步骤2：编写"计算''按钮的单击事件过程。参考代码：PrivateSubCommandl-

Click（）DimfAsLonga（l）=la（2）=lFOri=3ToVal（Textl.Text）f=a（i-2）+a（i一

1）+1a（i）=fNextText2.Text=fEndSub步骤3：运行程序，存文本框中输入40,并

单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。步骤4：按要

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

知识点解析：暂无解析

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

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

1、窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345,

单击命令按钮后的输出结果为()。PrivateSubCommandl_Click()DimAAs

Integer,BAsIntegerTcxtl.SclStart=2：Tcxtl.SclLcngth=2

A=Val(Textl.SelText)：B=Len(Textl.Text)PrintA*BEndSub

A、68

B、115

C、1700

D、170

标准答案：D

知识点解析：本题考查文本框的常见属性。文本框的SelSlarl属性和SelLength属

性表示选中文本的开始位置和长度，第一个字符的位置为0,SelTex［表示选中的

文本。Vai把字符转化为数字。所以A为34,B为5,因此输出为34*5=170。

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

A^Labe11.Height=A$

B、Labe11.Caption=A$

C、Labe11.Enabled=A$

D、Labe11.Visible=AS

标准答案:B

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

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

3、下面程序的输出结果是()。PrivateSubCommandI_Click()ch$="ABCDEF"proc

chPrintchEndSubPrivateSubproc(chAsString)s="MFork=Len(ch)TolStep-ls=s&

Mid(ch,k,1)Nextkch=sEndSub

A、ABCDEF

B、FEDCBA

C、A

D、F

标准答案：B

知识点解析：本题考查过程调用。过程proc的功能是：从字符串ch的最后一个字

符开始，依次取出每一个字符，连接到s中，构成一个新的字符串(即是实现的字

符串的逆置)。程序运行时单击命令按钮调用函数的时候，实现了字符串

“ABCDEF”的逆置。

4、设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivate

SubCummandl_Click()循环1Fori=lTo3Forj=lTo4b(j,i)=a(i,j)NextjNexti

循环2x=b(L1)Fori=lTo4Forj=lTo3Printb(i,j)；Ifx<b(i,j)Thenx=b(i,j)

NextjPrintNextiEndSub程序中的数组a已被赋值。以下关于上述程序的叙述

中，正确的是()。

A、窗体模块中，不能使用Dim声明a、b数组

B、“循环B可以正常运行

C、“循环2”中循环变量i、j的终值不对，所以不能正常运行

D、程序可以正常运行，x中保存的是数组b中所有元素中最小的数

标准答案：B

知识点解析：Dim用于在标准模块、窗体模块或过程中定义变量或数组。程序可以

正常运行，x中保存的是数组b元素中的最大值。

5、设有如下程序：OptionBase0PrivateSubFormClick()DimaDimiAsInteger

a=Array(l,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i)；NextEndSub程序

运行后，单击窗体，则在窗体上显示的是()。

A、4321

B、5432

C、6543

D、7654

标准答案：C

知识点解析：本题考查变体数组。题中定义了一个下标从。开始的变体数组a,然

后利用Airay函数初始化数组a中的数据，最后通过For循环输出数组中a(5)、

a(4)、a(3)、a(2)四个元素的值，分别为：6543。

6、下面哪个属性肯定不是框架控件的属性(V

A、Text

B、Caption

C^Left

D、Enabled

标准答案：A

知识点解析：框架没有Text属性。故选A。

7、为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作

是()。

A、按住Ah键，不要松开，然后单击每个要选中的控件

B、按住Shift键，不要松开，然后单击每个要选中的控件

C、按住Ctd键，不要松开，然后单击每个要选中的控件

D、拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内

标准答案：A

知识点解析：按住Ah键只能选中单个控件，不能同时选中多个控件。故选A。

8、待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增

的顺序排序，采取简单选择排序法，第一趟排序后关键码15被放到第()个位置。

A、2

B、3

C、4

D、5

标准答案：B

知识点解析：选择排序的基本思想是扫描整个线性表，从中选山最小的元素，将它

交换到表的最前面，然后对剩下的子表采用同样的方法，直到子表为空。所以第一

趟排序后，将选出最小的元素9放在第一个位置，元素15则放在第3个位置。

9、下列是VisualBasic中所允许的形式数是（）。

A、±25.74

B、3.457E-100

C、368

D、1.87E+50

标准答案：C

知识点解析：考查VB中的数据表示。VB中的实数可以分为单精度和双精度，单

精度指数形式为土n；nE±m,表示数据的最大值为3.402823E38；实际在使用的时

候，“土”不能同时出现。

10、下列程序运行后，单击窗体，在窗体上显示：1,1+2,1+2+3,1+2+3+4,

1+2+3+4+5的和。在横线处应填写（）。PrivateSubFormClick（）DimiAsInteger,ttAs

IntegerFori：1To5tt=Sum（i）：Print“tt="；tt,NextiEndSubPrivateFunction

Sum（）j^j+nSum刁EndFunction

AxnAsIntegerjAsInteger

B、nAsIntegerStaticjAsInteger

C、BvValnAsIntegeriAsInteger

D、ByVainAsIntegerStaticjAsInteger

标准答案：D

知识点解析：本题考查参数的传递和静态局部变量。Sum函数在窗体单击事件中

调用5次并用来求和，因此每一次求和结果应当保留，所以借助静态变量实现。同

时要求传递的形参变化不应影响到实参，因此采用传值调用。

11、对于列表框控件Listl,能够表示当前被选中列表项内容的是（）。

A、List1.Text

B、ListI.Index

C、List1.Listindex

D^List1.List

标准答案：A

知识点解析：Text属性可返回当前被选中列表项的内容，故选A。Index属性是当

有列表框控件数组时，区分各列表框用的；Listindex属性返回的是被选中的列表

项的索引值；List属性设置或返回各列表项的内容,

12、下列叙述中正确的是（）＜）

A、有一个以上根结点的数据结构不一定是非线性结构

B、只有一个根结点的数据结构不一定是线性结构

C、循环链表是非线性结构

D、双向链表是非线性结构

标准答案：B

知识点解析•：线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，

也最多有一个后件，所以B）正确。所以有一个以上根结点的数据结构一定是非线

性结构，所以A）错误。循环链表和双向链表都是线性结构的数据结构。

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

以下方式中，不能启动VisualBasic6.0的是（）。

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

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

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

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

标准答案：B

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

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

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

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

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

运行。

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

以下方式中，不能启动VisualBasic6.0的是（）。

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

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

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

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

标准答案：B

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

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

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

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

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

运行。

15、满足下列条件之一的年份是闰年：1）年份能被4整除但不能被100整除2）年

份能被400整