国家二级（VB）机试模拟试卷22（共397题）

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

套）

（共397题）

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

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

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

A、a5b

B、_xyz

C、a_b

D、andif

标准答案：B

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

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

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

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

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

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

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

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

标准答案：C

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

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

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

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

3、在数据库系统的组织结构中，下列（）映射把用户数据库与概念数据库联系了起

来。

A、外模式/模式

B、内模式/外模式

C、模式/内模式

D、内模式/模式

标准答案：A

知识点解析：数据库有两层映像，即外模式/模式和模式/内模式映像。模式/内

模式映像定义数据库全局逻辑结构与存储结构之间的对应关系。

4、单击一次命令按钮，下列程序代码的执行结果为()。PrivateSub

Commandl_Click()DimaAsInteger,bAsInteger,c»AsIntegera=2：b=3：c=4

PrintP2(c,b,a)EndSubPrivateFunctionPl(xAsInteger,yASInteger,zAs

Integer)Pl=2*x+y+3*zEndFunctionPrivateFunctionP2(xAsInteger,yAsInteger,

zAsInteger)B2=El(z,x,y)+xEndFunction

A、21

B、19

C、17

D、34

标准答案：A

知识点解析：本题考查函数调用以及参数传递。在命令按钮单击事件中，调用输出

函数P2的执行结果，实参a、b、c传递给形参x、y、z,具体的值为2、3、4。在

P2函数过程中，调用PI,实参z、x、y传递给P1的实参x、y、z,具体的值为

4、2、3o

5、在窗体上画两个单选按钮，名称分别为Optionl、Option2,标题分别为“宋体”和

