国家二级（VB）机试模拟试卷14（共393题）

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

套）

（共393题）

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

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

1、下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个1~6

的整数，相当于一次掷骰子。程序运行后，在Texi2文本框中输入总投掷次数（例

如10000）,单击”开始投掷“按钮则进行模拟掷骰子，并把出现卜6的次数分别显

示在文本框数组Textl1从上到下各文本框的下标为0-5）的各元素中，如图所示

PrivateSubCommandl_Click()Dim

a(6)Randomizen=Int(Text2.Text)Fork=1Tonn=Int(Rnd*6)+1

a(n)=NextkForn=0To5Tc\tl(n).Tcxt=a(n+1)NextnEnd

Sub该程序不完整，在横线上应填写的是

A、n

B、a(n)+1

C^a(n)+n

D、a(n)+k

标准答案：B

知识点解析：所填的是计数数组的自增，每当产生一个在1到6之间的某一随机

数，当要在其所对应数组的下标中的元素值加1,c在对应的计数数组

a(n)=a(n)+l,故选择B项。

2、下面是一个判断并输出获得奖学金信息的程序：PrivateSubCommandI_Click()

a%=InputBox("请输入主课成绩1")b%=InputBox("请输入主课成绩2")c%=

InputBox("请输入副课成绩")s=(a+b+c)/3Ifs>=85ThenIfa>=90Andb>=90

ThenPrint”获得一等奖学金"ElsePrim”获得二等奖学金"EndIfElselfa>=95Or

b>=95ThenPrint”获得三等奖学金"ElsePrint”不获得奖学金"EndIfEndIfEnd

Sub程序运行时，如果*加入的依次是9。、91、72,则输出是

A、获得一等奖学金

B、获得二等奖学金

C、获得三等奖学金

D、不获得奖学金

标准答案：D

知识点解析：输入的依次是90、91、72时,a=90,b=91,c=72,平均成绩

§=253/3=84；§小于85且不满足心>=950「4=95的条件，故输出是不获得奖

学金。

3、编写如卜程序：PrivateSubCommandI_Click()x=4n=1Dox=2*x-3n=n

+1PrintxLoopUntilx>30PrintnEndSub在保证程序输出不变的前提下，可以把

循环条件Untilx>30改为

A、Untilx>40

B、Untilx>20

C、Whilex<40

D、Whilex>20

标准答案：B

知识点解析：第一次执行循环体得到x=5,n=2：第二次执行循环体得到x=7.

n=3；第三次执行循环体得到x=ll,n=4；第四次执行循环体得到x=19,n=5；第

五次执行循环体得到x=35,x=6,满足x>30条件退出循环。若输出结果相同，则

当x=35时，退出循环，选项中只有B选项，即x=35时，满足x>20条件，退出循

环。故选择B项。

4、窗体上有一个Textl文本框和一个Commandl命令按钮。程序的功能是在文本

框中输入密码后单击命令按钮则进行密码确认，若密码正确，弹出信息框显示"密

码正确”，若密码错误，弹出信息框显示”密码错误，请重新输入”，但最多允许输

出3次，若还不正确，则弹出信息框显示"密码错误，不能再输入”，且命令按钮变

为无效。某人编写了如下程序：PrivateSubCommandl_Click()DimnumAsInteger

num=num+1IfTextI.Text="123456"ThenMsgBox”密码正确"Elselfnum=3

ThenCommand1.Enabled=FalseMsgBox”密码错误，不能再输入"ElseMsgBox”密

码错误，请重新输入”EndIfEndSub调试时发现有错误需要修改，下面正确的修

改方案是

A、把Elselfnum=3Then改为Elselfnum>3Then

B、把Command1.Enabled=False改为Command1.Enabled=True

C^把DimnumAsInteger改为StaticnumAsInteger

D、把num=num+1改为num=num+3

标准答案：C

知识点解析：变量，，dim定义的变量称为“自动变量1当引用Dim定义变量时，

变量值会被重新设置(数值变量重新设置为0,字符串变量被设置为空)。也就是

说，下次再使用此变量，其值为初始值；而static定义变量，每次运用该静态变量

后，其值会继续保留，作为下一次引用时该变量的初始值。每次运行

Command1_ClickO后,num的值都需保留,故选择D项。

5、编写如下程序：FunctionFun1(ByVaiaAsInteger,bAsInteger)AsIntegera=b+

ab=2*aFunl=bEndFunctionPrivateSubCommandl_Click()DimxAsIntegerx=

5PrintFunl(Funl(x,x-I),x-2)EndSub程序运行后，单击命令按钮CommandI,

输出结果为

A、5

B、42

C、50

D、68

标准答案：B

知识点解析：函数Funl参数a是值传递，b是地址传递，值传递是将实参变量值

传递给形参变量a,地址传递是将实参变量地址传给形参变量b,这意味着a的变

化不会改变原变量的值，b的变化会改变原变量的值。定义局部变量x,x=5,调

用函数Funl(Funl(x,x-1),x-2),首先调用的Fiml(5,4),此时a=9,b=18»

