国家二级VB机试（选择题）模拟试卷16

国家二级VB机试（选择题）模拟试卷

第1套

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

1、下列叙述中正确的是

A、算法的效率只与问题的规模有关，而与数据的存储结构无关

B、算法的时间复杂度是指执行算法所需要的计算工作量

C、数据的逻辑结构与存储结构是一一对应的

D、算法的时间复杂度与空间复杂度一定相关

标准答案：B

知识点解析：算法的效率与问题的规模和数据的存储结构都有关，A错误。算法的

时间复杂度，是指执行算法所需要的计算工作量，B正确。由于数据元素在计算机

存储空间中的位置关系可能与逻辑关系不同，因此数据的逻辑结构和存储结构不是

一一对应的，C错误。算法的时间复杂度和空间复杂度没有直接的联系，D错误。

2、下列叙述中正确的是

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

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

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

D、以上说法均错误

标准答案：C

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

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

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

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

的。因此C正确。

3、某二叉树共有12个结点，其中叶子结点只有1个。则该二叉树的深度为（根结

点在第1层）

A、3

B、6

C、8

D、12

标准答案：D

知识点解析：二叉树中，度为0的节点数等于度为2的节点数加1,即n2=n0-l,

叶子节点即度为0,n0=l,则n2=0,总节点数为12=n0+nl+n2=l+nl+0,则度为1

的节点数=故深度为12,选D。

4、对长度为n的线性表作快速排序，在最坏情况下，比较次数为

A、n

B、n-1

C、n(n-l)

D、n(n-l)/2

标准答案：D

知识点解析：快速排序最坏情况就是每次选的基准数都和其他数做过比较，共需比

较(n-l)+(n-2)+...+l=n(n-l)/2,选D。

5、结构化程序设计中，下面对got。语句使用描述正确的是

A、禁止使用goto语句

B、使用goto语句程序效率高

C、应避免滥用goto语句

D、以上说法均错误

标准答案：C

知识点解析：结构化程序设计•中，要注意尽量避免got。语句的使用，故选C。

6、下面不属于软件测试实施步骤的是

A、集成测试

B、回归测试

C、确认测试

D、单元测试

标准答案：B

知识点解析：软件测试主要包括单元测试、集成测试、确认测试和系统测试。

7、下面不属于软件需求分析阶段主要工作的是

A、需求变更申请

B、需求分析

C、需求评审

D、需求获取

标准答案:A

知识点解析：需求分析阶段的工作可概括为4个方面：①需求获取。②需求分

析。③编写需求规格说明书。④需求审评。

8、一般情况下，当对关系R和S进行自然连接时，要求R和S含有一个或者多个

共有的

A、记录

B、行

C、属性

D、元组

标准答案：C

知识点解析：自然连接是一种特殊的等值连接，它满足下面的条件：①两关系间

有公共域；②通过公共域的等值进行连接，选C。

有三个关系R,S和T如下：『

RST

ABC

a12

b21亡EJt£jLEJtn

c31

9、则由关系R和S得到关系T的操作是一

A、选择

B、差

C、交

D、井

标准答案：B

知识点解析：关系T是关系R的一部分，并且是关系R去掉R和S相同的元素,

符合差操作。

10、有表示公司和职员及工作的三张表，职员可在多家公司兼职。其中公司C(公

司号，公司名，地址，注册资本，法人代表，员工数)，职员S(职员号，姓名，

性别，年龄，学历)，工作W(公司号，职员号，工资)，则表W的键(码)为

A、公司号，职员号

B、职员号，工资

C、职员号

D、公司号，职员号，工资

标准答案：A

知识点解析：由于职员可以再多加公司兼职，表W的键(码)应为公司关系和职

员关系的主码，即公司号和职员号。

11、以下能对正实数d的第3位小数四舍五入的表达式是

A、0.01*Int(d+0.005)

B、0.01*Int(100*(d+0.005))

C、0.01*Int(100*(d+0.05))

D、0.01*Int(d+0.05)

标准答案：B

知识点解析：Int函数，返回的是不大于该数的一个整数。d+0.005,是让第三位小

数进位，达到四舍五入，再乘100,放大100倍，保留小数位，取整后乘0.01还

原为原数。如:5.333+0.005=5.338,乘100后为533.8,取整后为533,乘0.01后

还原为5.33。

12、设A、B、C是三角形的3条边，则以下表示“任意两边之和大于第三边”的布

尔表达式是

A、A+B>COrA+C>BOrB+C>A

A+B<COrA+C<BOrB+C<A

C、Not（A+B<=COrA+C<=BOrB+C<=A）

D、A+B>=CAndA+C>=BAndB+C>=A

标准答案：C

知识点解析：任意两边之和必须大于第3边，A）中三个条件是Or关系，是错误

的：B）中两边之和小于第三边是错误的：D）中出现两边之和等于第三边，是错

误的。所以答案为选项C）。

13、语句PrintFormat$（23846.5,”000,000.00”）的输出结果是

A、23846.5

B、23,846.5

C、23,846.50

D、023,846.50

标准答案：D

知识点解析：格式输出函数Format可以使数值、日期或字符串按指定的格式输

出。格式输出函数一般用于Print方法中，其形式如下：Format$（表达式［，格式字符

串］）表达式：要格式化的数值、日期和字符串类型表达式。格式字符串：表示按

其指定的格式输出表达式的值。格式字符串有三类：数值格式、日期格式和字符串