“黑体”：1个复选框(名称为Checkl,标题为“粗体和1个文本框(名称为Textl,

Text属性为“改变文字字体)窗体外观如图所示。程序运行后，要求“宋体”单选

按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是()。

A、Option!.Value=FalseCheekl.Value：True

B、Optionl.Value=TrueCheckl.Value=0

C、Option2.Valuc=FalscChcckl.Value=2

D、Optionl.Value=TrueCheckl.Value=1

标准答案：D

知识点解析：单选按钮控件的Value属性值为True表示被选中.False表示被选

中；复选框控什的Value属性值为。表示未选中，I表示选中，2表示禁止。本题

中是单选按钮和复选框都被选中，故D选项正确。

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

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

A、12345ABCDE

B、EDCBA54321

C、ABCDE12345

D、54321EDCBA

标准答案：B

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

Bo

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

A、MsgBox语句的返回值是一个整数

B、执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作

C、MsgBox语句的第一个参数不能省略

D、如果省略MsgBox语句的第三个参数（Title）,则信息框的标题为空

标准答案：C

知识点解析：Msgbox语句的功能：显示消息提示框，在对活框中显示提示消息，

等待用户单击按钮，单击不同的按钮返回不同的整数。它有2种形式：①MsgBox

函数格式：变显=MsgBox（〈提示内容刁，样式］［,标题］）,注意MsgBox函数带括

号，有返回值。②MsgBox语句格式：MsgBox（〈提示内容>［,样式］［,标题］）,有

无括号都可以，无返回值。故A选项错误。其中：第1个参数：提示内容是必需

的，不能省略。故C选项正确。第2个参数：可选。整型表达式，缺省值0,指

定信息框中按钮数目、类型、图标类型、缺省按钮等。第3个参数：可选，如果

省略，则标题栏并不为空默认显示它所属的工程名。故D选项错误。执行

MsgBox语句时出现信息框后，必须关闭信息框才可执行其他操作。故B选项错

误。

8、下列程序执行后，变量a的值为（）cDima,b.c.dAsSinglea=l（）：b=20：

c=40Ifb>aThend=a：a=b：b=dEndIfIfc>aThend=a：a=c：c=dEndIfIfc>bThen

d：b：b=c：c=dEndIf

A、10

B、40

C、20

D、100

标准答案：B

知识点解析：本题考查选择语句。程序段中包括3条选择语句，其作用分别为：如

果a小于b那么交换a和b,如果a小于c那么交换a和c,如果b小于c那么交换

b和c,相当于对a、b、c做了降序排列。

9、在窗体上有一个文本框Texll,Text属性值为空，然后编写如下事件过程:

PrivateSubTextl_KcyPress(KeyAsciiAslnteger)DimstrAsString,nAsInteger

str=UCase(Chr(KeyAscii))n=Len(str)TextI.Text=String(n,str)EndSub程序运行

后，如果在文本框中输入字母“p”，则在文本框中显示的内容为()。

A、PP

B、pP

C、PP

D、Pp

标准答案：B

知识点解析：本题考查字符串函数的应用。在叮extl中按下字母“p”，则首先显示

字符“P”，接下来触发KeyPress事件，其中，UC88e把字符“p”转化为大写字母，

显示大写字母"P''。

10、检查软件产品是否符合需求定义的过程称为()，

A、确认测试

B、需求测试

C、验证测试

D、路径测试

标准答案：A

知识点解析：确认测试的任务是验证软件的功能和性能，以及其他特性是否满足需

求规格说明中确定的各种需求。

11、窗体上有一个名称为Textl的文本框；一个名称为Timeri的计时器控件，其

Interval属性值为5000,Enabled属性值是True。Tknerl的事件过程如下：Private

SubTimerI_Timer()StaticflagAsIntegerIfflag=0Thenflag=1flag=

-flagIfflag=IThenText1.ForeColor=&HFF&'&HFF&为红色

ElseText1.ForeColor=&HC000&'&HC000&为绿色EndIfEnd

Sub以下叙述中正确的是()o

A、每次执行此事件过程时，flag的初始值均为0

R、flag的值只可能取。或1

C、程序执行后，文本框中的文字每5秒改变一次颜色

D、程序有逻辑错误，Else分支总也不能被执行

标准答案：C

知识点解析：程序中flag被定义为Static变量，它的值只在第一次执行事件过程时

为0,以后每次执行计时器事件过程它的值都会保留上次过程中运算后的值，之后

它的值是1或一1。文本框控件的ForeColor属性表示文本框中文字的颜色，计时

器控件的Interval属性为5000,即计时器间隔为5秒钟一次，每次调用就会交替改

变文本框中文字的颜色。因此C选项正确。

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

Combo1,Command1和Text1,然后编写如下事件过程：PrivateSubForm_Load()

Combo1.Addltcm"AAAAA"Combo1.Additem"BBBBB"ComboI.Additem

"CCCCC"Combo1,Additem"DDDDDUComboI.Additem”EEEEE”End

Sub程序运行后，如果单击命令按钮，则在文本框中显示组合框的项ETCCCCC”。

为了实现该操作，在命令按钮的Click事件过程中应使用的语句为()。

A、Text1.Text=ComboI.List(2)

B、Texll.Text=Combol.Text

C、Textl.Text=Combol.List⑶

D^Text1.Text=ComboI.Listindex

标准答案：A

知识点解析：List属性可以返回组合框中各选项的内容。用下标区分各选项，第1

个选项下标为0,依次类推。"CCCCC”为组合框中第3个选项，可以用

Combo1.Lisl(2)返回选项内容。故A选项正确，C选项错误。Texl属性返回的是组

合框中选中项目的内容；Listindex属性返回的是选中项目的索引值，即下标。故

B、D选项错误。

13、设窗体上有一个通用对话框控件CDL希望在执行下面程序时，打开如图所示

的文件对话框：PrivateSubCommandl_Click()CDI.DialogTitle="打开文件”

CDI.InitDidC：”CDI.Filter—所有文件I*.*IWord文档I*.docI文本文

件I*.txt"CDI.FileName=<M,CDI.Action=lIfCDI.FiIeName=""ThenPrint”未打

开文件”ElsePrint”要打开文件”&CD1.FileNameEndIfEndSub

「■umc，

—jMauME「rTRSZmu

二5ahiATM笄

■■JMSMAY0・：3QiM«加

,-rw

y

^rii£j

«r»■F«L«i

郭qMHi】。

_jtn»

,jwl®X

:」mur

文牌wijj

文件。以)

rRtt方祥畀<i)

但实际显示的的对话框列出了c