返回值为18；第二次调用fun(18,3),a=18+3=21,b=2*a=42,返回值为42,

故输出结果为42,选B项。

6、下面程序的功能是：先输入一个字符串，再输入3个字符，然后统计这3个字

符分别在字符串中出现的次数并输出PrivateSubCommandl_Click()Dimch$(3),

str$,prompt$,count%(3)str=InpulBox("请输入一个字符串“)Fork=1To3prompt=

”请输入要查找的第"&k&"个字符"ch(k)=InputBox(prompt)NextkForj=1To

Len(str)Fork=1To3Ifch(k)=Thencount(k)=count(k)+1EndIfNextkNextjPrint

strFork=ITo3Printch(k);”出现的次数为";count(k)NextkEndSub程序不完整，

在横线上应该填写的是

A、Mid(str,k,1)

B、Mid(str,j,1)

C、str(k)

D、str(j)

标准答案：B

知识点解析：将输入对话框中输入的第一个字符串赋值给$上第一个For循环，

将输入3个字符复制到数组ch(3)中；第二个For•的多重循环，利用数组count

记录字符串str中出现ch(3)数组元素的个数；最后一个For循环输出记录的次

数。则在第二个for的多重循环中，If条件语句应为检验待查找的字符ch(k)和

字符串str中的每个字符是否相同，相同时，条件为真。故应该与Mid(str,j,

1)，即与str的j后的第一个字符比较，看是否相同。由于在For循环中，保证了

ch(k)每个元素和str的每个字符都进行了比较。

7、窗体上有一个名称为Linel的直线控件，并有如下程序：DimdownAsBoolean,

xl%,yl%PrivateSubForm_Load()Linel.Visible=Falsedown=FalseEndSubPrivate

SubFonn_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Thendown=Truex1=X：yl=YEndIfEndSubPrivateSub

Form_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton

=1Thendown=FalseLinel.xl=xl：Linel.yl=ylLinel.x2=X：Linel.y2=Y

Linel.Visible=TrueEndIfEndSub运行程序，按下鼠标左键不放，移动鼠标到窗

体其他位置处放开左键，则产生的结果是

A、以鼠标按下和抬起的两点为端点显示一条直线

B、鼠标按下时显示一条直线；鼠标抬起时直线消失

C、直线从鼠标按下处移动到鼠标抬起处

D、鼠标按下时直线消失：鼠标抬起时显示直线

标准答案：A

知识点解析：如果光标移到某个位置,按下鼠标键,则产生MceDcwn事件，松

开鼠标键，产生MouseUp过程。对于两个键的鼠标来说，左键的Button参数值为

1,右键的Button参数值为2,因此IfButton=1条件语句保证只有按下左键或松开

左键才能执行IF后面的语句。鼠标左键按下，执行Form_MouseDown过程中，

xl,yl分别记录了鼠标按下的坐标；鼠标抬起，执行Foirn_MouseUp过程，直线

起始点坐标为(xl,yl),结束点坐标为鼠标左键放开时的坐标(x2,y2),又直

线Linel可见属性为true,故以鼠标按下和抬起的两点为端点显示一条直线，改选

项A正确。

8、编写如下程序:PrivateSubCommandI_Click()Dima(2,3)Fori=0To2Forj=

0To3a(i,j)=OputBox("请输入整数")NextjNextiFori=0To2a(i,1)=a(i,3)Next

iFori=0To2Forj=0To3Printa(i,j),NextjPrintNextiEndSub程序运行后，单

击命令按钮Command],并输入了12个整数：1,2,3,4,5,6,7,8,9,10,

11,12,则输出结果为

AI10

BI12

C、321476581110912

3234767811101112

标准答案：B

知识点解析：第一个For的多重循环，将输入的12个整数赋值给数组a(2,3),

a[0,0]=1,a[0,l]=2,a[0,2]=3；a[l,0]=4,a[l,l]=5,a[l,2]=6；a[2,0]=7,a[2,l]=8,a[2,2]=9；

a[3,0]=10,a[3,l]=ll,a[3,2]=12；o第二个For循环，将数组a的第4列的值赋值给第

2列；故输出结果如B所示，B正确。

9、有如下过程：PrivateSubCommand1_Click()DimNameAsString*20Open

"file!.dat"ForRandomAs#1Len=20k=1DoWhileNotEOF(1)Get#1,k,Name

PrintNamek=k+2LoopClose#1EndSub这一过程的功能是

A、读入文件tilel.dat中所有记录号为偶数的记录并显示在窗体上

B、读入文件filel.dat中所有记录号为奇数的记录并显示在窗体上

C、读入文件filel.dat中记录号为1的记录并显示在窗体上

D、把Name中的数据写进文件filel.dat中

标准答案：B

知识点解析：Open语句兼有打开文件和建立文件两种功能。Open“filel.dat”For

RandomAs#1Len=20以随机方式打开filel.dat,记录的长度为20个字节。EOF

函数用来返回测试文件的结束状态，对于顺序文件来说，如果已达到文件尾，则函

数返回值为True,否则返回值为False。利用EOF函数，可以避免在文件输入时出

