VB机试模拟试卷9（共27题）

VB机试模拟试卷9（共9套）

（共27题）

VB机试模拟试卷第1套

一、基本操作题（本题共［题，每题7.0分，共［分0）

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

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

初始路径为C：\,默认的文件名为None,标题为“保存等级考试"，如图1-44所

示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp,窗体文件

9X

•"83erE3・

kJi।

Ic

3

^MO^lJeUaD0I2

5n

n

Jen

F

qTUltBmiH

°D.—.7卬0MBn

g«・n

dr«

3a0«

名为sjtl.frm。图14（2）在名称为

Forml的窗体上设计一个菜单。要求在窗体上添加名为menu。，标题为“菜单命令”

的主菜单，再添加两个名称分别为“menul"、“menu2”，标题分别为“不可用菜单

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

menu2子菜单已经选中（运行时的效果如图1-45所示）。再编写适当的事件过程，使

得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色（可用）。要求

程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹

下，工程文件名为sjt2.vbp,窗体文件名为sjt2.Frm图15

标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工

程】•【部件】命令，在弹出的“部件”对话框的列表中选中“MicrosoftCommon

DialogControl6.0”项目，单击“确定”按钮。步骤2：在窗体.Fonnl上画一个通

用对话框，其相关属性设置如表2-24所示。

表2-24

对徵属性设置值

NameCD1

DialogTitle保存等级考试

通用对话框

FileNameNone

InitDir_______8_______步骤3：编写Forml的Load事件,

加入下面的代码：CD1.ShowSave步骤4：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设

计菜单，各菜单项及属性设置如表2-25所示。

表2-25______________________

标题名称是否有效内超符号

菜单命令menuO有效0

不可用菜单项menul无效1

上一菜单均可用menu2有效1

-步骤2：打开代码编辑窗

口，编写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSub

menu2_Click（）menul.Enabled=TrueEndSub步骤3：按要求将文件保存至考生文

件夹中。

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

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

InitDk属性设置，默认文件名由FileName属性设置，标题由DialogTitle属性设

置。第2小题①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本

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

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

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

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

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

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

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

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

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

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

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

二、简单应用题（本题共［题，每题7.0分，共［分0）

2、（1）在考生文件夹下有一个工程文件尔3.vbp,它的功能是在运行时只显示名为

Form2的窗体，单击Form2上的“C2”按钮，则显示名为Fonnl的窗体：单击Forml

上的“Cl”按钮，则Forml的窗体消失。这个程序并不完整，要求如下：①把

Form2设为启动窗体；把Forml上按钮的标题改为“隐藏"，把Form2上按钮的标题

改为“显示②去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上

述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。③工程文件

和窗体文件仍以原来的文件名存盘。正确程序运行后的界面如图1-102所示。

图702（2）在考生文件夹下有一个工程文件sjt4.vbp,它的功能是

在文本框中输入一个整数，单击“移动，，按钮后，如果输入的是正数，滚动条中的滚

动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并

且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与

该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框

中的数值太小”，如图1-103所示。要求：去掉程序中的注释符，把程序中的?改为

正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件

的属性。最后把修改后的程序以原来的文件名存盘。图皿。3

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

sjt3.vbp,然后将按钮Cl的Caption属性设置为“隐藏”，将按钮C2的Caption属

性设置为“显示”。步骤2：选择【工程】一【工程属性】命令，打开“工程属性”对

话框，设置Form2为启动窗体。步骤3：打开Fonn2和Fomil的代码编辑窗口，

去掉程序中的注释符“？将问号"?''改为正确的内容。参考代码：PrivateSub

Cl_Click（）Forml.VisibIe=FalseEndSubPriVateSubC2_Click（）

Forml.Visible=TrueEndSub步骤4：按要求将文件保存至考生文件夹中。第2小

题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp,在代码编辑

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

HS1.Value+Texll.Text>HSl.MaxThenMsgBox”文本框中的数值太大“Elself

HS1.Value+Textl.Text

知识点解析：第1小题从本题题目要求及所提供原程序可知，程序运行时首先显示

窗体Form2,然后在Form2的“显示”按钮的单击事件过程中，通过设徨窗体Forml

的Visible属性值为True来显示该窗口。第2小题本题程序设计思路：在“移动”

按钮的单击事件过程中，首先判断滚动条在当前位置基础上移动与文本框中输入数