\下的所有的文件盒文件夹，“义件类型''一栏中显示的是“所有文件”。下面的改正

方案中正确的是()

A^把CD1.Actioll=l改为CD1.Action=2

B、把”CDI.Filter="后面字符串中的“所有文件”改为“文本文件”

C、在语句CD1.Actions1的前面添加：CDI.Filterlndex=3

D、把CDI.FileName=""改为CDI.FileName="文本文件”

标准答案：C

知识点解析：在通用对话框控件中，Filter属性指定了在对话框中显示的文件类

型，该属性可以设置多个文件类型，每种文件类型由文件描述和文件通配符与扩展

名组成，并由“I”隔开,Filtcrlndcx属性用来指定默认的过滤器，Filter属性中设置

了多个过滤器后，每个过滤器的对应的能按从左到右顺序是1、2…，Fiherlndex属

性默认为1,即第一个过滤器，因此程序中会显示：c\下的所有文件。应该在通

活框打开之前(CD1.Action=l之前)添加CD1.Fliterlndex=3,即使默认过滤器为第

3个过滤器。

14、以卜.程序的功能是随机产生10个两位的整数：OptionBase1PrivateSub

Commandl_Click()Dima(10)AsIntegerDimiAsIntegerRandomize

Fori=1To10a(i)=Int(Rnd*100)+1Printa(i)NextiEnd

Sub运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的

修改是()o

A^a(i)=Int(Rnd*100)

B、a(i)=Int(Rnd*90)+l0

C、a(i)=Int(Rnd*100)+10

D、a(i)=Int(Rnd*101)

标准答案：B

知识点解析：由Rnd函数生成的随机数在。〜1之间，包括0但不包括1,所以有

可能产生0,与题目要求的两位的整数不符。所以语句a⑴=Int(Rnd*100)+1需

要修改为a⑴=Int(Rndx90)+10,这样就能正确产生两位的整数了。

15、计算7的值，当x大于等于y时，7=X：否则7=yc下列语句中错误的是()-

A、Ifx>=ythenz=x：z=y

B、Ifx>=yThenz=xElsez=y

C、z=y：Ifx>=yThenz=x

D、Ifx

标准答案：A

知识点解析：根据题意，使用If-Then—Else结构，正确的表达方式为：Ifx>=y

Thenz=xElscz=y，故A选项表达错误，C、D均是上述表达的等价形式。

16、在窗体上画一个通用对话框，其名称为CommonDialogl,则下列与

CommonDialogl.ShowOpen方法等效的语句是()。

ANCommonDialogl.Action=l

B、CommonDialogl.Action=2

C、CommonDialogl.Action=3

D、CommonDialogl.Action=4

标准答案：A

知识点解析：通用对话框的属性Action=1与ShowOpen方法等效，而Action=2则

与ShowSavc等效。

17、在关系模型中，每•个二维表称为•个

A^关系

B、属性

C、元组

D、主码(键)

标准答案：A

知识点解析：关系模型采用二维表来表示，即每个二维表称为一个关系。

18、形状控件能够显示为6种图形，不能显示的图形是（）。

A、正方形

B、三角形

C、椭圆

D、矩形

标准答案：B

知识点解析：形状控件的Shape属性用来确定所画形状的几何特性。它可以被设置

为6种值，如下表所示，分别画出不同的几何形状。故本题B选项三角形无法显

值常数形状

0vbSha|>eRectangle矩形（默认）

1vbShapeSquare正方形

2vl>ShaprOval椭圆形

3vbShapeCirele圆形

4vbShapeRoundedRoclanglr四角风化的矩形

5vhShapeKoundSquare四角阙化的正方形

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

A、%

B、#

C、&

D^@

标准答案：c

知识点.析：%：整型，#：双精度实型，&：长整型，@：货币型。

20、下列选项中不属于软件生命周期开发阶段任务的是（）。

A、软件测试

B、概要设计

C、软件维护

D、详细设计

标准答案：C

知识点露析：软件生命周期分为软件定义、软件开发及软件运行维护三个阶段，其

中开发阶段包括概要设计、详细设计、实现和测试。

21、当执行循环的时间较长时，为了避免被误认为是死机，通常应在循环体中放置