现”输入超出文件尾”的错误。EOF(n)的含义是已到达文件尾，NotEOF(n)的含

义是没有到达n所对应文件的末尾。DoWhileNolEOF(l)保证循环执行，直到已

到达文件号为1的文件尾。Get#文件号，【记录号】，变量这一语句实现的功能是

将一个打开的磁盘文件的一条记录读到一个变量中。Get#l,k,Name,打开文

件号1文件，将记录号为k的记录读到变量Name。PrintName将Name显示在窗

体上。k的初始值为1,在循环中k=k+2,保证了循环中操作的记录号为奇数，即

将读入文件filel.dat中所有记录号为奇数的记录显示在窗体上。故选项B正确，A

项和C项表述错误。程序中并没有把Name中的数据写进文件filel.dat中的语句，

故D项错误。故选择B项。

10、设数据元素的集合D二{1,2,345},则满足下列关系R的数据结构中为线性结

构的是

A、R={(1,2),(3,4),(5,1))

B、R={(1,3),(4,1),(3,2),(5,4)}

C、R={(1,2),(2,3),(4,5〕)

D,R={(1,3),(2,4),(3,5)}

标准答案：B

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

每一个节点最多有一个前件，也最多有一个后件，称为线性结构。不同时满足以上

两个条件的数据结构就祢为非线性结构。A选项中有两个根节点3和5故错误。B

选项根节点为5,排列顺序为54132,B选项正确。C选项有两个根节点1和4,故

错误。D选项有两个根节点1和2,故错误。

11、下列叙述中正确的是

A、链表结点中具有两个指针域的数据结构可以是线性结构，也可以是非线性结构

B、线性表的链式存储结构中，每个结点必须有指向前件和指向后件的两个指针

C、线性表的链式存储结构中，每个结点只能有一个指向后件的指针

D、线性表的链式存储结构中，叶子结点的指针只能是空

标准答案：A

知识点解析：双向链表与树形结构的节点均可以包含两个指针域，但前者为线性结

构后者为非线性结构，A选项正确。双向链表含有指向前件和指向后件的两个指

针，C选项错误。线性链表，就是指线性表的链式存储结构。由于这种链表中，每

个节点只有一个指针域，故又称为单链表，B选项错误。二叉树为非线结构，叶子

节点没有后件但是可以有指向前件的指针，D选项错误。

12、一个栈的初始状态为空。现将元素A,B,C,D,E依次入栈，然后依次退栈三次，

并将退栈的三个元素依次入队（原队列为空），最后将队列中的元素全部退出。则

元素退队的顺序为

A、ABC

B、CBA

C、EDC

D、CDE

标准答案：C

知识点解析：栈所有的插入与删除都限定在表的同一端进行。入栈运算即在栈顶位

置插入一个新元素，退栈运算即是取出栈顶元素赋予指定变量。队列指允许在一端

进行插入，而在另一端进行删除的线性表。习惯上称往队列的队尾插入一个元素为

入队运算，称从队列的队头删除一个元素为退队运算。元素入栈后为ABCDE,退

栈并入队后，队中元素为EDC。退队时从队头开始，顺序为EDC,C选项正确。

13、某二叉树的中序序列为DCBAEFG,后序序列为DCBGFEA,则该二叉树的深

度（根结点在第1层）为

A、5

B、4

C、3

D、2

标准答案：B

知识点解析：深度,定义一棵树的根节点所在的层次为1.其他节点所在的层次等

于它的父节点所在的层次加1,树的最大层次称为树的深度。二叉树遍历可以分为

3种：前序遍历（访问根节点在访问左子树和访问右子树之前）、中序遍历（访问

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

树和访问右子树之后）。二叉树的后序序列为DCBGFEA,A为根节点。中序序列

为DCBAEFG,可知DCB为左子树节点，EFG为右子树节点。同理B为C父节

点,C为D父节点。同理E为F根节点，F为G根半点。故二义树深度为4层。B

选项正确。

14、软件生命周期是指

A、软件产品从提出、实现、使用、维护到停止使用退役的过程

B、软件的需求分析、设计与实现

C、软件的开发与管理

D、软件的实现和维护

标准答案：A

知识点解析：通常把软件产品从提出、实现、使用、维护到停止使用、退役的过程

称为软件生命周期，A选项正确。

15、某系统结构图如下图所示金三］该系统结构图的深

度是

A、1

B、2

C、3

D、4

标准答案：C

知识点解析：深度表示控制的层数。题目中系统共有3层，C选项正确。

16、下面属于应用软件的是

A、学生成绩管理系统

B、UNIX操作系统

C、汇编程序

D、编译程序

标准答案：A

知识点解析：计算机软件按功能分为应用软件、系统软件、支撑软件（或工具软

件）。系统软件是管理计算机的资源，提高计算机的使用效率，为用户提供各种服

务的软件，如操作系统、数据库管理系统、编译程序、汇编程序和网络软件等，

B、C、D均为系统软件。应用软件为了应用于特定的领域而开发的软件，A选项

正确。

17、将E-R图转换为关系模式时，E-R图中的属性可以表示为

A、属性

B、键

C、关系

D、域

标准答案：A

知识点解析：暂无解析

则所使用的操作为

A、并

B、自然连接

C、除法

D、交

标准答案：C

知识点解析•：常用的扩充运算有交、除、连接及自然连接等。并：RS是将S由的

记录追加到R后面。交：RS结果是既属于R又属于S的记录组成的集合。上述两

种操作中，关系R与S要求有相同的结构，故A、D选项错误。自然连接：去掉

重复属性的等值连接。刍然连接要求两个关系中进行，比较的是相同的属性，并且

进行等值连接，可知B选项错误。除运算可以近似地看作笛卜尔积的逆运算。当

5乂T=1^时，则必有口・$=丁，T称为R除以S的商。设关系R有属性Ml,

M2,...»Mn,关系S有属性Mn—s+1,Mn—s+2,…，Mn,此时

有：R-S=7iMl,M2,Mn-s(R)一兀M1,M2,Mn-s

((7tM1,M2,Mn-s(R)xS))o由S中有属性A和Al,T中属

性为B和Bl,在R元组中找到对应于S中两个元组的T中元组为f3与n2。R中

最后一个元组与S中无对应关系，所以在T中也不会出现。C选项正确。

19、优化数据库系统查询性能的索引设计属于数据库设计的

A、需求分析

B、概念设计

C、逻辑设计

D、物理设计

标准答案：D

知识点解析：数据库设计的4个阶段为：需求分析阶段、概念设计阶段、逻辑设计

阶段、物理设计阶段。为一个给定的逻辑模型选取一个最适合应用要求的物理结构

的过程，就是数据库的物理设计。数据库物理设计的主要目标是对数据内部物理结

构作调整并选择合理的存取路径，以提高数据库访问速度及有效利用存储空间。

般RDBMS中留给用户参与物理设计的内容大致有索引设计、集簇设计和分区设

计。D选项正确。

20、VisualBasic集成环境的“工程”菜单(部分)如图所示。为了编写全局变量和

三瓦9‘格式.'调'试程创建一个新的文件，为此，应在菜单中选择的是

a添加窗体电)