格式。格式字符串要加引号。此题中的格式字符串为数值格式，符号是0,显示一

位数字或是零。如果数值的位数少于格式表达式中零的位数（无论是小数点的左方

或右方），那么就把前面或后面的零补足。故本题答案为选项D）。

14、为了在运行时能显示窗体左上角的控制框（即系统菜单），应执行的操作是

A、把窗体的ControlBox属性设也为False,其他属性任意

B、把窗体的ControlBox属性设置为True,并且把BorderStyle属性设置为1到5

中的一个数

C、把窗体的ControlBOK属性设置为True,并且把BorderStyle属性设也为0

D、把窗体的ControlBox属性设置为Fale,并且把BorderStyle属性设置为1到5

中的一个数

标准答案：B

知识点解析：ControlBox属性：运行程序时该属性有效。在窗体标题栏左边设置一

个任务列表，点击窗体图标左上角显示系统菜单。True:能显示系统菜单，Fais:不

能显示系统菜单。BorderSlyle属性：为窗体等对象设置边框的式样。0-None：窗

体无边框。1-FixeSingle:程序运行后窗体大小不被改变，单线边框。2-Sizable：程

序运行后窗体大小可以被改变，双线边框。3-FixcdDouble:程序运行后窗体大小不

被改变，双线窗体。4-FixedToolWindow:程序运行后窗体大小可以被改变，单线边

框。5-SizableToolWindow:程序运行后窗体大小nJ以被改变。故本题答案为选项

B)o

15、如果要将一个窗体从内存中清除，应使用的语句是

A、Unload

B、Show

C^Load

D、Hide

标准答案：A

知识点解析：Unload语句用来将指定窗体从内存中清除。格式：Unload窗体名

称。

16、以下VisualBasic不支持的循环结构是

A、For...Next

B、ForEach...Next

C^Do...Loop

D、Do...EndDo

标准答案：D

知识点解析：VisualBasic支持的循环结构不包括Do...EndDo.

17、假定有如下情况语句:SelectCaseX能表示|X|>5的Case子句是

A、CaseNot(-5To5)

Case5To-5

C、CaseIs<-5,Is>5

D、CaseAbs(X)>5

标准答案：C

知识点解析：在Select判断语句中，如果是判断区间变量值，可以用”表达式T。表

达式”的形式；如果不是判断区间变量值，则关系运算表达式前面要加上Is。|X|>

5的VB表达式为Xv-50rx>5,故本题答案为选项C)。

18^设子程序过程定义的首部为：PublicSubS(XAsInteger,YAsSingle)则以下正

确的调用形式为

A、CallS5,4.8

B、CallSub(5,4.8)

C、Sub5,4.8

D、S5,4.8

标准答案：D

知识点解析：(1)用Call语句调用Sub过程：语法：Call过程名(［实参表

列］),实参的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个

参数时，用逗号分隔。(2)把过程名作为一个语句来用：语法：过程名|实参

1［,实参2…它与(1)的不同点是：去掉了关键字和实参列表的括号。

19、如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为

A、按Ctrl+D键

B、按Alt+D键

C、按D键

D、按Shift+D键

标准答案：B

知识点解析：访问键是菜单、菜单项或控件（如按钮）标签的文本中带下划线的字

符。访问键允许用户通过同时按Alt键和预先定义的访问键来“单击”按钮。

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

A、顺序文件

B、随机文件

C、数据库文件

D、二进制文件

标准答案：C

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

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

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

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

21、在设计阶段，如果双击窗体上的一个文本框控件，则在代码窗口中显示该控件

的事件过程所对应的事件是

A、Click

B、DblClick

C>Change

D、GotFocus

标准答案：C

知识点解析：在设计阶段.双击窗休卜的一个文本框捽件,在代码窗口中显示该捽

件的事件过程所对应的事件是Change事件。

22、耍使标签中的文本靠右显示，应将其Aligment属性设置为

A^O-LeftJustify

B、I-RightJustify

C>2-Center

D、3

标准答案：B

知识点解析：O-LeftJustify：文本靠左显示；1-RightJustify：文本靠右显示：2-

Center：文本居中显示。

23、为了删除列表框中的一个列表项，应使用的列表框方法是

A、Move

Remove

C、Clear

D^Removeltem

标准答案：D

知识点解析：Removehem方法用来删除列表中指定的项目，格式为：列表

框.Removeitem索引值。

24、通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是

A、Dir

B、Path

C、Drive

D、FileName

标准答案：D

知识点解析：FileName属性用来设置或返回程序运行过程中当前选中的文件名

称。Paih属性用来设置或返回程序运行过程中当前选中的文件的路径。

25、在设计阶段，假定在图片框Picturel中装入了一个图形，为了删除该图片框控

件，应采用的正确操作是

A、选择图片框，然后按Del键