一个语句，这个语句是

A、ExitDo

B、ExitSub

C^ExitFor

D^DoEvents

标准答案：D

知识点解析：ExitDo语句是指从Do循环中退出，A错误；ExitSub语句是指从过

程中退出，B错误。ExitFor语句是指从For循环中退出，C项错误。在执行闲置

循环中将占用全部CPU时间，不允许执行其他事件过程，使系统处于无限循环中

没有反应，DoEvents可以把控制权交给周围环境使用，然后回到原来程序继续执

行，故D项正确。

22、窗体上有I个名称为Labell的标签；1个名称为Lisll,且含有若干表项的列

表框。为了使得单击LM1中某个表项时，在Labell中相应地显示该表项，应使用

的程序代码为

A、PrivateSubListl_Click()Label1.Caption=List!.IndexEndSub

PrivateSubListl_Click()Label1.Caption=List1.ListCountEndSub

C、PrivateSubListl_Click()Label1.Caption=List1.TextEndSub

D、PrivateSubListl_Click()Label1.Caption=ListI.SelectedEndSub

标准答案：C

知识点解析：单击Lisil中某个表项时触发Listl_Click()事件。标签的Caption属性

用于设置标签中所要显示的内容。列表框的lext加性为LE1中表项的正文，通过

这个属性可以得到被选中的项目。因此选C。