值相等的刻度时，是否超过滚动条Max属性值的限制，若是则弹出消息框显示“文

本框中的数值太大”；否则接着判断滚动条在当前位置基础上移动与文本框中输入

数值相等的刻度时，是否超过滚动条.Min属性值的限制，若是则弹出消息框显示

“文本框中的数值太小”，否则设置滚动条的Value属性值为原有Value属性值加上

文本框中的输入值。

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

3、在考生目录下有一个工程文件sjt5.vbpo其功能是产生并显示一个数列的前n

项。数列产生的规律是：数列的前2项是小于10的正整数，将此2数相乘，若乘

积<10,则以此乘积作为数列的第3项；若乘积210,则以乘积的十位数为数列的

第3项,以乘积的个位数为数列的第4项.再用数列的最后2项相乘.用卜述规则

形成后面的项，直至产生了第n项。窗体上部从左到右三个文本框的名称分别为：

TextKText2.Text3,窗体下部的文本框名称为。Text4o程序运行时，在Textl、

Text2中输入数列的前两项，Text3中输入要产生的项数n,单击“计算”按钮则产生

此数列的前n项，并显示在Text4中。如图1-230所示。注意：文件中已经给出了

全部控件，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内

容。不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。

图1-230

标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件sjt.vbp,在代

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

Text4=Text4&a&"n&ba=bIfk<=nThenb=d步骤2：按要求将文件保存至考生文件

夹中。

知识点解析：While循环和D。循环是用条件来控制的循环。D。循环语句的功能

是：当指定的“循环条件”为真或直到指定的“循环条件”变为真之前重复执行循环

体。根据题意，数列第n项的值源于该项前两项的乘积。本题原程序中，将文本

框Texll的输入值赋予变量a作初值，将文本框Text2的输入值赋予变量b作初

值，并把a、b初值作为数列的前两项。故第一个?处应改为.bo将文本框Text3

的输入值赋予变量n,以标记数列最终要生成的项数。变量k用于记录数列当前项

数，初值为2。在D。循环中，首先将a、b的乘积赋予变量c（当前项数k增1）,

然后判断c的值是否小于10,若c小于10则c即为数列的第3项，并将b的值赋

予变量a,c的值赋予变量b,以便计算数列下一项的值；若c不小于10,则取a

和b乘积十位上的数（即d=c\10）作数列的第3项，将d的值赋予变量a（当前项数

k增1）,并进一步判断当前k值是否小于或等于最终要生成的项数n,若是则取a

和b乘积个位上的数（即d=cMod10）作数列的第4项，将d的值赋予变量b,以便

计算数列下一项的值。重复执行循环体，即可依次求出数列后续项的值。

VB机试模拟试卷第2套

一、基本操作题（本题共I题，每题1.0分，共I分C）

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

名称为Form1的窗体上建立两个命令按钮，名称分别为Command1和

Commark!2、标题分别为“显示”和“删除”，一个名称为：Piel的图片框。要求程序

运行后，每单击一次“显示”按钮，不使用任何变量而直接在图片框中显示

"Picture1"；如果单击“删除”按钮，则清除图片框中的文本，如图6—1所示。注

意：保存时必须存放在考生文件夹下，窗体文件名为sjl.frm,工程文件名为

sjl.vbpo（2）在名称为Forml的窗体上建立一个名称为Listl的列表框。在程序运

行后，通过Form_Load（）事件过程加载窗体时,执行语句Listl.Addltem'Tteml”和

Listl.Addltem"ltem2”,每当单击列表项时，就将执行语句Listl.Additem

Listl.Text一次。如图6—2所示。

图"图62注意：保存时必须存

放在考生文件夹下，窗体文件名为sj2.frm,工程文件名为si2.vbp。

标准答案：（1）命令按钮的标题由Caption属性设置，单击命令按钮触发Click事

件。打印信息用Print方法，清除用Cis方法。根据题意，新建“标准EXE”工程，

在窗体中添加一个图片框控件和两个命令按钮，将两个命令按钮的Caption属性为

“显示”和“删除”，然后双击Command1进入代码窗VI,编写如下代码：PrivateSub

CommandlClick。'显示"PicturedPiel.Print"PicturelnEnclSubPrivateSub

Command2_Click（），清除"Piclurel”Piel.CisEndSub单击按钮运行程序，并按

要求保存。（2）本题主要考查列表框控件的事件和方法。列表框用于在很多项目中