B、执行语句Picture1.Picture=LoadPicture("H)

C、执行语句Picture1.Picture="”

D、选择图片框，在属性窗口中选择Piclure属性，然后按回车键

标准答案：A

知识点解析：删除图片框控件，先选择图片框，然后按Del键。

26、以下不能用形状控件画出的图形是

A、矩形

B、圆形

C、椭圆

D、扇形

标准答案：D

知识点解析：形状控件(Shape)提供了显示一些规则图形的简易方法，通过设置形

状控件Shape属性值，可显示6种图形：0—矩形、1—正方形、2—椭圆、3—圆、

4一圆角矩形、5—圆角正方形。

27、为了暂时关闭计时器，应把它的一个属性设置为False,这个属性是

A、Visible

B、Timer

C^Enabled

D、Interval

标准答案：C

知识点解析：Enabled是用来设置控件是否可用，而Visible是用来设巴控件是否可

见。计时器控件的Enabled属性设置为False,则停止计数；设置为True,则开始

计数。

28、假定在窗体上添加了一个通用对话框控件，其名称为CD1,并有如下程序

段：CD1.ShowOpenCDLDefaultExt="doc”在打开文件的对话框中选择了

“c:\filel.txt”文件,则FileTitle属性的值是

A、filel.doc

B、filel.txt

C、c:\filcl.txt

D、c:\filel.doc

标准答案：B

知识点解析：FileTitle属性用来指定文件对话框中所选择的文件名(不包括路径)。

该属性与FileName属性的区别是：FileName属性用来指定完整的路径，如

"d:\prog\vbf\test.frm"；而FileTitle只指定文件名，如"test.frm"。

29、以下能接收焦点的控件是

A、图像框

B、框架

C、命令按钮

D、标签

标准答案：C

知识点解析：标签、框架、菜单、直线、形状、图像框、计时器都不能接收焦点,

能接收焦点的控件为命令按钮。

30、以下不能设置Picture属性的控件是

A、窗体

B、列表框

C、复选框

D、命令按钮

标准答案：B

知识点解析：不能设置Picture属性的控件是列表框。

31、假定有如下程序:PrivateSubForm_Click()DimNAsInteger,JAsIntegerN=0

J=1DoUntilN>2N=N+1J=J+N*(N+1)LoopPrintN;JEndSub运行程序，

单击窗体，输出结果是

A、321

B、37

C、01

D、313

标准答案：A

知识点解析：DoUntil…Loop语句在条件满足的前奏下会一直执行中间的循环语

句。N的初值为0,因此循环会执行3次。在循环体内N每次被加1。因此结束时

N=3o同样的方法可算出J=21。选A)。

32、在窗体上画一个组合框，其名称为Combol,然后编写如下事件过程：Private

SubForm_Load()ComboI.Text="I"Fori=1To10Sum=Sum+iNexti

Combo1.Text=SumEndSub程序运行后，输出结果为

A、在组合框的编辑区中显示1

B、在组合框的编辑区中显示不定值

C、在组合框的编辑区中显示55

D、出错信息

标准答案：C

知识点解析:For循环实现1到10的累加,结束循环后Sum=550选C)。

33、假定有如下程序:PrivateSubForm_Click()Dima(4)AsInteger,b(4)AsInteger

Fork=0To2a(k+1)=Val(InputBox("请输入一个整数："))b(3-k)=a(k+1)Next

kPrintb(k)EndSub运行程序，单击窗体，依次输入3、6、9,输出结果为

A、3

R、6

C、9

D、1

标准答案：A

知识点解析:For循环对数组a和b赋值。b(3)=a(l),b(2)=a(2),b(l)=a(3),循

环结束时k=3。因此选A)。

34、设窗体上有一个Commandl命令按钮，还有以下程序代码：PrivateSub

Commandl_Click()StaticxAsIntegerx=x+1Callproc(x)Printx,EndSubPrivate

Subproc(aAsInteger)StaticxAsIntegerx=x+aa=xEndSub程序运行后，3次单

击命令按钮，则产生的输出是

A、123

B、135

C、137

D、246

标准答案：C

知识点解析：注意Stalic关键字修饰的变量，在过程退出后，变量值保持不变，选

C)O

35、设有如下程序;PrivateSubsV(ByValmAsInteger,nAsInteger)m=m*2n=

n-5Printm;nEndSubPrivateSubForm_Click()DimxAsInteger,yAsIntegerx=10

y=15sVx,yPrintx;yEndSub运行程序，单击窗体，输出结果由

A、20101010

B、10152010

C、20151015

D、20102010

标准答案：A

知识点解析：函数传递参数有值传递和引用传递。默认是引用传递。sV(ByValm

AsInteger,nAsInteger)函数中m为值传递，n为引用传递。值传递不改变赛参值。

即在Form_Click()过程中调用sV不会改变x的值。选A)。

36、阅读程序：OptionBase1PrivateSubForm_Click()Dima(3,3)AsIntegerFori=

1To3Forj=1To3a(i,j)=Printa(i,j);NextjPrintNextiEndSub运

行上面的程序，单击窗体，输出结果如下：

A、i+j

B、i*j

C、(i-l)*3+j

D、i+(j-1)*3

标准答案：D

知识点解析：该程序段是个两重嵌套循环给数组a元素赋值。下标用变量i表示，

上标用j表示。按循环执行顺序依次代入变量值计算，需要得出如题的打印结果，

计算公式为i+(j-1)*3,选D)。

37、有如卜程序：PrivateSubForm_Click()DimSAsStringS=InputBox("请输入一

个字符串:H)Fori=1ToLen(S)\2IfMid(S,ij)<>Mid(S,Len(S)-i+1,l)Then

Print"No"ExitSubEndIfNextiPrint"Yes"EndSub运行程序，单击窗体，在输入

对话框中输入abeseba,则输出结果为

A、abc

B、Yes

C、cba

D、No

标准答案：R