23、表达式Str(Len("123''))+Str(77.71)的值是()。

A、3+77.7

B、377.7

C、80.7

D、12377.7

标准答案：R

知识点解析：本题考查字符串处理函数。Str的功能是把数字转化为字符，Len函

数的功能是求字符串中字符的个数。题中“十”为字符串连接运算符。

24、下面关于控件数组的叙述中正确的是

A、控件数组共用同一个Click事件过程，因此在过程中无法区分单击了哪个控件

B、控件数组共用同一个Click事件过程，但在过程中可以区分单击了哪个控件

C、控件数组中不同控件使用不同的Click事件过程

D、控件数组中的控件具有相同的名称，Tabindex属性的值代表了它们下标

标准答案：B

知识点解析：控件数组中任意一个控件的事件都将触发整个控件数组的事件，不再

作为单独控件的事件处理。也就是说，如果建立了一组单选按钮的控件数组，那么

无论单击哪个单选按钮，都将触发整个控件数组的Click事件。为了区分是控件数

组中哪个控件产生的事件，VisualBasic将产生事件控件的索引号传递给控件数组

的事件过程。而一组单选按钮构成的控件数组的Click事件过程增加了一个In加x

参数：通过Index参数来判断是哪一个单选按钮触发的Click事件。建立控件数组

之后，无论单击哪一个单选按钮，都将触发这个Click事件过程，故C选项错误。

控件数组共用同一个Click事件过程，但在过程中可以通过Index参数，区分单击

了哪个控件，故选项A错误，B正确。些控件共用一个相同的控件名（即控件数

组中所有控件的Name属性相同），控件数组中的每个控件元素都有一个唯一的索

引号（Index属性）加以区分。故D项错误。

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

A、改变XI、Yl、X2、Y2屈性的值，可以改变直线显示的长短和方向

13、XI、Y1属性的值表示直线左端点的坐标

C、如果属性XI的值等于属性X2的值，则说明直线是水平显示的

D、上述都是正确的

标准答案：A

知识点解析：XI,Y1表示直线的起点坐标，选项B错误；XI和X2的值相等，表

示直线是垂直显示的，选项C错误。故正确答案为选项A。

26、在软件开发中，需求分析阶段可以使用的工具是（）。

A、N-S图

B、DFD图

C、PAD图

D、程序流程图

标准答案：B

知识点解析：在需求分析阶段可以使用的工具有数据流图DFD图，数据字典

DD,判定树与判定表，所以选择B。

27、假定在图片框Picturel中装入了一个图片，在程序运行中，为了清除该图片

（注意，清除图片，而不是删除图片框），应采用的正确方法是（）。

A、单击图片框，然后按Del键

B、执行语句Picturel.Picture=LoadPicture（""）

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

D、执行语句：Picturel.Cis

标准答案：B

知识点解析：A选项按Del键不能删除图片；C选项中Pictue属性值不能为空字符

串，语法错误；D选项中Cis方法只能清除图片上显示的内容，不能清除图片。耍

将图片框中的图片清除，用B选项方法可以。故B选项正确。

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

A、属性

B、二维表

C、网状结构

D、树状结构

标准答案：B

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

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

29＞在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Option

Base1PrivateSubCommandl_Click()Dima(4,4)Fori=1To4

Forj=1To4a(i,j)=(i—l)*3+jNextjNextiFor

i=3To4Forj=3To4Printa(j,i)；Nextj

PrintNextiEndSub运行程序，单击命令按钮，则输出结果为()。

A、69710

B、710811

C、811912

D、9121013

标准答案：D

知识点解析：程序中数组元素赋值如下:第1行，a(l,l)=l,a(l,2)=2,a(l,3)=

3,a(l,4)=4；第2行，a(2,l)=4,a(2,2)=5,a(2,3)=6,a(2,4)=7；第3行，

a(3,l)=7,a(3,2)=8,a(3,3)=9,a(3,4)=10；第4行，a(4,1)=10,a(4,2)=ll,

a(4,3)=12,a(4,4)=13；要输出的元素为：a(3,3)、a(4,3)、a(3,4)、a(4,4),即为

9、12、10、13。因此答案为D。

30、编写如卜程序：PrivateSubCommandl_Click()Dima(3,3)AsInteger

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

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

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

为()。

A、7

B、13

C、16

D、20

标准答案：C

知识点解析：程序通过For循环为数组a赋值，具体值如下：a(l,l)=14-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。

31、在关系模型中，每一个二维表称为一个

A、关系

B、属性

C、元组

D、主码(键)

标准答案：A

知识点解析：关系模型采用二维表来表示，即每个二维表称为一个关系。

32、在窗体上画一个名祢为Command1的命令按钮，并编写如下程序：Function

Fun(x)y=0Ifx<10Theny=xElsey=y+10

EndIfFun=yEndFunctionPrivateSubCommandl_Click()n=InputBox("®

输入一个数")n=Val(n)P=Fun(n)PrimPEndSub运行程序，单击命

令按钮，将显示输入对话框，如果在对话框中输入100,并单击“确定”按钮，则输

出结果为()。

A、10

B、100

C、110

D、出错信息

标准答案：A

知识点解析:程序中输入100,则调用过程为Fun(IOO),过程Fun中判断参数是否

小于10,小于10则将此值赋给y,如果不小于10,则变量y值加10,由于100不

小于10,所以y值加10,等于10,并将此值做为函数值返回。因此输出结果为

10o

33、假定有如卜的程序段：DiminlVarAsIntegerinlvar二TruePrimintVar则输出

结果是

A、0

B、-1

C^True

D、False

标准答案：B

知识点解析：VB里面True=-l,False=0。

34、编写如下程序：PrivateSubCommandi_Click()Fori=1To4PrintSpace(12-3

*i);Forj=1ToiPrintj;NextjFork=i-1To1Step-1Printk;NextkPrintNexti

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

A、1121123211234321

B、1121123211234321

C、1121123211234321

D、123432112321121I

标准答案：C

知识点解析：PrintSpace(12-3*i)语句为打印空格符。根据变量i的值变化，打印

的个数不同。For循环的执行根据变量值进行相应的打印。选C)。

35、设窗体上有一个名祢为Timerl的计时器控件，其Interval属性被设置为500,

Enabled属性被设置为True；还有一个名称为Textl的文本框和卜面的事件过程：

PrivateSubTimcrl_Timer()StaticxAsLongx=x+1Tcxtl=xEndSub程序运行一

段时间后，文本框中显示的是100,则表示

A、程序已经运行了100秒

B、程序已经运行了100亳秒

C、程序已经运行了50秒

D、文本框到窗体左边框的距离是100

标准答案：C

知识点解析：过程Timerl_Timer()按计时器的Inlerval属性值定时运行。该属性用

来设置计时器事件之间的向隔，以毫秒为单位，取值范围为0-65535,因此其最

大时间间隔不能超过65秒。文本框中显示值是100时，表示Timerl_Timer()运行

了100次，则运行时间是100*500毫秒=50秒。所以本题答案为C)。

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

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

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

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

体上显示的内容为()。

A、060

B、260

C、0612

D、2612

标准答案：A

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

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

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

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

37、窗体上有名称为Command1的命令按钮，其事件过程如下：OptionBase1

PrivateSubCommand1_Click()DimaDimb(10)AsIntegera=Array(2,4,7,3,9,6)

Fori=LBound(a)ToUBound(a)b(i)=a(i)+iSum=Sum+b(i)NextiPrintSumEnd

Sub运行程序，单击命令按钮时，窗体上显示的是

A、44

B、46

C、50

D、52

标准答案：D

知识点解析：所有维的数组缺省下界都是。或1,这取决于OptionBase语句的设

置。本题中有语句OptionBase1,所以LBound(a)=1,UBound(a)=6；For循环进

行求和计算，结果为52,选D)。

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

