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

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

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

1、下列说法中错误的是（）。

A、控件的可见性可设置为True或False

B、窗体或控件的标题可设置为任何文本

C、属性窗口中的属性可以按字母顺序排列

D、如果不设置控件属性的值，则系统自动设置为空值

标准答案：D

知识点解析：控件的可见性设置为True表示可见，设置为False表示不可见，故A

选项正确；窗体或控件的标题可以设置为任何文本型数据，故B选项正确；属性

窗口中的属性可以按“字母序”排列也可以按“分类序”排列，故C选项正确；如果不

设置控件属性的值，则系统使用控件的默认值，而不是空值，故D选项错误，所

以答案为D选项.

2、如果需要线控件在窗体上成为一条与水平线呈45。的斜线，它的属性值应满足

的条件是（）。

A、X2-X1=Y1-Y2

B、X1=X2并且Y1二Y2

C、X1=Y1«EX2=Y2

D、Yl=Xl*Sin（3.14/4）并且Y2=X2*Sin（3.14/4）

标准答案：A

知识点解析：VB中窗体的坐标系使用的是绝对坐标系，如下图所示，直线的两个

x2—xl

端点的坐标分别为（xl,yl）和（x2,y2）,根据正切公式?^^口，得到yl-y2=x2-

xl,故A选项正确。

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

和“黑体1个复选框（名称为Chcckl,标题为“粗体”）和1个文本框（名称为

Textl,Texl属性为“改变文字字体"），窗体外观如图所示。程序运行后，要求，,宋

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

B、Option1.Value=TrueCheckl.Value=0

C、Option2.Value=FaUeCheckl.Value=2

D、OptionI.Valuc=TrccCheckl.Valuc=l

标准答案：D

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

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

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

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

Commandl_Click()DimaAsIntcgc,bAsIntcge,cAsIntegera=2：b=3：c=4

PrintP2(c,b,a)EndSubPrivateFunctionPl(xASInteger,yAsInteger,zAsInteger)

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

Integer)P2=P1(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.有两个关系R，S如下:由关系R通过运算得到关系

S,则所使用的运算为()。

A、选择

B、投影

C、插入

D、连接

标准答案：B

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

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

Bo

6、VB中有3个键盘事件：KeyPress>KeyDown>KeyUp»若光标在Textl文本框

中，则每输入一个字母()。

只触发KeyUp事件

B、这3个事件都会触发

C^只触发KeyDown、KeyPress事件

D、不触发其中任何一个事件

标准答案：B

知识点解析：当控件具有焦点时，如果按下一个字母键，将会依次触发此控件的

KeyDown>KeyUp和K?yPress事件。

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

A、整数和长整数

B、整数和浮点数

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

D、整数和货币数据类型

标准答案：B

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

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

8、要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下

面能正确实现上述功能的事件过程是()。

A、PrivateSubPI_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)PrintX,YEndSub

B、PrivateSubPl_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)Picture.PrintX,YEndSub

C>PrivateSubPl_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)PI.PrintX,YEndSub

D、PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)Pl.PrintX,YEndSub

标准答案：C

知识点解析：当鼠标在图片框Pl中移动时，就会触发P1的鼠标移动事件，即

PLMouseMove事件，故排除B选项；鼠标在图片框P1中移动时，立即在图片框

中显示鼠标的位置坐标，说明是在图片框上输出数据，所以用P1的Print语句实

现。故C选项正确。

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

PrivateSubTextl_Keyaress(KeyAsciiAsInteger)DimstrAsString,nAsInteger

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

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

A、PP

B、pP

C、PP

D、Pp

标准答案：B

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

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

示大写字母“P”。

10、设a=2,b=3,c=4,d=5,下列表达式的值是()。a>bAndc<=dOr2*a>c

A^True

B、False

C、一1

D、1

标准答案:B

知识点解析：根据运算符的优先级顺序，先计算算术运算符，结果是2>3And

4<=5Or4>4；再计算关系运算符,结果为FalseAndTrueOrFalse；And优先级高

于Or优先级,先计算And,再计算Or,最后结果是False。故B选项正确。

11、负责数据库中查询操作的数据库语言是()。

A、数据定义语言

B、数据管理语言

C、数据操纵语言

D、数据捽制语言