知识点解析：程序实现从输入的字符串中查找前半截和后半截中不同的字符，找到

后打印No,并退出过程。如果没有找到，则打印Yes。题目中输入字符串

abeseba,则Len(S)=7,For循环的上限是Len(S)\2=3,代入循环变量，当i=l

时Mid(S,i,l)=a,Mid(S,Len(S)-i+1,l)=a,以此类推，每个字符都相等。选

B)o

38、阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNexti

EndSubPrivateSubFonn_Click()Dima(4)AsIntegerFori=1To4a(i)=i+4Nexti

PaFori=1To4Prinla(i)NexliEndSub运行上面的程序，单击窗体，输出结果为

A、2468

B、5678

C、10121416

D、481216

标准答案：A

知识点解析：Form_Click过程中首先对a数组用For循环赋值。然后调用过程P。

注意P参数传递是引用芍递，因此数组a的元素值在执行P过程后会被改变。之后

的For换输出变量值是过程P中对数组元素的赋值。选A)。

39、有如下程序：Functionfun(ByValnumAsInteger)AsIntegerDimkAsIntegerk

=Inum=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Loopfun=k

EndFunctionPrivateSubForm_Click()DimnAsIntegerDimrAsIntegern=

InputBox("请输入一个数:")n=Int(n)r=fun(n)PrintrEndSub程序运行后,单击

窗体，在输入对话框中输入246,输出结果为

A、120

B、48

C、24

D、60

标准答案：B

知识点解析：程序从对话框中获得n的初值并转换成数字进行计算。Do

While...Loop循环对传过来的数值进行处理。Mod为取余函数。代入变量和初值进

行计算可得退出循环时k=48。选B)。

40、在窗体上画一个命令按钮，然后编写如下程序：OptionBase1PrivateSub

Command1_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=11-iNextix=

InputBox("输入一个整数(3〜10)")PrintArr(2+Arr(x))EndSub程序运行后，单

击命令按钮，在输入对话框中输入7,则输出结果为

A、3

B、4

C、5

D、6

标准答案：C

知识点解析：For循环对数组Arr赋初值。得到的结果是元素值从10到1的倒序。

Arr(7)=4。Arr(2+Arr(x))=Arr(2+4)=5o选C)。

国家二级VB机试(选择题)模拟试卷

第2套

一、选择题(本题共“题，每题3分，共4。分。)

1、下列链表中，其逻辑结构属于非线性结构的是

A、二叉链表

B、循环链表

C、双向链表

D、带链的栈

标准答案：A

知识点解析：在定义的链表中，若只含有一个指针域来存放下一个元素地址，称这

样的链表为单链表或线性链表。带链的栈可以用来收集计算机存储空间中所有空闲

的存储结点，是线性表。在单链表中的结点中增加一个指针域指向它的直接前件，

这样的链表，就称为双向链表(一个结点中含有两个指针)，也是线性链表。循环

链表具有单链表的特征，但又不需要增加额外的存贮空间，仅对表的链接方式稍做

改变，使得对表的处理更加方便灵活，属于线性链表。二叉链表是二叉树的物理实

现，是一种存储结构，不属于线性结构。答案为A选项。

2、设循环队列的存储空间为Q(l:35),初始状态为front=rear=35。现经过一系列

入队与退队运算后，front=15,rear=15,则循环队列中的元素个数为

A、15

B、16

C、20

D、0或35

标准答案：D

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

针front指向排头元素的前一个位置。在循环队列中进行出队、入队操作时，头尾

指针仍要加1,朝前移动。只不过当头尾指针指向向量上界时，其加1操作的结果

是指向向量的下界0。由于入队时尾指针向前追赶头指针，出队时头指针向前追赶

尾指针，故队空和队满时，头尾指针均相等。答案为D选项。

3、下列关于栈的叙述中，正确的是

A、栈底元素一定是最后入栈的元素

B、栈顶元素一定是最先入栈的元素

「、栈操作遵循先进后出的原则

D、以上说法均错误

标准答案：C

知识点。析：栈顶元素总是后被插入的元素，从而也是最先被删除的元素；栈底元

素总是最先被插入的元素，从而也是最后才能被删除的元素。栈的修改是按后进先

出的原则进行的。因此，栈称为先进后出表，或“后进先出”表，所以选择C。

4、在关系数据库中，用来表示实体间联系的是

A、属性

B、二维表

C、网状结构

D、树状结构

标准答案：B

知识点解析：关系模型实体间的联系采用二维表来表示，简称表。选项C为网状

模型实体间的联系，选顶D为层次模型实体间的联系，选项A属性刻画了实体

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

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

A、1：1联系

B、m：1联系

C>1：m联系

D>m：n联系

标准答案：c

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

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

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

Co

有两个关系R和S如下：

S

ABC

C31

6、则由关系R得到关系S的操作是

A、选择

B、投影

C、自然连接

D、并

标准答案：A

知识点解析：由关系R到关系S为一元运算，排除C和D。关系S是关系R的一

部分，是通过选择之后的结果，因此选A。

7、数据字典（DD）所定义的对象都包含于

A、数据流图（DFD图）

B、程序流程图

C、软件结构图

D、方框图

标准答案：A

知识点解析：在数据流图中，对所有元素都进行了命名，所有名字的定义集中起来

就构成了数据字典。因此选A,而B,C,D都不符合。

8、软件需求规格说明书的作用不包括