A、标准模块不完全由代码组成，还可以有窗体

B、标准模块中的Private过程不能被工程中的其他模块调用

C、标准模块的文件扩展名为.bas

D、标准模块中的全局变量可以被工程中的任何模块引用

标准答案：A

知识点解析：标准模块中只包含其他窗体模块中公用的一些变量、过程等代码，不

包括窗体。故选项A错误。标准模块中用Private声明的过程属于私有过程，只能

被它所在的模块中的其池过程调用，不能被工程中其他模块调用，用Public声明

的全局变量属于公用变量，可以被工程中的任何模块引用。标准模块的文件扩展名

7E.baso

39、窗体上有1个名称为Commandl的命令按钮，在设计模式下，双击

Commandl,将打开（）。

A、属性窗口

B、代码窗口

C、工程资源管理器窗口

D、工具箱窗口

标准答案：B

知识点解析：在设计模式下，双击按钮控件，将进入代码设计窗I」，故B选项正

确。本题选择B选项。

40、执行下面程序段的输出是（）。Print1,2；Print3Print4；5

A、12345

B、12345

C、12345

D、12345

标准答案：A

知识点解析：使用Print输出表达式时，如果输出的各表达式之间用逗号分隔，则

按标准输出格式（分区输出格式）显示数据项，在这种情况下，以14个字符为单位

把一个输出行分为若干个区段，逗号后面的表达式在下一区段输出。如果每个输出

项之间用分号或空格作分隔符，则按紧凑输出格式输出数据；在一般情况下，每执

行一次Print方法都会自动换行，也就是说，后面执行Print时将在新的一行上显示

信息°为了仍在同一行卜显示,可以在末尾加卜一个分号或逗号.故本题A选项

为正确的输出形式。本题选择A选项。

二、基本操作题（本题共2题，每题7.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所示。InitDirC:\步骤3：编写

Forml的Iroad事件，加入下面的代码：CDI.ShowSave步骤4：按要求将文件保

存至考生文件夹中。

知识点解析：通用对话框的InitDir属性用于为打开或另存为对话指定初始的目

录，如果此属性没有指定，则使用当前1=1录。通用对话框的初始路径由InitDir属

性设置，默认文件名由FileName属性设置，标题由DialogTille属性设置。

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

其功能是随机产生30个0〜1000的整数，将其放入一个数组中，然后愉出其中的

最大值。程序运行后，单击命令按钮（名称为Commands标题为“输出最大值”，

如图所示），即可求出其最大值，并显示在窗体上。这个程序不完整，请把它补充

HEM]

完整，并能正确运行。L一二要求：去掉程序中的注释符，把程序中

的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将

修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp,相

应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行

后，单击命令按钮，即可计算出1一1000范围内能被7整除或被5整除的整数的

个数，并显示在文本框中。在窗体的代码窗口中，己给出了部分程序，其中计算能

被7整除或能被5整除的整数的个数的操作在通用过程Fun中实现，请编写该过程

的代码。要求：请勿改动程序中的任何内容，只在FunclionFun()和EndFunction

之间填入编写的若干语句。最后将修改后的文件按原文件名存盘。

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