标准答案：C

知识点解析：数据定义语言：负责数据的模式定义与数据的物理存取构建；数据操

纵语言：负责数据的操纵，包括查询及增、删、改等操作；数据控制语言：负责数

据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。

12、设工程中有2个窗体：Forml、Form2,Form1为启动窗体。Form2中有菜

单，其结构如表。要求在程序运行时，在Forml的文本框Textl中输入口令并按回

车键(回车键的ASCH码为13)后，隐藏：Forml,显示Form2。若口令为

“Teacher”，所有菜单都可见；否则看•不到“成绩录入”菜单项。为此，某人在Forml

菜单结构

标题名称级别

成绩管理mark1

成绩查询query2

窗体文件中编写如下程序:成绩录入input2

PrivateSubTextll_KeyPress（KeyAsciiAsInteger）If.KeyAscii=13ThenIfText

1.Text="Teacher"ThenForm2.input.Visible=TrueElse

Form2.input.Visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub程序

运行时发现刚输入口令时就隐藏了Forml,显示了Form2,程序需要修改。下面修

改方案中正确的是（）。

A、把Forml中Textl文本框及相关程序放到Form2窗体中

B、把Forml.Hide、Form2.Show两行移到2个EndIf之间

C、把IfKeyAscii=13Then改为IfKeyAscii="Teacher”Then

D、把2个Fonn2.input.Visible中的“Foim2.“删去

标准答案：B

知识点解析：原程序的执行流程为，当按下一个键后，激活KeyPress事件，事件

中隐藏Forml和显示From2的语句与判断是否按了回车键的语句是顺序的，即不

论按了什么键，都会执行隐藏Forml和显示From2的语句。这两句应该上移到第

二个Endlf前面，也就是放在判断是否按了回车键的If语句块中。因此B选项正

确。

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

Commandl_Click（）Dimx%,y%,z%x=InputBox（"请输入第1个整数”）

y—InpuiBox（"请输入第2个整数”）DoUntilx—yIfx>yThenx—x—y

Elsey=y—XLoopPrintxEndSub运行程赢单击命令按钮，并输入2个

整数169和39,则在窗体上显示的内容为（）。

A、11

B、13

C、23

D、39

标准答案：B

知识点解析：程序中D。循环比较输入的两个数的大小，把较大的数值减去较小的

数值后再与较小的值比较，直到两个数值相等。程序中输入169和39,则x=169

-39=130,130>yW130>39,因此x=130—39=91,如此循环x=91—39=52—39

=13,此时13>39为假，执行y=y—x=39—13=26,循环y=26—13=13,此时

x、y都为13,循环结束，因此窗体上显不为I3o

14、以下关于图片框控件的说法中，错误的是（）。

A、可以通过Print方法在图片框中输出文本

B、图片框控件中的图形可以在程序运行过程中被清除

C、图片框控件中可以放置其他控件

D、用Stretch属性可以刍动调整图片框中图形的大小

标准答案：D

知识点解析：可以通过Print方法在图片框中输出文件，图片框中的图形可以在程

序运行过程中通过载入空文件的方法清除，图片框控件可以作为父控件，即可以放

置其他控件，Slreich属，,生用来自动调整图片框中图形内容的大小。

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

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

A、1：1联系

B、m：1联系

C>1：m联系

D>m：n联系

标准答案：c

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

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

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

Co

16、如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是

（）。

A、把1组单选按钮画在窗体的左边，另1组画在右边

B、先画2组单选按钮，再画2个框架控件把2组单选按钮分别框起来

C、先画2个框架控件，再把2组单选按钮分别画在不同的框架中

D、因为1个窗体中只有1个单选按钮可以被选中，所以需要使用2个窗体

标准答案：C

知识点解析：框架用于将窗体上的对象分组。使用两个框架就可以设置两组单选按

钮，使每组都可以有一个被选中。必须先画框架，然后在框架内画出需要成为一组

的控件，才能使框架内的控件成为一个事件。如果在框架外画一个控件，然后把它

拖到框架内，则该控件不是框架的一部分，移动框架时，该控件也不会跟着移动。

17、软件生存周期中，解决软件“怎么做”的阶段是（）。

A、软件设计

B、需求分析

C、软件测试

D、可行性研究

标准答案：A