A、软件验收的依据

B、用户与开发人员对软件要做什么的共同理解

C、软件设计的依据

D、软件可行性研究的依据

标准答案：D

知识点解析：软件需求规格说明书是需求分析阶段的最后成果，是软件开发的重要

文档之一。软件需求规格说明书有以下几个方面的作用。①便于用户、开发人员

进行理解和交流，B正确；②反映出用户问题的结构，可以作为软件开发工作的

基础和依据，C正确；③作为确认测试和验收的依据，A正确。

9、下面属于黑盒测试方法的是

A、语句覆盖

B、逻辑覆盖

C、边界值分析

D、路径覆盖

标准答案：C

知识点解析：黑盒测试不关心程序内部的逻辑，只是根据程序的功能说明来设计测

试用例。在使用黑盒测试法时，手头只需要有程序功能说明就可以了。黑盒测试法

分等价类划分法、边界值分析法和错误推测法，答案为C。而A、B、D均为白盒

测试方法。

10、下面不属于软件设计阶段任务的是

A、软件总体设计

B、算法设计

C、制定软件确认测试计划

D、数据库设计

标准答案：C

知识点解析：从技术观点上看，软件设计包括软件结构设计、数据设计、接口设

计、过程设计。所以A、B、D正确，C为软件测试阶段的任务。

11、在编辑VB应用程序时，如果不小心关闭了属性窗口，则可以单击主窗口标准

A）芭

B）日

C）国

工具栏上的一个按钮直接打开属性窗口，这个按钮的图标是口）日

A、

B、

C、

D、

标准答案：D

知识点解析：按F4键，或单击工具栏中”属性窗口皙按钮，或选取“视图”菜单中

的“属性窗口”子菜单，均可打开属性窗口。

12、下面关于VB应用程序的叙述中正确的是

A、VB应用程序只能解释运行

B、VB应用程序只能编译运行

C、VB应用程序既能解释运行，也能编译运行

D、VB应用程序必须先编译，然后解释运行

标准答案：c

知识点解析：VB程序有两种运行方式，即解释方式与编译方式。

13、下面变量定义中错误的是

A、PublicmodAsInteger

B、Staticbut

C、DimchAsString*10

D、Dima!(-5To-1)

标准答案：A

知识点解析：变量名的命名规则是：255个字符以内，第一个字符是字母，其后可

以是字母、数字和下划线的组合，最后一个字符也可以是类型说明符。通常使用具

有一定含义的变量名，可以帮助说明功能，简化调试过程。保留字不能作为变量

名。选项A)中的mod为保留字，所以选项A)错误。

14、语句：PrintAsc(Chr$(Mid$("98765432”,4,2)))的输出是

A、65

B、A

C、8765

D、W

标准答案：A

知识点解析：Mid$(字符串,p,n)从第P个字符开始，向后截取n个字符。Chr$()是求

ASCII字符的函数,格式是Chr$(表达式)，其中“表达式”应该是合法的ASCII码值，

Chr$()函数把“表达式”的值转换为相应的ASCI【字符。Asc(v字符串表达式＞),求

字符串表达式的第一个字符的ASCII编码,函数返叵I值类型为【ntegerc

15、设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)是0)

*10+(xMod10)*100

A、935

B、395

C、539

D、593

标准答案：D

知识点解析：整除运算(\)的结果是商的整数部分。例如，7\2表示整除，商为4.5,

结果取整数部分3,不进行四舍五入。如果参加整除的操作数是浮点数，则先按四舍

五入的原则将它们变成整数，然后再执行整除运算。例如，对于8.5\2,先将8.5变

成9再进行整除，商为4.5,结果为4。取余运算(Mod)是求两个整数相除后的余

数。如果参加取余运算的操作数是浮点数，则先按四舍五入的原则将它们变成整

数，然后再执行取余运算。例如，对于8.5\2.1,先将8.5变成9,2.1变成2,然后9除

以2与1,因此取余结果为1。算术运算符的优先级：先乘除，后加减；乘方优先于

乘除；函数优先于乘方；Mod次于乘除而优先于加减；括号最优先。本题中，x\

100结果为3,((xMod100)\10)*10结果为90,(xMod10)*100结果为500,所

以输出为593,选项D)正确。

16、如果要定义一个窗体级变量，定义变量语句的位置应该是

A、在使用该变量的过程中

B、在该窗体模块所有过程的前面

C、在该窗体模块所有过程的后面

D、在某个标准模块中

标准答案：B

知识点解析：窗体级变量，在窗体的“通用声明”段所有过程的前面用Dim语句或

用Private语句声明的变量，可被本窗体的任何过程访问。

17、如果把程序的启动对象设置为：SubMain,则SubMain过程

A、只能写在Forml窗体中代码的最前面

B、可以写在Forml窗体中代码的任何位置

C、只能写在某个标准模块的代码中

D、可以写在任何窗体或标准模块的代码中

标准答案：C

知识点解析：在运行窗体程序之前先执行一些操作，此时可以通过在标准模块中创

建一个SubMain的子过程，不能在窗体模块中创建SubMain的子过程，然后在创

建的SubMain过程中编写启动时要执行的代码，每个工程只能有一个SubMain的

子过程。

18、设有下面的程序段:x=InputBox("请输入一个整数")ReDima(x)Fork=xTo

0Step-1a(k)=kNextk-,在这段程序之前应先进行数组a的定义。下面定义