序代码。程序提供代码OptionBase1PrivateSubCommand1_Click()DimarrN(30)

AsIntegerDimMaxAsIntegerRandomizeFori=1To30'arrN(i)=Int(Rnd

*?)Nexti'?=arrN(1)Fori=2To30'If?ThenMax=arrN(i)End

IfNextiPrintMaxEndSub程序结束参考答案第I个？处填入：1000第2个？处

填入:Max第3个？处填入：arrN⑴〉Max或MaxvarrN⑴步骤3：调试并运行程

序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。参考答案FunctionFun()DimsAsInteger,iAs

IntegerFori=1To1000IfiMod5=0OriMod7=0Thens=s+1EndIfNextiFun

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

知识点解析：暂无解析

四、综合应用题(本题共[题，每题7.0分，共7分0)

44、在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此

外还有一个名为datain.txt的文本文件，其内容如下：324376582812985731

42536475869713243546576879805937程序运行后，单击窗体，将把文件

datain.txt中的数据输入到二维数组。Mat中，按5行、5列的矩阵形式在窗体上

显示出来，并输出矩阵右上一左下对角线上的数据，如图所示。在窗体的代码窗口

中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

•Form!|_:?S仅|

代也矩降力：

3243785828

12398573I42S

仅M

T5

132435S7

”46

6880”3T

B±-左下对余线上的鼓力：

28317S2488

要求：去掉程序中的注释符，把程序中的?改为正确

的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件

按原文件名存盘。

标准答案：本题须先定义一个数组，然后以输入方式打开文件in5.txt,并在一个

嵌套的Foi•循环中用Inpul#读入数据并赋值给每个数组元素。然后再通过一个嵌套

的For循环将数组arr中的数据在窗体上按5行、5列的矩阵形式显示出来，最后

将数组arr中第1维下标与第2维下标之和为6的数组元素显示在窗体上。步骤

I：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码OplionBase

1PrivateSubForm_Click()ConstN=5ConstM=5Dim?Dimi,jOpen

App.Path&"\"&"datain.txt"?As#lFori=lToNForj=lToM?NextjNextjClosc#l

PrintPrint"初始矩阵为："PrintFori：IToNForj=lToMPrintTab(5*j)；Mat(i,

j)；NextjPrintNextiPrint：PrintPrint“右上-左下对角线上的数为：nFOri=lToN

Forj=lToMIfThenPrintTab(5*i)；Mat(i,j)；EndIfNextjNextiEndSub程序结

束第I个?处填入：Mat(N,M)AsInteger第2个?处填入:ForInput第3个?处填

入：Input#1，Mat(i,j)第4个?处填入：i+j=6步骤3：调试并运行程序，关闭程序

后按题目要求存盘。

知识点解析：暂无解析

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

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

1、在设计窗体时双击窗体的任何地方，可以打开的窗口是()。

A、代码窗口

B、属性窗口

「、T程资源管理器窗口

D、工具箱窗口

标准答案：A

知识点解析：设计窗体时双击窗体的任何地方，默认打开的是代码窗口。故选A。

2、命令按钮CommandI的单击事件过程如下：PrivateSubCommandl_Click()

Dima(10,10)AsIntegerx=0Fori=1To3Forj=1To3

a(i,j)=i*2ModjIfx

A、I

B、2

C、3

D、4

标准答案：B

知识点解析：暂无解析

3、窗体上有名称为Command1的命令按钮，名称分别为Lisll、Lisl2的列表框，

其中Listl的MultiSelect属性设置为l（Simple）,并有如下事件过程：PrivateSub

Commandl_Click（）Fori=0ToListl.ListCoum-1IfListl.Selectcd（i）=TrueThen

List2.AddkernTextEndIfNextEndSub上述事件过程的功能是将LisU中被选中

的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列

修改中正确的是（）。

A、将For循环的终值改为Lisll.ListCount

将Listl.Selecte&i）=True改为Listl.List（i）.Selected=True

C>将List2.AddltcmText改为List2.AdditemList1.List（i）

D、将List2.AdditemText改为Lisl2.AdditemListl.Listindex

标准答案：C

知识点解析：题目程序不能将Listl中的选中项添加到List7.中，List2.Addltcm

Text一行有误,应该改为Lisi2.AdditemListl.Lisi⑴才能使Listl中每个选中的行

添加到List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过

下标访问数组中的值。

4、数据结构主要研究的是数据的逻辑结构、数据的运算和（）。

A、数据的方法

B、数据的存储结构

C、数据的对象

D、数据的逻辑存储

标准答案：B

知识点解析：数据结构是研究数据元素及其之间的相互关系和数据运算的一门学

科•，它包含3个方面的内容，即数据的逻辑结构、存储结构和数据的运算。

5、在数据库系统的内部结构体系中，索引属于（）。

A、模式

R、内模式

C、外模式

D、概念模式

标准答案：B

知识点解析：内模式又祢物理模式，它给出了数据库物理存储结构与物理存取方

法，如数据存储的文件结构、索引、集簇及hash等存取方式与存取路径，内模式

的物理性主要体现在操祚系统及文件级上，它还未深入到设备级上（如磁盘及磁盘

操作）。

6、下列关于线性链表的描述中，正确的是（）。I、只含有一个指针域来存放下一

个元素地址n>指针域中的指针用于指向该结点的前一个或后一个结点（即前件或

后件）皿、结点由两部分维成：数据域和指针域。

A、仪I、口

B、仪I、m

c、仅口、m

D、全部

标准答案：D

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

样的链表为单链表或线性链表。在链式存储方式中，要求每个结点由两部分组

成：一部分用于存放数据元素值，称为数据域；另一部分用于存放指针，称为指针

域。其中指针用于指向该结点的前一个或后一个结点(即前件或后件)。

7、假定有以下循环结构：DoUnlil条件表达式循环体Loop则以下正确的描述是

()。

A、如果、,条件表达式”的值是U,则一次循环体也不执行

B、如果”条件表达式”的值不为0,则至少执行一次循环体

C、不论“条件表达式”的值是否为“真”，至少要执行一次循环体

D、如果”条件表达式”的值恒为0,则无限次执行循环体

标准答案：D

知识点解析:本题的DoUntil…Loop循环结构是先判断,再执行的结构。DoUntil

循环语句执行的过程是，先判断条件表达式的值，如果条件表达式的值为。或

False时，即条件不成立时，则执行循环体，否则当条件表达式的值为非0或True

时，即成立，则退出DO...Loop循环。本题中，选项A条件表达式的值是0,说明

条件不成立，执行循环体。故A错误。选项B条件表达式的值不为0,说明条件

成立，退出循环。故B错误。选项C中DoUntiL..Loop语句中条件表达式的值为

“假”时，才至少执行一次循环体，故C错误。选项D中条件表达式的值恒为0,说

明表达式总是不成立，所以可以无限执行循环体，故D选项正确。

8、某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：Private

SubCommandl_Click()Dima(10)AsInteger,maxAsIntegerFork=1To

10a(k)=InputBox("输入一个整数")Nextkmax=0Fork=1

To10Ifa(k)>maxThenmax=a(k)EndIfNext

kPrintmaxEndSu卜运行程序时发现，当输入10个F数时.可以得到正确结

果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正

确运行结果的是()。

A、把Ifa(k)>maxThen改为Ifa(k)

B、把max=a(k)改为a(k尸max

C、把第2个循环语句Fork=1To10改为Fork=2To10

D、把max=0改为max=a(10)

标准答案：D

知识点解析：程序中把变量max的初始值设置为0,没有考虑到负数的情况。应该

把它的初始值设置为数组中的一个元素的值，然后让数组中的各个元素与这个值比

较，如果比它大，就替爽变量max的值，这样才能得到数组中的最大值。因此要

修改max=0这一行。

9、在数据库管理技术的发展中，数据独立性最高的是()。

A、人工管理

B、文件系统

C、数据库系统

D、数据模型

标准答案：C

知识点解析：在人工管理阶段，数据无法共享，冗余度大，不独立，完全依赖程

序；在文件系统阶段，数据共享性差；在数据库系统阶段，共享性好，独立性高。

10、假设用复制、粘贴的方法建立了一个命令按钮数组Command］，以下对该数组