知识点解析：软件设计是软件工程的重要阶段，是一个把软件需求转换为软件表示

的过程。软件设计的基本口标是用比较抽象概括的方式确定目标系统如何完成预定

的任务，即解决软件“怎么做”的问题。故本题答案为A选项。

18、有如下语句序列：Dima,bAsIntegerPrintaPrintb执行以上语句序列，下列

叙述中错误的是（）o

A、输出的a值是0

B、输出的b值是。

C、a是变体类型变量

D、b是整型变量

标准答案：A

知识点解析：任何变量在被声明后都会有一个初始值。一般情况下，数值型变量的

初始值为0:字符串变量的初始值为空字符串：变体型变量的初始值为空值，却

Null值；布尔型的初始值为假，即False。本题中变量a定义时没有声明数据类

型，默认为Variant变体型变量，默认值是Null；交量b定义为整型变量，默认值

为0。所以输出a为空白，b为0。故A选项错误。

19＞在visualBasic中，不能关闭的窗口是()。

A、窗体设计器窗口

B、工程窗口

C、属性窗口

D、立即窗口

标准答案：B

知识点解析：在VisualBasic中，工程窗口不能关闭。

20、以下合法的VB变量名是3。

A^_x

B、2y

C、a#b

D、x_1_x

标准答案：D

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

字、数字或下划线组成③不能使用VB的保留字。-x不能以一下划线开头，不合

法；2y不能以数字开头，不合法；a#b中有#,不合法；D选项符合命名规则，故

D选项正确。

21、在VisualBasic中定义变量时，变量的类型可以用类型说明符标识。下列类型

说明符表述错误的是()，

A、$表示字符串型

B、#表示单精度型

C、表示货币型

D、%表示整型

标准答案：B

知识点解析：在VisualBasic中，％表示整型；@表示货币型；#表示双精度型；

$表示字符串型。故本题B选项表述有误。本题选择B选项。

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

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

Subpioc(aAsInteger)SialicxAsIntegerx-x+aa-xEndSub程序运彳亍后，3次单

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

A、123

B、135

C、137

D、246

标准答案：C

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

C）0

23、下列不能打开工具箱窗口的操作是（）。

A、执行“视图”菜单中的“工具箱”命令

B、按AH+F8键

C、单击工具栏上的“工具箱”按钮

D、按Alt+V,然后按Alt+X键

标准答案：B

知识点解析：打开工具箱窗口的操作方法有：执行源视图”菜单中的“工具箱”命令:

单击工具栏上的“工具箱”按钮；按Alt+V,然后按Alt+X键。

5J3

24、把数学表达式后表示为正确的VB表达式应该是（）。

A、（5x+3）/（2y—6）

B、\-6

C、（5*-3）;（2*\-6）

D、（x*5+3）/（y*2—6）

标准答案：D

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

号（）。故D选项正确。

25、在用菜单编辑器设计菜单时，必须输入的项是

A、标题

B、快捷键

C、索引

D、名称

标准答案：D

知识点解析：数据区用来输入或修改菜单项、设置属性。其中：标题项：在提供的

文本输入框中可以输入菜单名或命令名，故A项不是必须输入的。索引项：当几

个菜单项使用相同的名祢时，把它们组成控件数组，可指定一个数字值来确定每一

个菜单项在控件数组中的位置，故C项不是必须输入的。快捷键项：允许为每个

菜单项选择快捷键（热健），故B项不是必须输入的。名称项：在文本输入框中

可以为菜单名及各菜单项输入控制名。控制名是标识符（相当于控件的Name属

性），仅用于访问代码中的菜单项，它不会在菜单中出现。菜单名和每个菜单项都

是一个控件，都要为其取一个控制名，故D项是必须输入的。

26>编写如下程序：PrivateSubCommandl_Click()DimmAsInteger,nAs

Integerm=1：n=0DoWhilem<20n=m+nm=3*m

+1LoopPrintm,nEndSub程序运行后，单击命令按钮Command1，输

出结果为()o

A、4018

B、4019

C、2064

D、2164

标准答案：A

知识点解析：循环中各变量值变化如下：n=m+n=l+0=l,m=

3*m+l=3+l=4,4小于20继续循环；n=m+n=4+l=5,m=3*m+l=12+l=13,13