语句中正确的是A)B)C)D)答案：

A^Dima(100)AsInteger

B、Dima()AsInteger

C、DimaAsInteger

D^Dima(0To100)AsInteger

标准答案：B」

知识点解析：在VB中定义动态数组通常分两步：首先在窗体层或标准模块中用

Dim、Private或Public声明一个没有下标的数组(括号不能省略)，然后在过程中用

ReDim语句定义带下标的数组。根据题意，选项B)正确。

19、设有以下过程：PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,y

EndSub针对此过程，下面正确的过程调用语句是

A、Callproc(a!,23)

B、Callprocx%,12

C^procb%

D、x=proc（12）

标准答案：C

知识点解析：（1）用Call语句调用Sub过程：语法：Call过程名（［实参表

列］），实参的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个

参数时，用逗号分隔。（2）把过程名作为一个语句来用：语法：过程名［实参

1［，实参2…它与（1）的不同点是：去掉了关键字和实参列表的括号。根据题

意，选项C）正确。

20、下面语句中能够打开随机文件的是

A、Open"tilc-txt'1ForRandomAs#1

B、Open"file.txt"ForInputAs#1

C、Open"file.txt"ForOutputAs#1

D、Open"file.txt"ForAppendAs#1

标准答案：A

知识点解析：打开随机文件的一般格式为Open”文件名"ForRandomAs#文件号

［Lcn=记录长度］。

21、文本框的Locked属性被设置为True后产生的效果是

A、光标不能进入文本框

B、不能使文本框中的文本左右滚动

C、不能修改文本框中的文本

D、在程序中不能引用文本框的内容

标准答案：C

知识点解析：文本框控件Locked属性用于设置是否锁定，如设置为True,则不能

编辑该文本框。

22、下面关于直线控件的叙述中正确的是

A、它的XI、X2属性值必须满足XI

B、如果显示的是一条垂直线，直线上面端点的坐标一定是（XI,Y1）

C、如果有2个直线控件Linel和Linc2,若Lincl.Xl二Linc2.X2,则2条线有一端

相连

D、上述都是错误的

标准答案：D

知识点解析：直线控件的（X1,Y1）、（Y2,Y2）属性用来设置直线起点和终点的坐

标。可以通过改变（XI,Yl）,（X2,Y2）的值改变线的位置。XI、X2属性值不是

必须满足X1X2,所以选项A）错误；如果显示的是一条垂直线，它的XI、X2属

性的值相等,所以选项B）错误；当Linel.Xl=Line2.X2,Linel.Yl=Line2.Y2

时，2条线有一端相连，所以选项C）错误。

23、下面叙述中错误的是

A、由于窗体不能获得焦点，所以窗体没有键盘事件

B、框架控件没有键盘事件

C、标签控件没有键盘事件

D、文本框有键盘事件，但当Enabled属性被设置为False时，其键盘事件无法被

激活

标准答案：A

知识点解析：KeyPreview属性返回或设置一个值，以决定是否在控件的键盘事件

之前激活窗体的键盘事件。键盘事件为：KeyDown.KeyUpflKeyPresso当

KeyPreview的值为True时窗体先接收键盘事件，然后是活动控件接收事件；为

False时(缺省值)活动控件接收键盘事件，而窗体不接收。

24、设窗体上有一个Textl文本框和一个HScrolll水平滚动条，并有下面的事件过

程：PrivateSubHScrolll_Change()Texll=HScroll1EndSub在程序运行时，当把

滚动框移动到最左边时，文本框中显示的是100：当把滚动框移动到最右边时，文

本框中显示的是1。根据这些信息，下面的判断中错误的是

A、滚动条的Max和Min属性的值分别是1和100

B、滚动条的Max和Min属性的值分别是100和1

C、文本框中显示的是滚动条Value属性的值

D、如果把滚动框移动到中间位置，文本框中将显示50

标准答案：B

知火点解析：在一般情况下，垂直滚动条的值由上往下递增，最，端代表最小值

(Min),最下端代表最大值(Max)；水平滚动条的值从左到右递增，最左端代表最小

值(Min),最右端代表最大值(Max),其取值范围为一32768〜32768。

25、设窗体上有1个名称为Listl的列表框，程序运行时，如果选中了第3个列表

项(最上面的列表项为第0个列表项)，则下面不成立的是

A^Listl.Selected(Listl.Listindex)的值为True

B、Listl.Selected。)的值为True

C、Cstl.List(3)的值为True

D、ListlLktlndex的值为3

标准答案：C

知识点解析：Lisll.SelecledO返回的是一个项目的选择状态，返回的是布尔值；

Listl.Listindex返回的是列表框Listl中当前选择项目的索引号码；List属性的作用

是罗列或设置表项中的内容。

26、利用通用对话框控件打开字体对话框的操作是

A^把通用对话框控件的Action属性设置为4

B、把通用对话框控件的Action属性设置为5

C、调用通用对话框控件的OpenFonl方法

D、调用通用对话框控件的ShowText方法

标准答案：C

知识点解析：通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打

印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可

见。通用对话框的Aclion属性用于设置被打开对话的类型。Aclion属性见卜表。

对话植类型

对话椎类工ActiosM片方法

0

打开文件1ShorvOpen

保存X件2ShonvSivs

比勒森亘3ShowColor

比绣字惇4SlwwFoct

打事5ShwPrinter