国添加MDI窗体(X)

您添加模块

询添加类模块C)

A、添加窗体

B、添加MDI窗体

C、添加模块

D、添加类模块

标准答案：c

知识点。析：.bas文件是基本模块文件，故应该在菜单上选择添加模块，故选择C

项。

21、如果在程序中直接使用了没有声明的变量，则它的数据类型是

A、字符串型

B、整型

C、逻辑型

D、变体型

标准答案：D

知识点解析：字符串、整型和逻辑型数据必须先声明再使用，而变体型变量可以存

储系统内定义的所有数据类型，可以直接使用不需声明。故选择D项。

22、为了判断字符串变量ch中是否是一个大写字母，需要编写这样一个表达式：

当ch中字符为大写字母时，表达式的值为True,否则为False。下面能正确实现这

一目的的表达式是

A、A<ch<"Zn

B、A<chAndch<"Z"

C、A<chOrch<nZ"

D、A<UCase(ch)AndUCase(ch)<"Z"

标准答案：B

知识点解析：题目中的Not、And、Or属于逻辑运算符，>、〈属于比较运算符，

又叫关系运算符。A选项的表达式书写不正确，B选项能够判断字符变量是否为大

写字母，C选项or逻辑运算符，得到的是当ch或者时，返回值为正，不能判断ch

是否是个大写字母，D中选项字母大小写转换函数Ucase是将字符串中的小写字母

转换为大写字母，则当ch在a~z或者A~Z之间，返回值都为True。故选择B项。

23、为把变量a、b、c中的最大值赋值给变量x,工面语句中正确的是

A、x=IIf(IIf(a>b,a,b)>c,c,Hf(a>b,a,b))

B、x=IIf(IIf(a>b,a,b)>c,IIf(a>b,a,b),c)

C、x=IIf(a>c,IIf(a>b,a,b),c)

D、x=IIf(a>b,IIf(a<c,c,a),b)

标准答案：B

知识点解析：IIF函数实际上可以理解成”If...Then...Else”的另外一种表现形式，即

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

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

中的Hf(a>b,a,b)实际上是选择a和b中较大的数，A项语句意思是如果a,b

之间的最大数大于c,那么将c赋值给x,否则将a、b的最大数赋值给x,显然x

不是这三个数的最大数，故A项错误。B项意思是果a,b的最大数大于c,那么

将a、b的最大数赋值赋值给x,否则将c赋值给x,那么得到的x是这三个数的最

大数，故B项正确。同理，得到C项和D项错误。

24、下面程序片段中有错误Subpric()PublicxAsIntegerx=Array(l,2,3,4,

5)……EndSub为了避免出错，正确的修改方案是

A、把PublicxAsInteger改为PublicxAsVariant

把PublicxAsInteger改为Dimx(5)

CN把PublicxAsInteger改为Staticx

D、把x=Array。，2,3,4,5)改为x=Array(O,1,2,3,4)

标准答案：C

知识点解析：Public主要用在标准模块中定义全局变显或数组，全局变显只能在标