小于20继续循环；n=m+n=13+5=18,m=3*m+1=39+1=40,40不小于20,循

环结束。此时m=40,n=18o

27、有如卜程序代码：PrivateSubForm_Click()Dima(10)AsInteger,b(5)As

IntegerFori=1To10a(i)=iNextiForj=1To5b(j)=j*20Nextja(5)=b(2)Print

a(5)EndSub运行程序，单击窗体，输出结果是

A、40

B、20

C、10

D、5

标准答案：A

知识点解析：a(10)数组下标从。到10,a(5)被赋值5；b(5)数组下标从0

至l」5,b(2)被赋值40,题目中要求a(5)=b(2),即b(2)赋值给a(5)。故正

确答案为选项A。

28、下列叙述中正确的是

A、所谓算法就是计算方法

B、程序可以作为算法的一种描述方法

C、算法设计只需考虑得到计算结果

D、算法设计可以忽略算法的运算时间

标准答案：B

知识点解析：算法是指对解题方案的准确而完整的描述，算法不等于数学上的计算

方法，也不等于程序,A选项错误。算法设计需要考虑可行性、确定性、有穷性与

足够的情报，不能只考虑计算结果，C选项错误。算法设计有穷性是指操作步骤有

限且能在有限时间内完成，如果一个算法执行耗费的时间太长，即使最终得出了正

确结果，也是没有意义的，D选项错误。算法在实现时需要用具体的程序设计语言

描述，所以程序可以作为算法的一种描述方法，B选项正确。

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

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

A、12345ABCDE

B、EDCBA54321

C、ABCDE12345

D、54321EDCBA

标准答案：B

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

Bo

30、在窗体上画一个名称为Combol的组合框，名称为Textl的文本框，以及名称

为Command1的命令按钮，如图所示。

运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中

没有选中的文木，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程

如卜：PrivateSubCommandl_Click()IfTextl.SeiLengthoOThen

ElseCombo1.AdditemTextlEndIfEndSub程序中横线处应该填写的

是()。

A、ComboI.AddItemTex11.Tex1

B、Combo1.AdditemText1.SelStart

C、Combo1.AddItemTextl.SelText

D、ComboI.AddItemTextl.SelLength

标准答案：C

知识点解析：根据题意可知，横线处应该是将文本框中选中文本添加到组合框中。

文本框Text属性返回整个文本框中的文本，故A选项错误；SelSlarl属性返回选中

文本的起始位置，故B选项错误；SelLength属性返回选中文本的长度，故D选项

错误；SclText属性返回选中的文本，故C选项正确。

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

A、系统结构图

B、PAD图

C、数据流图(DFD图)

D、程序流程图

标准答案：C

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

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

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

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

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

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

到，所以选择C。

32、编写如下程序：OptionBase1PrivateSubCommandl_Click()Dimaa

=Array(l,2,3,4)s=0：j=lFori=4To1Step—1s=s+

a⑴*jj=j*10NexliPrimsEndSub程序运行后，单击命令按钮

Command1,输出结果为（）。

A、110

B、123

C、1234

D、4321

标准答案：C

知识点解析：变量a初始化为含4个元素的数组，由于有OptionBase1语句，因

此数组下标下界为1,元素值a（l）〜a（4）依次为1、2、3、4。For循环中从第4个

元素开始对4个元素值运算后累加，运算方法是第1个元素值乘10的0次方，第

2个元素值乘10的1次方，第3个元素值乘10的2次方，第4个元素值乘10的3

次方。即4+30+200+1000=1234。

33、以下不合法的VB变量名是

A、filename

B、read

c、_y

D、e5

标准答案：C

知识点解析：变量的命名规则是：①必须以字母开头，由字母、汉字、数字或下

划线组成；②不能在变量名中出现句点空格或者嵌入字符，例如！、@、#、

$、％、&等；③长度不得超过255个字符；④不能使用VB的关键字，关键字是

语言的组成部分，包括预定义语句（例如If、For等）、函数（Abs、Sqr等）和操作符

（Or、Mod等）。

34、设窗体名称为frmTest,为了在程序代码中将窗体的标题改为“等级考试”，其

代码应该是

A、介mTesi.Caption="等级考试"

B、Fonnl.Caption="等级考试"