做出选择的操作。向列表框中添加项目既可以在属性窗口进行，也可以在程序代码

中进行。单击列表框中的项目触发Click事件，题目要求使用Additem方法给列表

框添加项目，所以应该将List，AdditemListl.Text语句写入列表框的Click事件

中。根据题意，新建“标准EXE”工程，将列表框控件添加到窗体上。然后设置其

名称为Listl,然后双击Forml,进入代码编写窗口，输入以下代码：PrivateSub

Form_Load（）Listl.Addkein"Itemr,Listl.Addltem'llem2"EndSubPrivateSub

Listl_Click（）Listl.AdditemListl.TextEndSub单百黑按钮运行程序,并按要求

保存。

知识点解析：暂无解析

二、简单应用题（本题共I题，每题分，共/分。）

2、（1）在考生文件夹下有一个工程文件sj3.vbp,在窗上设置4个标签，名称分别

为Labell、Label2.Label3、Label4,标题分别为“工厂A用煤量”、“工厂B用气

量”、“共用煤”、“共用气”;设置4个文本框,名称分别为Textl、Text2.Text3、

Tcxl4,内容为空。另设一个命令按钮，名称为Command］，标题为“计算”。要求考

生编写程序，求解用煤用气问题。其中Textl与Texl2中输入的数值为A的用燥量

和B的用气量Text3与Text4用来显示共用煤量和共用气量。该问题描述为：A的

用气量是B的用气量的3倍，B的用煤量是A的用煤量的2倍，共用多少煤、多

少气?程序运行时的窗体界面如图53—3所示“注意：请去掉程序中的注释符“，”，

把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件

的属性。最后把修改后的文件按原文件名存盘。（2）在考生文件夹下有工程文件

sj4.vbp及窗体文件sj4.IYm,该程序是不完整的c在窗体Form1中有两个文本

框，名称分别为Textl与Text2。要求在Textl中最多只能输入5个字符，多余字符

在Text2中显示出来，如图53—4所示。1

•Forml

工厂硼H倒『

IT8用U「

共用气I---------------r-

[12345

计.|

图53-3图537注意；请

有，？，号的地方填入正确内容，然后删除“?”及代码前的所有注释符（即“，”号），但不

能修改其他部分。存盘时不得改变文件名和文件夹。

标准答案：（I）本题方法相当于求解一个简单的二元一次方程题，或者说是求两个

一元一次方程题。即x+2x=a,3y+y=b。根据题意，将4个文本框控件、4个标签

和一个命令按钮添加到窗体中，文本框的名称分别为Textl、Text2、Text3和

lext4,Text属性都为空，标签的Caption属性分别为“工厂A用煤量”“工厂B用气

量”“共用煤”“共用气”，命令按钮的名称为CommandsCaption属性为“计算”。双

击Command】进入代码窗口，编写如下代码：PrivateSubCommandl_Click（）

Text3.Text=Val（Textl.Text）+2*Val（Textl.Text）'将用煤量在Texl3中显示

Text4.Text=3*Val（Text2.Text）+Val（Text2.Text）'将用气量在Text4中显示End

Sub单击》按钮运行程序，并按要求保存。（2）本题主要考查文本框的事件和方

法。Change事件是当用户向文本框中输入新信息，或当程序把Text属性设置为新

值从而改变文本框的Text属性时触发的；SetFocus是文本框中较常用的方法，其

格式为：［对象.］SetFocus。该方法可以把输入光标（焦点）移到指定的文本框中。

LostFocus事件是当通过Tab键切换或单击等操作使对象获得焦点时触发的事件；

GotFocus实现当文本框具有输入焦点（即处于活动状态）时，键盘上输入的每个字符

都将在该文本框中显示出来。本题功能描述为：每往Textl中输入内容（触发其

Change事件），判断文本当前字符数是否超过5个（含5个），若是，将焦点移到

Text2o根据题意，将两个文本框控件添加到窗体中，文本框的名称分别为Texll和

Text2,Text属性都为空。双击Text进入代码窗口，编写如下代码：PrivateSub

Textl_Change（）DimiAsIntegerDimstrAsStringIfLen（Tcxtl.Text）＞=5Then'判断

Textl中的字符串长度是否大于等于5Text2.SetFocus'如果是,则焦点在Text2中

EndIfEndSub单击*:按钮运行程序，并按要求保存。

知识点解析：暂无解析

三、综合应用题（本题共［题，每题分，共7分。）

3、在考生文件夹下有一个工程文件sj5.vbp在名称为Forml的窗体上画一个文本

框，名称为Text】，允许多行显示；再域三个命令按钮，名称分别为Command】、

Command2和Command3,标题分别为“读取文本”、“大写”和“保存”，运行界面如

图48—5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则

从考生文件夹中读入sjin.txt文件（文件中只有字母和空格），放入Textl中；单击

“大写”按钮，则把Texll中的所有小写字母转换为大写字母；单击“保存”按钮，则

.Forml•21

WX(VSU.cmXATtt)

commismimrzl

TKIUOZTTMCAL

VCGtnsinmacMisvw

FAMMEWCQSIKXMIMYID

CCKHMT)15VIMNOT