准模块中声明，不能在过程或窗体模块中声明。而在过程中主要用Dim和Sialic,

其中Static用于过程中定义静态变量及数组变量，故A和D项错误。用Array函数

对一个数组进行赋值的过程是把一个数据集合读入到数组中，格式为数组变量名

=Array(数组元素值)，其中数组变量不能是某一个具体的数据类型，只能是变体

类型，故B项错误，C项正确。

25、为了判断字符串变量strName中的姓名是否姓“李”，应采用的表达式是

A、李二Left(strName,Len(“李”))

R、李=Right(strName,Len("李"))

C、李二Mid(strName,Cn("李"))

D、李二strName

标准答案：C

知识点解析：strName中的姓名是否姓"李"Left(s,n)是截取字符串s左边的n个

字符；Right(s,n)是截取字符串s右边的n个字符；Mid(s,n)是从字符串s

的第n个字符开始，截取后面的所有字符；Len(s)是字符串s的长度。Len("李”)

为1。A项是判断字符串strName第一个字符是否是“李”，即slrName中的姓名是

否姓"李"，A项正确。B项是判断strName最后一个字符是否是“李”,C项是判断

的strName整个字符串是否是“李”，D项不符合VB变量使用规范，故B、C和D

项都错误。

26、设x的初始值为1,并有下面程序片段：WhilBxc10x=x+1Wend下面与上

述程序片段产生结果不同的是

A、DoWhilex<10x=x+1Loop

B、Dox=x+ILoopWhilex<10

C^Dox=x+1LoopUntilx>10

D、DoUntilx>=10x=x+1

标准答案：C

知识点解析：题目中的程序是先检验x<10为真时，再执行x=x+l,退出循环后

x=10；而A、B和D项与题目中的程序一样，退出循环后，x为10,故A、B和D

项正确；C项退出循环后，x为11,故C项错误。

27、下面过程定义框架中正确的是

A、Functionfun(xAsControl).......EndFunction

B、Functionfun(ByVala()AsInteger)AsLong.......EndFunction

C^Subproc(xAsInteger)AsInteger.......EndSub

D、Subproc(OptionalxAsLong,yAsInteger).......EndSub

标准答案：A

知识点解析：VisualBasic提供Cont⑹类作为控件的一般变量类型。当声明一个变

量为AsControl,就可以将任何控件引用赋给该变量，A项正确。VB中为了提高

效率，字符串和数组应通过地址传送，而不应通过带有关键字ByVai的值传送，

故B项错误。Sub过程不返回值，故C项定义错误。可选参数通过Optional关键字

指定可选的参数，其类型必须是Variani,故D项错。

28、设有下面的类型和变量定义，PrivateTypeRecnameAsStringscore(5)As

IntegerEndTypeDimstudentAsRec则下面正确的语句是

A、student="张三"

B、student.score(2)=75

C>student(3).score=69

D、score(4)=77

标准答案：B

知识点解析：Rec是用户自定义的数据类型,将"udent定义成Rec类型,它的成

员有字符串类型的name和一个整型数组。对于student,不能直接对student赋

值，只能对student的成员赋值，A项正确写法为S【="张三"，故A项错

误。student不是数组，放C项错误。在引用时成员，前面必须对象名称，D项应

改为student.score(4)=77,故D项错误。

29、写文件语句Print#与Write#的区别之一是

A、Write#用于写二进制文件；Print#用于写文本文件

B、Prim#既可以写顺序文件，也可以写随机文件；Write#则只能写顺序文件

C、Print#写到文件的每个数据项之间自动添加“，"字符；而Write#没有

D、Write#写到文件的每个数据项之间自动添加“，"字符；而Print#没有

标准答案：D

知识点解析：Prin【#语句的主要功能是把数据写入文件中。Write#语句的主要功能

是把数据写入到顺序文件中去。故A选项错误。随机文件的写操作用Put,Print#

用于写顺序文件。故B错误。只有Wrile#写到文件的每个数据项之间自动添加“，"

字符；Print#无。故C选项错误，本题正确答案为D。

30、下面不响应键盘事件的对象是

A、窗体

B、按钮

C、复选框

D、标签

标准答案：D

知识点解析：四个选项中窗体、按钮和复选框都响应键盘时间，只有标签不响应键

盘时间，故选择D项。

31、下面关于单选按钮和复选框的叙述中正确的是

A、单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为

True

B、单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1

C、单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为

2

D、单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为

1

标准答案：D

知识点解析：单选按钮Value属性用来返回或设置单选按钮的状态，为True时表

示单选按钮处于选中状态，False表示处于未选中状态。复选框Value属性用来返

回或者设置复选框的状态，。表示没有选中该复选框，1表示选中该复选框，2表

示该复选框被禁止。故A、B、C项错误，D项正确。

32、设窗体、框架、图片框(PictureBox),图像框(Image)的名称分别是

Form1Frame1>Picture1Image1,有下面4条语句:(T)Form1.Print"VB"@

FrameI.Print"VB"③PictureI.Print,rVB"(4)ImageI.PrintnVB"其中正确的是

A、①和②

B、②和③

C、①和③

D、③和④

标准答案：C

知识点解析：框架和图像框没有Prini方法，窗体和图片框有Prim方法，故选择C

项。

33、在窗体上画一个Textl文本框和一个HScrolll水平滚动条，然后编写以下程序

并运行：PrivateSubForm_Load()HScrolll.Max=Textl.Width*2HScroll1.Value=

Textl.WidthHScroll1.Width=HScrollI.MaxEndSubPrivateSubHScrollI_Change()

Textl.Width=HScroll1.ValueEndSub下面叙述中错误的是

A、拖动滚动条的滚动块，可以改变文本框的宽度

B、窗体刚显示时滚动条的宽度是文本框宽度的2倍

C、文本框的宽度最多可以增加到窗体刚显示时自身宽度的2倍

D、窗体刚显示时滚动块的位置在滚动条的最左边

标准答案：D

知识点解析：初始时，将滚动条能达到的最大值（Max属性）设为文本框宽度的两

倍，故B选项正确。初始时，将滚动块在滚动条中的当前位置（Value属性）设置

为文本框的宽度，将滚动条能达到的最大值赋值给滚动条的宽度（Width属性），

滚动框的位置改变时所触发的事件（Change事件）文本框的宽度就等于滚动块在

滚动条的当前位置，即速动滚动块，能改变文本框的宽度，A选项正确，因为滚动

条能达到最大值为文本框宽度的两倍，所以Value值最大也是文本框的两倍，那么

在滚动块滚动时，文本框宽度的变化等于Value值，即最多可以增加到窗体刚显示

时文本框宽度的两倍，故C项正确。在Form_Load中没有涉及滚动块的位置的代

码，故D项错误。

34、在窗体上画Textl、Text2两个文本框，并编写如下程序：PrivateSub

Form_Load（）Text2.PasswordChar="$"EndSubPrivateSubTextl_Change（）

Text2.Text=Text1.TextEndSub运行程序，在Textl文本框中输入“A靛DEFG",

则产生的结果是

A、在Text2中同步显示与Textl同样内容

B、在Tcxt2中同步显示"abcdcfg”

C、在Texl2中同步显示与Textl中字符数量相同的"$"

D、在Textl中显示"$",而在Text2中不显示任何内容

标准答案：C

知识点解析：PasswordChar属性是用来设置本文框的替代字符，但是Texll.Text的

内容仍为“ABCDEFG"；则Text2虽然隐含内容是“ABCDEFG”，但显示的却是

"$$$$$$$”,故选择A、B、D错误，C项正确。

35、在窗体上画一个Timerl计时器控件和一个Sh叩el形状控件，并编写如下程序

PrivateSubForm_Load（）Timerl.Interval=1000Timerl.Enabled=TrueEndSub

PrivateSubTimerl_Timer（）IfShape1.Shape=1ThenShape!.Shape=3Else

ShapeI.Shape=1EndIfEndSub运行程序，则看到的结果是

A、交替显示正方形和圆形，每秒交替一次

B、交替显示矩形和椭圆形，每秒交替一次

C、显示正方形，每秒闪烁一次

D、显示椭圆形，每秒移动一次

标准答案：A

知识点解析：Interval属性用来设置计时器事件之间所间隔的毫秒数（ms）,每隔

1000毫秒即每隔I秒产生一个Timer事件。当Shape属性设置形状控件的形状。在

Timer事件中，如果形状控件的形状为止方形（即Shape为1）,形状控件形状变

为圆形（即Shape为3）；故选项A正确，其他选项均错误。

36、下面可以识别功能键FI的事件是

A、KeyPress事件和KeyDown事件

B、KeyPress事件和KeyUp事件

C^KeyDown事件和KeyUp事件

D、KeyPress事件

标准答案：C

知识点解析：只有字符键(具有ASCII编码的键)才能触发KeyPress事件，如退格键

(ASCH=8)、回车键(ASCII=13),而光标键、删除键、F1等都不是字符键,所以不

能触发KeyPress事件，故A、B和D项错误。KeyDown和KeyUp事件返回的是

键盘的直接状态，返回的是“键"，故选择C项。

37、下面关于列表框Selected属性的叙述中正确的是

A、Selecled属性是个字符数组

B、Selected属性一个数组，用来表示哪些列表项被选中

C>Selected属性是一个逻辑型变量，当选中一个列表项时，Selected属性被设置为

True

D、Selected属性为1时表示列表框中有列表项被选中

标准答案：B

知识点解析：列表框的Selected属性表述列表框中的项目是否被选中。它和List属

性一样有相同项数的逻辑型数组，各项的取值为True或False,为True时，表示

该项被选中，否则为不选中，故A选项错误。C选项错误在，当选中一个列表项

时，Selecled(i)=lrue,i表示该表项在列表框中的下标。D选项错在，还需要设置其

布尔值为True。故B项正确。

38、下面关于菜单的叙述中错误的是

A、弹出式菜单也用菜单编辑器编辑

B、弹出式菜单中的某个菜单项也可以有自己的子菜单

C、把弹出式菜单的最高级菜单项的Visible属性设置为True,可以弹出该弹出式

菜单

D、用菜单编辑器可以同时编辑下拉式菜单和弹出式菜单

标准答案：C

知识点解析：VB中的菜单，通常通过菜单编辑器建立，可以同时编辑下拉式印弹

出式菜单，故A、D项正确。与下拉式菜单一样，弹出式菜单中的某个菜单项也可

以有自己的子菜单，故B项正确。当弹出式菜单的高级菜单项的Visible属性设置

为True时，确定运行时该菜单显示可见的，不可以弹出该弹出式菜单，故C项错

误。

39、在窗体上画一个Tcxtl文本框和一个CD1通用对话框控件，并编写下面程

序：PrivateSubCommandl_Click()CD1.Flags=1Or256CD1.Action=4If

CD1.Color>=0ThenText1.ForeColor=CD1.ColorEndIfEndSub运行程序并单击命

令按钮，下面叙述中正确的是

A、弹出的是颜色对话框

B、弹出的是打开文件对话框

C、把代码CD1.Action=4改为CDl.ShowColor效果是一样的

D、在弹出的对话框中选了一个颜色并单击“确定”按钮后，会改变文本框中文本的

颜色

标准答案：D

知识点解析：通用对话框的Action属性值为4或者ShowFonl方法，则弹出对话框

为字体对话框，用ShowColor则弹出颜色对话框，故选项A、B、C错误，D项正

确。

40、有下面的程序段:A=1.2B=321C=Len(Str(A)+Slr(B))PrimC执行上面的

程序段，输出结果是

A、5

B、6

C、7

D、8

标准答案：D

知识点解析：Str函数将数字A和B转换为字符串形式，Len用来计算字符串的长

度。Str(A)="1.2",Str(B)="321”,转换后，Str(A)和Str(B)左边都多了个

空格，此时,Str(A)+Str(B)=n1.2321",其字符串长度为8,故选D项。

二、基本操作题(本题共/题，每题1.0分，共/分0)

41、(1)在名称为Forml的窗体上添加一个名称为PictureI的图片框(PictureBox),

高、宽均为1000。在图片框内再添加一个有边框的名称为Imagel的图像框

(Image)。并通过属性窗口把考生文件夹下的图标文件Pointl1(香蕉图标)装入图像框

Image1中，如图所示。注意：存盘时必须存放在考生文

件夹下，工程文件名保存为Sjtl.vbp,窗体文件名保存为sjll.frm。(2)在名称为

Forml的窗体上添加一个名称为Command］、标题为“保存文件”的命令按钮，再添

加一个名称为CommonDialogl的通用对话框。要求：①运行时单击“保存文件''命

令按钮，则以“保存文件”方式打开该通用对话框，如图所示。②通过属性窗口设

置适当的属性，使得程序运行时对话框的标题为“俣存文件”，且默认文件名为

out2o注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。俣存

时必须存放在考生文件夹下，工程文件名保存为sji2.vbp,窗体文件名保存为

sjt2.firn。

标准答案：（1）【操作步骤】步骤1：建立界面，在窗体中添加一个图片框和一个

图像框并设置控件的属性。程序中用到的控件及属性见表3.51。

表3.51

控件图片框图像框

国性NameWidthHeiglilBcinlrrSlykNamrPJclurr

设置值Pidure1100010001IniHgrlPoint11

序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1:新建一个窗体，在窗

体中添加一个命令按钮和一个通用对话框，然后设包控件的设置其属性。程序中

用到的控件及属性见表3.52。

表3.52

控件命令安钮通用对话框

属性NHHICCuplion\an*eDialogTitle

（uHIUlUltwll保存文件C（Niun<>nI）iHl<>gluul2保存文件

---------步骤2：编写程序代码。

参考答案PrivateSubCommandl_Click（）CommonDialog1.ShowSavcEndSub步骤

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

知识点解析：暂无解析

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

42、（1）在考生文件夹下有一个工程文件sjt3.vbp,其功能是：①单击“读数据”按

钮，则将考生文件夹下in3.dat文件中的100个正整数读入数组a中。②单击“计

算”按钮，则找出这100个正整数中的所有完全平方数（一个整数若是另一个整数的

平方，那么它就是完全平方数。如：36=62,所以36就是一个完全平方数），并计

算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框Tcxtl中

显示。在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完

善程序使其实现上述功能。一।注意:考生不得修改窗体文件中已

经存在的控件和程序。在结束程序运行之前，必须进行“计算”，且必须用窗体右上

角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。(2)

在考生文件夹下有一个工程文件尔4.vbp,其窗体上有一个计时器和两个命令按

钮。计时器Tin©1的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和

“退出”。请添加一个名称为LabelI,且能根据标题内容自动调整大小的标签，其标

题为“VisualBasic程序设计”，标题字体为黑体小四号字，如图所示，程序功能如

下：①单击标题为“演示”的命令按钮时二则该按钮的标题自动变换为“暂停”，且

标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进

入。②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并

糕日上jd

暂停标签的滚动。③单击“退出”按钮，则结束程序运行。要

求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，

但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存

盘。

标准答案：(1)【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程

序代码。程序提供代码Dima(100)AsIntegerPrivateSubCommand1_C1ick()Dimk

AsIntegerOpenApp.Path&*'\in3.dat"ForInputAs#1Fork=1To100Input

#1,a(k)NextkClose#1EndSubPrivateSubCommand2click()'考生编写EndSub

PrivateSubForm_Unload(CancclAsInteger)OpenApp.Path&"\out3.dat"ForOutput

As#1Print#1,Text1.TextClose#1EndSub程序结亲参考答案PrivateSub

Command2_Click()DinisumAsLongFork=1To100Form=1ToSqr(a(k))Ifa(k)=

mA2Thensum=sum+a(k)n=n+1EndIfNextmNextkTextl=Fix(sum/n)End

Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步

骤1：打开本题工程文件，在窗体中添加一个标签，按表3.60设置标签的属性。

表3・60

控件标签

属性XtuncCaplkm\ul<iSizeEotilXainrfutilSize

设置值1Hbe11VisualBasic程序谀计Trur黑体小四号

-------步骤2：分析并编写程

序代码。程序提供代码PrivateSubCommandl_Click()*IfCommand1.Caption=?

Then'?=TrueCommand1.Caption="暂停"Else'?=False

Commandl.C叩tion="演示"EndIfEndSubPrivateSubCommand2_Click()EndEnd

SubPrivateSubTimerl_Timcr（）'If?>Form1.WidthThenLabel1.Left="

Label1.WidthElse'Cabell.Left=？+100EndIfEndSub程序结束参考答案第1

个？处填入:“演示”第2个?处填入：TimerLEnabled第3个?处填入：

Timerl.Enabled第4个？处填入：Label1.Left+Label1.Width第5个?处填入：

Label1.Left步骤3：调试并运行程序，关闭程序后按题目要求存盘。

知识点解析：暂无解析

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

43、在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为

TextUText2的文本框,其中Textl中MutiLine属性为True。请添加两个名称为

Command1Command2,标题分别为“产生数组”、“查找”的命令按钮，如图所

示。程序功能如下：①单击“产生数组”按钮，则用函数生成10个。一100范围内

（不含0和100）互不相同的随机数值，并将它们保存到一维数组a中，同时将这10

个数值显示在Textl文本框内。②单击“查找”按钮将弹出输入对话框，接收用户

输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Tcxt2文本框

内显示该数”不存在于数组中”；否则显示该数在数组中的位置。要求：请去掉程

序中的注释符，把程序中的“?”改为正确内容，使其实现上述功能，但是不能修改

窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名进行存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件，添加两个名称为

Command!,command2,标题为“产生数组“、“查找”的命令按钮。步骤2：分析并

编写程序代码。程序提供代码OptionBase1DimailO)PrivateSub