何与Help工件6ShowHelp

27、为了显示弹出式菜单，要使用

A、窗体的PopupMenu方法

B、窗体的OpenMenu方法

C、菜单的PopupMenu方法

D、菜单的OpenMenu方法

标准答案:A

知识点解析：显示弹出式菜单使用PopupMenu方法。

28、为了实现对象的自动拖放,应该设置该对象的一个属件.下面设置中正确的是

A、DragMode=1

B、DragMode=0

C、Draglcon=1

D、Draglcon=0

标准答案：A

知识点解析：实现对象的自动拖放应设置DragMode=lo

29、设工程中有2个窗体：Forml和Foi*m2,每个窗体上都有一个名称为Textl的

文本框。若希望把Fomil上文本框中的内容复制到Foi*m2上的文本框中，应进行

的操作是

A、执行Forml中的语句：Form1.Textl=Form2.Textl

执行Forml中的语句:Textl=Forml.Text

C、执行Form2中的语句：Forml.Textl=Textl

D^执行Form2中的语句:Textl=Form1.Textl

标准答案：A

知识点解析：把!Forml上文本框中的内容复制到Form2上的文本框中，所以应该

在Form2中添加语句：Textl=Forml.Textlo

30、设窗体上有一个Picturcl图片框，要求在图片框中的指定位置（坐标为

（500,300））输出“OK”，下面可以实现这一功能的事件过程是

A^PrivateSubForm_Click（）Picture1.CurrentX=500Picturel.CurrentY=300

Picture1.Print"OKHEndSub

B>PrivateSubForm_Click()Picture!.Left=500PictureI.Top=300Picture1.Print

"OK"EndSub

C^PrivateSubForm_Click()Picturel.CurrentX=500Picturel.CurrentY=300Print

"OK"EndSub

D、PrivateSubForm_Ciick()Picture1.Left=500Picture!.Top=300Print"OK"End

Sub

标准答案：D

知识点解析：VB中，窗体和图片框具有CurrentX、CurrentY属性，经常用这两个

属性来设置当前绘图点。VB中在图片框特定位置显示文本：Picturel.CurrentX=x

座标’设置当前X方向座标Picturel.CurrentY=y座标’设置当前Y方向座标

Picturcl.Print”文本内容”，在当前位置输出文本

31、三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线

的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确

判断，另一个不能正确判断的是

A>Ifa+b>cAnda+c>bAndb+c>aThenPrim"可以构成一个三角形"Else

Print”不能构成三角形"EndIf

Ifa+b>cOra+c>bOrb+c>aThenPrint"可以构成一个三角形"ElsePrint"

不能构成二角形"EndIf

C^Ifa+b<=cOra+c<=bOrb+c<=aThenPrint”不能构成三角形"Else

Print”可以构成一个三角形"EndIf

D、Ifa+b<=cOra+c<=bThenPrint”不能构成三角形"Elselfb+c<=aThen

Print”不能构成三角形"ElsePrint”可以构成一个三角形"EndIf

标准答案：B

知识点解析：三角形构成的条件必须满足任意2边之和大于第3边，即a,b,c任

何两个的和必须大于第三个。A）满足。B）中的Or是或，条件不满足。C）和

D）可以通过判断，均能进行正确判断。选B）。

32、有下面程序代码:PrivateSubCommandl_Click（）i=IDoWhilei<5j=IDo

j=j+1PrintLoopUntili+j>10Printi=i+2LoopEndSub程序运行时输出

字符"”的个数是

A、50

B、20

C、16

D、15

标准答案：C

知识点解析:Do...LoopUntil循环和DoWhile...Loop循环都是满足执行条件时会

一直执行循环体内的语句。直到条件不满足退出。外循坏i初值为1,条件是小于

5,每次循环加2,则执行2次。内循环条件i=l时执行10次,i=3时执行6次。选

C）O

33、下面程序的功能是输出100以内所有素数：PrivateSubCommandl_Click()For

n=2To100isprime=Truek=2DoWhilek<=n/2AndIfnModk=0

Thenisprime=Falsek=k+1LoopIfisprimeThenPrintnEndIfNextnEndSub为使

上面程序可以实现该功能，程序代码中横线处应填写的代码是

A、isprime

B、Notisprime

C、n<100

D、n<=100

标准答案：A

知识点解析：素数是大于1的自然数，除了1和本身不能被任何数整除的数。程序

用D。While循环对n进行判断，如能被整除isprime赋值为False。否则赋值为

True。随后的代码检测isprime为True时执行打印。因此DoWhile判断条件中除

了判断循环变量的上限还需要判断isprime的值。根据执行条件可知，选A)。

34、设有下面程序代码：PrivateSubCommandl_Click()DimaAsVarianta=

Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1

ToUBound(a)Ifa(k)>mThenn=mm=a(k)Elselfa(k)>nAnda(k)<>mThenn=

a(k)EndIfNextkPrintnEndSub程序运行时的输出是

A、数组中最大的数(即98)

B、数组中最小的数(即12)

C、数组中第2大的数［即87)

D、数组中第1个数(即22)

标准答案：C

知识点解析：n和m都获得数组元素a(0)的值。在For循环中，k=l时，a(k)

=a(1)=43,If条件满足，n=a(0),m=a(DoElseIf判断的相同值的条件，

只有在大于n并且不等于m的时候才赋值给no因此n中存储的数永远比m小。

而m中的值是数组中最大的值。因此选C)。