TKEUAUSOKTYMCAL

VCGvnsmmnexisvnr

FNWSSVOCASrOVTVMUGC

(usnemwnCOMTEIT)

15VWT»TTWUM

HuinriCALuromsin.

二1

丽叼IF1”|

把Textl中的内容存人Wout.txt文件中。图48-5注意：去掉程

序中的注释符把程序中的“?”改为正确的内容，考生必须把转换后的内容用“保

存”按钮存入sjoul.1X1文件，否则无成绩。考生的工程文件以文件名Sj5.vbp存

盘，窗体文件以文件名si5.frm存盘。

标准答案：文本框的MuhiLine属性设置其是否能多行显示，为Tl。ue表示能多

行显示，为False表示不能多行显示。ScrollBars属性设置其是否有滚动条，值为0

时表示没有滚动条，值为1时表示有水平滚动条，值为2时表示有垂直滚动条，值

为3时表示水平、垂直滚动条都有。对文件的操作一般包括以下步骤：打开或建

立文件：进行读/写操作；关闭文件。耍将字符串的小写字母转换成大写字母，

可以通过UCase函数实现。UCase函数将小写字母转换成大写字母，而大写或非字

母字符均保持不变。其语法格式为：UCase(string)。省略siring为任何有效的字符

串表达式。根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框

的名称为Textl、MultiLine属性为True、ScrollBar属性为2,命令按钮的名称分别

为Command］、Command2和Commands,Caption分别为“读取文本”、“大写”和

“保存”，设置完成后双击Command1进入代码编写窗口，其中Mid()函数是将字符

串中的字符提取出来，以判断字符是不是小写字母，EOF()函数判断文件是否读取

完成，补充后的具体代码如下：DimrelAsStringPrivateSubCommandl_Click()

DimstrAsStringstr="MTextl.Text=""'初始化Textl的文本OpeiTApp.Pathg&\

sjin.txt“ForInputAs#1'打开文件,进行读取WhileEOF(l)=False'断文件是否定取

完str'读取文本TexU.Text=Textl.Text+strWendClose#!EndSubPrivate

SubCornmand2_Click()Textl.Text=Ucase(Textl.Text)EnclSubPrivateSub

Command3_Click()OpciTApp.Path&\sjout.txfTorOutputAs#2Print#2,

Textl.Text,^Textl中的文本存入文件中Close#2EndSub单击A按钮运行程序，

并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第3套

一、基本操作题(本题共1题，每题7.0分，共7分。)

1、注意：下面出现的“考生文件夹”均为c：\wexam\251600010请根据以下各小题

的要求设计VisualBasic应用程序(包括界面和代码)。(I)在名称为Forml的窗体上

放置一个名称为Drivel的DriveListBox控件，一个名称为Dirl的DirListBox控件

和一个名称为Filcl的FilcListBox控件。程序运行时，可以对系统中的文件进行浏

览；当双击Filel中的文件名时，用MsgBox显示文件名(不显示路径名)。如图16-

1所示。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体

文件名为sjtl.frm,工程文件名为sjtl.vbp。(2)在名称为Fonnl的窗体上放置一个

名为Textl的文本框控件和一个名为Timerl的计时器控件，程序运行后，文本框

中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改

变。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文

件名为sjt2.「rm,工程文件名为sjl2.vbp,如图16-2所示。

图］图16*2

标准答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。文件系

统控件有3种：驱动器列表框(DriveListBox),目录列表框①irListBox)和文件列表

框(FileListBox)。3个文件系统控件必须协调工作才能构成一个文件管理系统，当