C、frmTest.Title="等级考试”

D、Form1.Title="等级考试”

标准答案：A

知识点解析：窗体的标题设置方法：窗体名Caplion二新设置的标题名，由题意知，

选项A正确。

35、窗体上有一个名称为Sh叩el并显示为圆的形状控件（其Width和Height属性

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

flagAsIntegerPrivateSubForm_Load（）r=Shape1.WidthTimer1.Enabled=True

Timerl.Interval=500EndSubPrivateSubTimerl_Timer（）Ifflag=0Then

Shape1.Width=Shape1.Width-10IfShape1.Width<=100Thenflag=1EndIfElse

Shape1.Width=Shape1.Width+10IfShape1.Width>=rThenflag=0EndIfEndIf

EndSub运行程序后产生的结果是

A、圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复

B、圆一直在缩小

C、圆每隔0.5秒向右移动一次

D、圆每隔I秒向下移动一次

标准答案：A

知识点解析：Form_Load过程中设定timer事件定时触发；在Timerl_Timcr过程

中，圆圈先变小后变大，然后退出。下一次timer事件触发时继续这个过程。因

此，选A)。

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

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

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

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

D、以上说法均错误

标准答案：C

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

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

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

37、设有如下一段程序：PrivateSubCommandl_Click()StaticaAsVariant

a=ArrayC'one","two,1,''three",“four"，"five")Printa(3)EndSub针对上述

事件过程，以下叙述中正确的是()。

A、变量声明语句有错，应改为Statica⑸AsVariant

B、变量声明语句有错，应改为Statica

C、可以正常运行，在窗体上显示three

D、可以正常运行，在窗体上显示four

标准答案：D

知识点解析：题目中变量a被定义为Variant类型,Variant是一种特殊的数据类

型，除了定长String数据及用户定义类型外，可以包含任何种类的数据。变量a被

赋值为字符串数组，数组默认下标从0开始，因此元素a(3)的值为“four”。

38、有三个关系R、S和T如下：由关系R和S通过运算得到关系T,则所使用的

nT

ABC

ml□□rqm13

运算为()°LTJ

A、笛卡尔积

B、交

C、并

D、自然连接

标准答案：D

知识点解析：自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量

必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据T关系中的

有序组可知R与S进行的是自然连接操作。

39、在窗体上画一个名祢为Textl的文本框和一个名称为Commandl的命令按钮，

然后编写如下事件过程：PrivateSubCommandl_Click()DimiAsInteger,n

AsIntegerFori=0To50i=i+3n=n+1

Ifi>10ThenExitForNextTextl.Text=Str(n)EndSub程序运行后，单击

命令按钮，在文本框中显示的值是()。

A、2

B、3

C、4

D、5

标准答案：B

知识点解析♦：程序中For循环的结束有两种情况，一种是循环完指定的次数，一种

是达到一定的条件后直接退出循环。由于在循环体中循环变量i的值被修改：i=i

+3,因此，每次循环开始时i的取值为0,4,8,i为8时执行i=i+3=ll,n=n+l

=3,这时i的值大于10,退出For循环，因此For循环执行了3次，即n的值为

3。所以在文本框中会显示3。

40、有下面程序代码：PrirateSubCommand1_Click()DimaAsInteger,ba=2h=3

Printfun(a,b)；a；bEndSubPrivateFunctionfun(ByValxAsInteger,Y)AsInteger

y=x*yx=yfun=xEndFunotion执行Commandl_Click过程后的输出结果是()。

A、623

B、666

C、622

D、626

标准答案：D

知识点解析：本题考查参数传送相关知识，在程序中定义了一个Function函数过

程fun,并设置形参的传递方式为ByVai(传值调用)，形参y的传递方式为默认传

递方式ByRef(传引用调用)：在commandl_click事件过程市，使用print方法输出

三个值，分别为fun函数的返回值，变量a和变量b,由于实参a值给形参x,传

递的方式为ByVai,fun函数中对x的任何改变都不会影响实参a,所以在

commandl_Click过程中变量a的值不会改变：实参b传递地址给形参y,fun函数

中对y的任何改变都会影响实参b,在Fun函数中执行y=x*y语句后，y的值为6,

执行x=y后，x的值为6,并且通过语句fun二x,将x的值作为函数的返回值返回