Commandl_Click()TextI.Text="“：Text2.Tcxt=nnFori=1To10*a(i)=

Fix(Rnd*?+1),Forj=1To?Ifa(i)=a(j)Then'i=?ExitFor

EndIfNextjNextiFori=1To10Textl.Text=Textl.Text+Str(a(i))+

Space(2)NextiEndSubPrivateSubCommand2_CIick()DimnumAsInteger,iAs

Integernum=InputBox("请输入待查找的数”)Fori=1To105Ifa(i)=?Then

Text2.Text=Str(num)+”是数组中的第"+Str(i)+”个值"ExitFor

EndIfNexti,If?>10ThenText2.Text=Str(num)+”不存在于数组中"EndIf

EndSub程序结束参考答案第1个？处填入：99第2个？处填入：i-1第3个？处

填入：i-1第4个？处填入：num第5个？处填入：i步骤3：调试并运行程序，

关闭程序后按题目要求存盘。

知识点解析：暂无解析

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

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

1、下列叙述中正确的是（）。

A、栈是“先进先出”的线性表

B、队列是“先进后出”的线性表

C、循环队列是非线性结构

D、有序线性表既可以采用顺序存储结构，也可以采用链式存储结构

标准答案：D

知识点解析：栈是先进后出的线性表，所以A错误；队列是先进先出的线性表，

所以B错误；循环队列是线性结构的线性表，所以C错误。

2、支持子程序调用的数据结构是（）。

A、栈

B、树

C、队列

D、二叉树

标准答案：A

知识点解析：栈支持子程序调用。栈是一种只能在一端进行插入或删除的线性表，

在主程序调用子函数时要首先保存主程序当前的状态，然后转去执行子程序，最终

把子程序的执行结果返回到主程序中调用子程序的位置，继续向下执行，这种调用

符合栈的特点，因此本题的答案为A）。

3、某二叉树有5个度为2的结点，则该叉树中的叶子结点数是（）。

A、10

B、8

C、6

D、4

标准答案：C

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

总是比度为2的结点多一个，所以本题中是5+1=6个。

4、下列排序方法中，最坏情况下比较次数最少的是（）。

A、冒泡排序

B、简单选择排序

C、直接插入排序

D、堆排序

标准答案：D

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

n（n-1）/2次，而