用户在驱动器列表框中选择一个新的列表框或在当目录列表框Path的属性改变都

触发Change事件，将三者(利用本题中3个对象的名称)实现同步的代码为：

File1.Path=Dir1.Path,Dirl.Path=Drive1.Driveo双击触发DblClick事件弹出

MsgBox显示文件名，其格式为：MsgBox提示［，按钮］［，标题］。解题步骤：第一

步：建立界面并设置控件属性。程序中用到的控件及其属性见表16-1。

标题属性设置值

DriveListBoxNameDrivel

DirListBoxNameDirl

FileListBoxNameFilel

编写程

序代码。参考代码：OplionExplicitPrivateSub

Dirl_Change()FileI.Path=Dirl.PathEndSubPrivate

SubDrivel_Change()Dirl.Palh=Drivel.DriveEndSub

PrivateSubFilel_dblClick()MsgBoxFileLFileNameEndSub

PrivateSubForm_Load()Dirl.Path=Drive1.Drive

Filel.Path=Dirl.PathEndSub第三步：调试并运行程序。第四

步：按题目要求存盘。(2)在窗体上建立好控件后，先设置控件的属性，耳编

写事件过程。时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执

行相应程序代码，其Inierval属性决定时间间隔的长短，以毫秒为单位，所以要实

现每一秒文本框的时间改变只要使该属性设置为1000即可，要使程序运行后取得

当前时间可用Time函数取得，程序用到的Str函数将其中的内容转化为字符串。

解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性

标题属性设置值

TextNameTextl

NameTimer1

Timer

Interval1000

见表16-2。第三

步：调试并运行程序。第四步：按题目要求存盘。

知识点解析：暂无解析

二、简单应用题（本题共［题，每题7.0分，共［分0）

2、注意：下面出现的“考生文件夹”均为c：\wexam\25l60001o⑴在考生文件夹

下有一个工程文件sjt3.vbp,窗体上有一个单选按钮数组，含三个单选按钮，均没

有标题,请利用“属性”窗口为单选按钮依次添加标题为“北京”、"上海”、“广州

再添加一个标题为“显示”的命令按钮，如图18-3所示。程序的功能是在运行时，

如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体

上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：

依次添加单选按钮标题为“北京”、“上海”、“广州”：设初始选中的是“广州”,添加

命令按钮标题为“显示”；去掉程序中的注释符，把程序中的?改为正确的内容，使

其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最

后把修改后的文件按原文件名存盘。（2）在考生文件夹下有一个工程文件

sjt4.vbp,请在Forml窗体中画三个标签，名称分别为Bl、B2和L1,标题分别为

“字号”、“字体”、“计算机等级考试”,其中L1的高为500,宽为3000；再在B1和

B2标签的下面画两个组合框，名称分别为Cbl和Cb2,并为Cbl添加项目：

“10”、“15”和“20”，为Cb2添加项目：“黑体”、“隶书”和“宋体”，以上请在设计时

实现。请编写适当的事件过程，使得程序在运行时，当在Cbl中选一个字号，在

Cb2中选一个字体，标签11中的文字立即变为选定的字号和字体。程序运行界面

如图18-4所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运

行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则

无成绩。最后，按原文件名存盘，程序中不能使用任何变量。

/口H

计算机等级考试

图18-3图18-4

标准答案：单选按钮的标题由Caption属性设置，检测单选按钮的状态通过Value

属性来实现。如果单选夜钮被选中，则Value值为1；没选中，Value值为0。当建

立控件数组时，系统给每个元素赋一个惟一的索引号（Index）,通过属性窗口的

Index属性，可以知道该控件的下标是多少；在窗体上显示信息通过Print方法实

现，其形式为：【对象/print要显示的内容。解题步骤：第一步：建立界面并设置

控件属性。程序用到的控件及其属性见表18-3。

对象属性设置值

NameOpl

单选按钮Caption北京

Valueflase

NameOp2

单选按钮Caption上海

Valueflase

NameOp2

单选按钮Caption广州

Valueflase

标签框NameLablel

第二步：编写程序代码。

程序提供的代码：PrivateSubCl_Click()'Fori=?

To??IfOpl(i).?=TrueThen，Print”我的出生地是“+OpMi).?

EndIfNextEndSub参考代码：PrivateSub

Cl_Click()Fori=0ToOpl.Count-1If

Opl(i).Value-TrueThenPrint”我的出生地是“+OpI(i).Caption