到过程commanal_click中，所以最终在过程commandi_click中输出的单个值分别

为：6,2,6oD逐项正确。本题选择D选项。

二、基本操作题(本题共2题，每题7.0分，共2分0)

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

41、在名称为Forml的窗体上画一个名称为CD1的通用对话框，通过属性窗口设

置CD1的初始路径为C：\,默认的文件名为None,标题为“保存等级考试”，如

傅春在Bc：）Ta2d£3。

3

UI

K

it2

5。一—wc

Qimuj

・・・c

3”gFrfiltm

Jgwe・u

JCBH

53i

nc知UTDBWS

^38Cren

ciilttBMr«

LJU2

图2所示。图2注意:

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

sjtl.frm。

标准答案：［操作步骤］步骤1：新建一个“标准。EXE”工程，选择［T程］一［部件］命

令，在弹出的“部件”对话框的列表中选中“MicrosoftCommonDiMogControl.0"

项目，单击“确定”按钮。步骤2：在窗体Forml上画一个通用对话框，其相关属

________-12・7_____________

♦性设・伍

NameCDl

DialogTille保存警级考试

通用对话刖

FileNameNone

性设置如表12—7所示。----------InitDir——-----步骤3：编写

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

存至考生文件夹中。

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

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

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

42、在名称为Forml的窗体上设计一个菜单。要求在窗体上添加名为menu。，标

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

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

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

图3再编写适当的事件过程，使得程序运行时，单击“上一

菜单项可用”，则“不可用菜单项”变为黑色（可用）。要求程序中不得使用变量，且只

有一条语句。注意：存盘时必须存放在考生文件夹卜，工程文件名为sit2.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中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设

置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项的

唯一关键字（不能重复）；“索引”项，用于设置菜单数组中各元素的索引号；“快捷

键''项，是一个下拉列表框，用于设置菜单项的快捷键；“帮助上下文”项，设置当

鼠标移动到某菜单项上校VF1＞键时显示的帮助信息在帮助文件中的对应位置；

Visible（可见）项，用于设置控件或菜单项在程序运行时是否可见，值为True表示可

见，值为False表示不可见；Enabled（有效）项，用于设置控件或菜单项在程序运行

时是否有效，值为True时表示有效，值为False时表示无效（显示为灰色）。通过编

辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升（设置为上一级菜单）、

缩进（设置为下一级菜单）、上移、下移等操作。②文本框的Texl属性用于设置或

返回其显示的文本内容。本题原程序设计思路：在“上一菜单项可用”命令的单击

事件过程中，通过语句设置“不可用菜单项''命令的Enabled属性值为True。

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

43、（1）在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文件框，名

称分别为Texll、Text2；还有一个命令按钮，名称为C1,标题为“确定'请添加

两个单选按钮，名称分别为Opl、Op2,标题分别为“男生”、“女生”，再添加两个

复选框，名称分别为Chi、Ch2,标题分别为“体育”、“音乐”。请编写适当的事件

过程，使得程序在运行时，单击“确定”按钮后实现下面的操作：①根据选中的单

选按钮，在Textl中显示“我是男生”或“我是女生”。②根据选中的复选框，在

Text2中显示“我的爱好是音乐”或“我的爱好是体育”或“我的爱好是体育音乐”。如

图所示。注意：不得修改已经给出的程

序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和军少一个复

选框，井单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成

绩。（2）在考生文件夹下有一个工程文件sjt4.vbpo窗体上有一个名称为Timerl

的计时器，一个名称为Listl的列表框和一个名称为Labell的标签，如图所示，请

通过属性窗口向列表框添加四个项目，分别是：“第一项”、“第二项”、"第三项”、

“第四项”。程序运行后，将计时器的时间间隔设置为1秒钟，即每一秒钟从列表框

中取出一个项目显示在Labell的标签中，首先显示“第一项”，然后，依次显示“第

二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件

和程序，但不完整，请添加Lisll中的项目，去掉程序中的注释符，把程序中的?改

为正确的内容。注意：考生不得修改工程中己经存在的内容和控件属性，最后将

修改后的文件按原文件名存盘。L-----------4-----------------

标准答案：（1）步骤1:打开本题工程文件，并设置控件的属性。程序中用到的控件