35、设有下面程序代码：PrivateSubCommandl_Click()DimstrAsString,chAs

Stringstr="VisualBasicProgramming"ch="a"n=fun(ch,str)Printstr,nEndSub

PrivateFunctionfun(chAsString,strAsString)AsIntegerDimstrbufAsString,cAs

String,nAsIntegerFork=1ToLen(str)c=Mid$(str,k,1)Ifc<>chThenstrbuf=

strbuf&cElsestrbuf=strbuf&UCasc(c)n=n+1EndIfNextkstr=strbuffun=n

EndFunction程序运行时的输出是

A、VisualBasicProgramming0

B、VisuAlBAsicProgrAmming3

C、VisulBsicProgrmming3

D、VisualBasicProgramining2

标准答案：B

知识点解析：Mid$(A$,4,2)是为了与老版本的VB兼容($的作用是强制将函数的返

回值设为字符型)。&用来连接字符串。If条件判断字符是否和输入的字符相等，

相等则n加1。选B)。

36、设有下面程序代码:OptionBase1PrivateSubCommand1_Click()Dimx(6ia=

Array(4,2,5,1,6,3)b=Array(64,24,98,27,58,41)Fork=1To6x(a(k))=b(k)Next

kFork=1To6Printx(k);NextkEndSub程序运行时的输出是

A、272441649858

B、642498275841

C、242741586498

D、986458412724

标准答案：A

知识点解析：第一个For循环对x数组元素赋初值。被赋的值根据下标，从b数组

中获取。而x的下标从数组a中的元素获得。注意OptionBasel的影响，下标从1

开始。因此x数组中的值实际上是按照a数组中值进行了一个重新排序。即x

(1)是数组b中第4个元素的值：27,其它值以此类推。选A)。

37、由高中数学可知，对于连续函数f(x),若f(xl)与f(x2)值的符号相反，则在xl

和x2之间必存在xO,使得f(x0)=0(该点称为“零点。设有VB函数：Private

Functionf(xAsSingle)AsSingle可以返回f(x)的值(函数体没有给出)。下面程序

的功能是从键盘输入2个实数xl、x2,判断在xl、x2之间是否存在零点。Private

SubCommand1_Click()DimxlAsSingle,x2AsSinglexl=InputBox("请输入一个实

数xl")x2=InputBox("请再输入一个实数x2")If()ThenPrint"在“；

xl;“与”;x2;”之间存在零点"ElsePrint”不能确定在";xl;“与";x2;”之间是否存在零

点"EndIfEndSubPrivateFunctionRxAsSingle)AsSingle......EndFunction为使上

面程序可以实现该功能，程序代码中横线处应填写的代码是

A、f(xl)>OOrf(x2)<0

B、f(xl)<0Andf(x2)<0

C、f(xl)*f(x2)<0

D、f(xl)*f(x2)>0

标准答案：C

知识点解析：判断xl和x2之间是否存在零点的条件是xl和x2符号相反。即xl

和x2的积是负数。函数f可以返回f(x)的值，因此满足上述条件的表达式是

f(xl)*f(x2)<0,选C)o

38、设窗体上有3个图像框：Imagel、Image2、Image3,并有下面的程序代码:

PrivateSubForm_Load()Image1.Picture=LoadPictureCLEAF.bmp")Image2.Picture=

LoadPictureCOPEN.bmp")Image3.Visible=FalseEndSubPrivateSubImagel_Click()

Image2.Picture=Image1PictureEndSubPrivateSubImage2_Click()Image3.Picture=

Image2.PictureImage2.Picture=ImageI.PictureImage!.Picture=Image3.PictureEnd

Sub在程序运行期间单击Image2,则在窗体上看到的结果是

AN在中显示中的图片

B、Imagel、Image2中原有图片被交换了

C、Imagel、Image2中都是原来Imegel中的图片

D、ImageImage2中都是原来Imege2中的图片

标准答案：B

知识点解析：Form_Load过程中在图相框里载入相应图片。点击Image2时，激发

Image2_Click事件，在事件中图片进行了交换。选B)。

39、设窗体上有一个名称为Listl的列表框和一个名称为Checkl的复选框数组

(下标从0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的

标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删

除。PrivateSubCheckl_Click(IndexAsInteger)Fork=0ToListl.ListCount-1If

Checkl(Index).Caption=Listl.List(k)ThenExitForEnd[fNextkIfk<

Listl.ListCountThenListl.RemoveitemkElse

Lisd.AddliemEndIfEndSub为使上面程序可以实现该功

能，程序代码中横线上应该填入的代码是

A、k

Checkl.Caption

C、Check1(k)

D、Check1(Index).Caption

标准答案：D

知识点解析：题干给出的是没有该复选框的标题时，把该复选框的标题添加到列表

框中。Listl.Addhem可以为列表框添加新项。需要添加的项要根据索引添加。选

D)o

40、窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性

值相等)，一个名称为Timerl的计时器，并有下面程序代码：DimrAsSingle,

flagAsIntegerPrivateSubForm_Load()r=Shapel.WidthTimerl.Enabled=True

Timerl.Interval=500EndSubPrivateSubTimerl_Timer()Ifflag=0Then

Shapel.Width=Shapel.Width-10IfShapel.Width<=100Thenflag=1EndIfElse

Shapel.Width=Sh叩el.Wi出h+10IfShapel.Width