EndIfNextEndSub第三步：调试并运行程序。第

四步：按题目要求存盘。(2)在窗体上建立好控件后，先设置控件的属性，再

编写事件过程。标签的标题由Caption属性设置，控件的高和宽分别由Height

和Widlh属性来设置控件的名称由Name属性设也，向组合框添加项目有两种方

法，可以在“属性”窗口的List属性里直接添加，也可以在代码中添加。题目要求在

设计时添加。字体和字号分别由控件FontSize属性和FontName属性来设置。解题

步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-

控件属性设置值

Cbl

None10

组合框

List15

2c0b2

VE体

NaneK

书

组合框?W贪

List体

3旦

NoneBl

标签

Caption字号

NoneBl

标签

Caption字体

NaneLI

标签

Caption计算机等级考试

4。第二步：编写程序代码。

参考代码：PrivateSubCbl_Click()LI.Font.Size=Cbl.TextEndSubPrivateSub

Cb2_Click()LI.Font.Name=Cb2.TextEndSubPrivateSubFormUnload(CancelAs

Integer)DimiAsLong,jAsLongOpen"out4.txt"ForOutputAs#1Fori=0To

Cbl.LiStCount-1Cbl.ListIndex=iForj=0ToCb2.ListCount-1Cb2.ListIndex=jPrint

#1»Cbl.Text&Cb2.Text&CInt(L1.Font.Size)&Ll.FontNextjNextiClose#1End

Sub第三步：调试并运行程序。第四步：按题目要求存盘。

知识点解析：暂无解析

三、综合应用题(本题共I题，每题1.0分，共1分C)

3、注意：下面出现的“考生文件夹”均为c：\wexam\25160001o在考生文件夹下有

工程文件sjt5.vbp及窗体文件sjl5.frm,该程序是不完整的，请在有?号的地方填入

正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改

变文件名和文件夹。如图17-5所示。在名称为Forml,标题为“分苹果”的窗体

上，有名称为Framel,标题为“分苹果大赛”的一个Frame控件。其中包括4个

Picture控件、4个Label控件和4个Command控件。具体如下:PicSmile(O)〜⑴

为Tom和Marry的笑脸图案,PicCry(O)〜(1)为哭脸图案；PicSmile(O)和PicCry(O)重

叠,PicSmile⑴和PicCry⑴重叠。按Command1(0)和CommandI⑴时，Labe1(0)和

label⑴减少。当Label(O)或Label⑴的值为零时，相对应的Command按钮失效

(变灰)；按Command2(0)和Commandl⑴时,Labe1(0)和Labe1(1)增力口。程序启动

时两人均为笑脸。两人当中所分苹果比较多的呈现笑脸，另一个是哭脸；如果两人

TomWhite0Marry

的苹果一样多，则两人都为笑脸。图17-5

标准答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。控件数

组是由一组相同类型的控件组成，建立控件数组时系统给每个元素赋一个惟一的索

引号(Index),控件数组cmdName(3)表示控件数组名为cmdName的第4个元素；利

用其下标号可选择不同的控件数组元素，如：控件是否可用由其Enabled属性决

定，当该属性值为True时可用，为False时不可用(灰色)；控件是否可见由其

Visible属性决定，该值为True时，控件可见，为False时控件不可见。解题步骤：

第•步：建立界面并设置控件属性。程序中用到的控件及其属性见表17-5。

对象下标属性设置值

Forml—Caption分苹果

Framl—Caption分苹果大赛

NamePicSmile

PicSmile(0)Picture

Aotusizetrue

Picture

NamePicSmile

PicSmile(1)Picture

AotusizeTrue

NamePicSmile

PicCry(O)Picture

AotusizeTrue

Picture

NamePicSmile

PicCry(l)Picture

Aotusizetrue

NameLabel

Label—

CaptionTomWhite

NameLabel

Label—

CaptionMarrySmith

NameLabell

Label(C)

Caption0

Label

NameLabell

Label(1)

Caption0

NameCommandl

Commancl(0)

CommandCaption减一个

控件NameCommandl

Commancl(1)

Caption减一个

NameConunand2

Cominand2(0)

CommandCaption加一个

控件NameCommand2

Commanc2(1)

Caption加一个

第二步：编写