表1

控件单选按钮1单选按钮2复选框1复选框2

属性NameCaptionNameCaptionNameCaptionNameCaplion

设置值Opl男生0p2女生Chi体育Ch2音乐

及属性见表lo步骤2：

分析并编写程序代码。程序提供代码PrivateSubForm_Unload(CancclAsInteger)

OpenApp.Path&"\oui3.txt"ForOutputAs#1Print#1,Opl.Value,

Op2.Value,Textl.TextPrint#1,Chi.Value,Ch2.Value,Text2.TextClose

#1EndSub程序结束参考答案PrivateSubCl_Click()IfCh2.ValueAnd

Chi.丫@1配11^11丁。*12="我的爱好是体育音乐”£尿汗(2112.ValHeAnd

Chi.Value=Fal8eThenText2二"我的爱好是音乐"EkelfChl.ValueAnd

Ch2.Valuc=FalseThenTcxt2="我的爱好是体育“ElseText2=',nEndIfIfOpl.Value

ThenTextl="我是男生"El$eIfOp2.ValueThenTextl="我是女生"Else。Textl='"'

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

1：打开本题工程文件，通过属性窗口向列表框添加四个项目，分别是：“第一

项”、“第二项”、“第三项”、“第四项”。步骤2：:分析并编写程序代码。程序提供

代码DimiAsIntegerPrivateSubForm_Load()'i=?Timed.Interval?

Timerl.Enabled=TrueEndSubPrivateSubTimedTimer。'Label1.Caption=?Ifi=3

Theni=0Elsei=i+lEndIfEndSub程序结束参考答案第1个?处填入：0第2个?处

填入：1000第3个?处填入：Listl.List⑴步骤3：调试并运行程序，关闭程序后

按题目要求存盘。

知识点解析：（1）容器控件（如窗体和框架）中的单选按钮组（OplionBullon）常用于提供

多个选项间的唯一性选择，其Value属性用于设置或返回每个单选按钮的选中状

态：值为False表示未选中，值为True表示选中。复选框（CheckBox）组常用于提供

多个选项间的多重选择，Value属性值决定每个复选框的选中状态：0—

Unchecked为未选中，1―Checked为选中，2—Grayed为禁用。根据题意，可用

一个If...Then...EndIf语句对Opl和Op2的选中情况进行处理，在Textl中显示对

应信息；用两个IJ.Then语句依次对两个复选框的选中情况进行处理，并在Tex12

中显示对应信息。（2）列表框List属性禽有“第一项”，第二项”，“第三项”，“第四

项”四个值,Timeri的Interval属性设置为1000,表示变化的时间间隔为1s,并将

Timerl的Enabled属性设:置.为True。通过【f语句和变量i的判断实现每隔1秒钟依

次显示“第一项”、“第二项”、“第三项”、“第四项”，如此循环。

四、综合应用题（本题共1题，每题1・0分，共/分0）

44、在考生目录下有一个T程文件力工vbp»窗体左边的图片框名称为Picmnd.

框中还有六个小图片框，它们是一个数组，名称为Pic,在窗体右边从上到下有三

个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture%还有一个文

本框Textl以及四个标签，如图3.50（a）所示。程序运行时，可以用鼠标拖拽的方

法把右边的物品放到左边的图片框中（右边的物品不动），同时把该物品的价格素加

到Texll中，如图3.50（b）所示。最多可放六个物品。实现此功能的方法是：程序

刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片

框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程

序中的，？，改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把

修改后的文件按原文件名存盘。

(a)(b)

图3・5O

标准答案：步骤1：打开考生文件夹下的工程文件sjt5.vbpo步骤2：在代码编辑

窗口中，去掉程序中的注释符二将问号“?”改为正确的内容。参考代码：Select

CaseSource.NameFork=0To5IfPic(k).Visible=FalseThenPic(k).Visiblc=True

Textl=Textl+a步骤3：按要求将文件保存至考生文件夹中。

知识点解析：控件的DragDrop事件有三个主要参数，其中，“Source”参数是一个

对象变量，类型为“Control”，包含被拖动对象的属性，“X”和“Y”参数是放下对象

时鼠标光标的位置。本题中为了判断拖动的是哪一个图片，因此需要判断Source

参数的Name属性。当拖动的图片确定，则在控件数组中显示的图片以及需要累加

的价格也随之确定。由于控件数组共有6个数组元素，因此应该在拖放事件中进

行一个6次的循环,在每次循环中判断数组元素是否已经被显示出来，如果没有.被

显示出来则令其Visible属性为True,然后退出循环，这样可以实现序号由小到大

每次显示一个图片的效果。

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

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

1、下列工具中，不属于结构化分析的常用工具的是()。

A、数据流图

B、数据字典

C、判定树

D、N-S图

标准答案：D

知识点解析：结构化分析常用工具有数据流图、数据字典、判定树和判定表。

2、窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判

断这个图形控件()。

A、是图像框(Image)

B、是图片框(PictureBox)

C、是形状控件

D、不是上述3种控件中的一种

标准答案：B

知识点解析：图片框是“容器”控件，可以作为父控件，而图像框不能。图片框可以

通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收Print方

法输入的信息，也不能用绘图方法在图像框上绘制图形。而形状控件3D效果的样

式，根据题目图示显然不是形状控件。因此这个图形控件是图片框。

3、设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStr

AsString,strLAsIntegertStr=""strL=Len(xStr)i=lDo

Whilei<=strL/2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL—i-F1,

1)i=i+1LoopFun=tStrEndFunction在窗体上画一个名称为

Command1的命令按钮。然后编写如下的事件过程：PrivateSub

Commandl_Click()DimS1AsStringSI="abcdefPrint

UCase(卜un(Sl))EndSub程序运行后，单击命令按钮，输出结果是()。

A、ABCDEF

abcdef

C、AFBECD

D、DEFABC

标准答案：C

知识点解析：通用过程Fun的主要功能在于tStr=tStr&Mid(xStr,i,1)&

Mid(xStr,strL-i+l,1)这一句。其中Mid(xStr,i,1)的意思是从字符串的左

边开始依次取一个字符，Mid(xStr,strL-i+l,1)的意思是从串的右边开始依次

取一个字符。整个这条一语句的用意就是从一个字符串两端依次各取一对字符连成

一个字符串。因此当Fun过程的参数为“abcdef1'时，返回值为“afbecd”，

Ucase("afbecd”)结果为"AFBECD"，这就是输出结果。

4、窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是()。Private

SubCommandl_Click()Picture1.Picture=LoadPicture(4tc：\picture,jpg”)

Picture).CisPicture1.Printupicture,'EndSub

A、窗体无显示，图片框显示图片和文字picture

B、窗体上出现picture文本，图片框无显示

C、窗体卜出现picture文本,图片框显示图片picture,jpg

D、窗体无显示，图片框只显示picture文字

标准答案：A

知识点解析：本题考查图片框属性。单击命令按钮时，图片框首先装入图片，然后

图片框清空(注意，该方法只能清空在图片框中输出的文本信息和绘图信息，而不

能清除有LoadPicture函数装载的图片)，最后图片框显示图片和“picture”文字。全

部操作都是在图片框中进行的，窗体上没有任何显示。

5、假定通过复制、粘贴操作建立了一个命令按钮数组Command],以下说法中错

误的是()。

A、数组中每个命令按钮的名称(Name属性)均为Command1

B、若未做修改，数组中每个命令按钮的大小都一样

C、数组中各个命令按钮使用同一个Click事件过程

D、数组中每个命令按钮的Index属性值都相同

标准答案：D

知识点解析：命令按钮控件数组中各控件用相同的名称和同一Click事件过程，大

小也一样，但是为了区分它们，各控件的Index属性值是不同的。故D选项错误。

6、当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的()。

A、AutoSize属性

B、Resize事件

C、AutoRedraw属性

D、Stretch属性

标准答案：B

知识点解析：本题考查窃体的属性和事件。窗体没有Stretch和AutoSize属性，窗

体的AuloRedraw是在窗体上画图时受到影响的属性。如果窗体的大小发生改变，

要使窗体上各种控件大小也要随之进行改变，应该编写Resize事件。

7^下列程序的执行结果为O。n=0j=lDoUntiln>2n=n+l：j=j+n*(n+l)Loop

Printn；j

A、01

B、37

C、321

D、313

标准答案：C

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

么把n*(n+l