程序代码。程序提供的代码：OptionExplicitPrivateSubCommandl_Click(Index

AsInteger)IfIndex=0ThenIfVal(Label3(0).Captioni>1ThenCommand1

(0).Enabled=TrueLabel3(0).Caption=Labe13(0).Caption-1ElseIf

Val(Label3(0).Caption)=lThenLabe13(0).Caption二Labe13(0).Caption-1End

If'Command1(0).Enabled=EndIfElseIfVal(LabeI3(l).Caption)>1ThenCommand1

(1).Enabled=TrueLabel3(l).Caption=Label3(l).Caption-1ElseIf

Val(Label3(l).Caption)=lThenLabel3(l).Caption=Label3(l).Caption-1EndIf

Commandl(l).Enabled=FalseEndIfEndIfIfVal(Label3(0).Caption)?

Val(Label3(l).Caption)ThenpicSmile(O).Visible=TrucpicCry(O).Visible=False

picCry(l).Visible=TruepicSmile(l).Visible=FalseElse*IfVal(Label3(0).Caption)?

Val(Label3(1).Caption)ThenpicCry(O).Visible=TruepicSmile(O).Visible=False

picSmile(l).VisibIe=TruepicCry(l).Visible=FalseElsepicSmile(O).Visible=True

picCry(O).Visible=FalsepicSmile(l).Visible=TrucpicCry(I).Visiblc=FalseEndIfEnd

IfEndSubPrivateSubCommand2_Click(lndexAsInteger)IfIndex=O

Then'Label3(O),Caption=Command1(0).Enabled=TrueElse:'Label3(l).Caption二

Command1(1).Enabled=TrueEndIfVal(Label3(0).Caption)?

Val(Label3(l).Caption)ThenpicSmile(O).Visible=TruepicCry(O).Visible=False

picCry(l).Visible=TruepicSmile(l).Visible=FalseElse4fVal(Label3(0).Caption)?

Val(Label3(l).Caption)ThenpicCry(O).Visible=TruepicSmile(O).Visible=False

picSmile(l).Visible=TruepicCry(l),Visible=FalseElsepicSmile(O).Visible=True

picCry(O).VisibIc=FalscpicSmile(l).Visible=TrucpicCry(l).Visiblc=FalseEndIfEnd

IfEndSubPrivateSubFormLoad()PicSmile(O).Visible=True

picSmile(l).Visible=TrueCommand1(0).Enabled=FalseCommand1(1).Enabled=False

EndSub参考代码:OptionExplicitPrivateSubCommandl_Click(IndcxAsInteger)If

Index=0ThenIfVal(Label3(0).Caption)>1ThenCommand1(0).Enabled=True

Label3(0).Caption=Label3(0).Caption-1ElseIfVal(Label3(0).Caption)=lThen

Label3(0).Caption=Label3(0).Caption-1EndIfCommand1(0).Enabled=FalseEndIf

ElseIfVal(Label3(l).Caption)>lThenCommand1(1).Enablcd=Truc

Labcl3(l).Caption=Labcl3(l).Caption-1ElseIfVal(Labcl3(l).Caption)=lThen

Labcl3(l).Caption=Label3(l).Caption-1EndIfCommand1(1).Enabled=FalseEndIf

EndIfIfVal(Label3(0).Caption)>Val(Label3(l).Caption)Then

picSmile(O).Visible=TruepicCry(O).VisibIe=FalsepicCry(l).Visible=True

picSmile(l).Visible=FalseElseIfVal(Label3(0).Caption)<Val(Labcl3(l).Caption)

ThenpicCry(O).Visible=TruepicSmile(O).Visible=FalsepicSmile(l).Visible=True

picCry(1).Visible二FalseElsepicSmile(O).Visible=TruepicCry(O).Visible=False

picSmile(l).Visible=TruepicCry(l).Visible=FalseEndIfEndIfEndSubPrivateSub

Command2_Click(IndexAsInteger)IfIndex=0Then

Label3(0).Caption=Label3(0).Caption+1Command1(0).Enabled=TrueElse:

Label3(l).Caption=Label3(l).Caption+1Commandl(1).Enabled=TrueEndIfIf

Vai(Label3(0).Caption)>Val(Label3(1).C叩lion)ThenpicSmile(O).Visible=True

picCry(O).Visible=FalsepicCry(l).Visible=TruepicSmile(l).Visible=FalseElseIf

Val(Label3(0).Caption)<Val(Label3(l).Caption)ThenpicCry(O)