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

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

（共27题）

VB机试模拟试卷第1套

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

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

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

画一个文本框，名称为Textl：再画两个命令按钮，名称分别为C1和C2,标题分

别为“隐藏”和“显示”。请编写适当的事件过程，使得在运行时，如果单击“隐藏”按

钮，则文本框消失，而如果单击“显示”按钮，则文本框显示出来，如图9-1和图9-

2所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程

文件名为sjtl.vbp,窗体文件名为sjll.frm。（2）在窗体上画两个文本框，名称分别

为Textl和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行

时，如果在Textl中每输入一个字符，则显示一个“，”，同时在Text2中显示输入

的内容，如图9-3所示。程序中不得使用任何变量.注意：存盘时必须存放在考

生文件夹下，工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

.Form!皿I凶

ra9-i

图9-3

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

按钮的标题由Caption属性设置，单击命令按钮触发Click事件；文本框的可见性

由Visible属性设置。当Visible属性为Tree时,控件在运行时可见:当属性

Visible为False时，在运行时不可见。解题步骤：第一步：建立界面并没置控件属

表9-1

拧件M件设置值

文本根NameTextl

NameCl

按钿

Caption阳城

NameC2

按钿

性。程序用到的控件及其属性见表9-1。Caption显示

第二步：编写程序代码。参考代码：PrivateSubClClickOTcxtl.Visible=False

EndSubPrivateSubC2Click（）Text!.Visible=TrueEndSub第三步：调试并运行程

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

编写事件过程。文本框的内容由其Text属性设置。文本框的PasswordChar属性可

用于口令输入，在默认状态下，该属性被设置为空字符串（不是空格）。题目要求在

Textl中输入字符的同时Text2中显示Textl中输入的内容，这要用到文本框的

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

而改变文本框的Text属性，将触发Change事件。解题步骤：第一步：建立界面

并设置控件属性。程序用到的控件及其属性见表9-2。

«9-2

冷什U忤设置值

NameTcxtl

文本*

PasswordChar■

文本枢

NameText2第二步：编写程序代码。参考代码：Private

SubTexll_Change（）Texl2.Text=Textl.TextEndSub第三步：调试并运行程序。第

四步：按题目要求存盘。

知识点解析：暂无解析

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

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

下有工程文件sjt3.vbp及窗体文件sjt3.i¥m,该程序是不完整的，请在有?号的地方

填入正确内容，然后删除?及所有注释符（即，号），但不能修改其他部分。存盘时不

得改变文件名和文件夹。本题描述如下：在窗体中有两个命令按钮，名称分别是

C1和C2,标题分别是“修改窗体图标”和“修改窗体标题”。要求程序运行后，点击

C1命令按钮，则将窗体标题栏中的图标换为图标文件l.ico（该文件在考生文件夹

下）；」点击C2命令按钮，则将窗体标题修改为“窗体”。程序界面如图11-4和图11-

5所示°

fftMFl⑵在

考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的，请在

有?号的地方填入正确内容，然后删除?及所有注释符（即’号），但不能修改其他部

分。存盘时不得改变文件名和文件夹。本题描述如下：窗口中有一个名称为

Piclurel的图片框，一个名称为HScrolll的滚动条，3个命令按钮，名称分别为

Command1,Command2和Command3,标题分别为“运行"、"暂停"和"结束”,一

个计时器控件，名称为Time"。程序运行后，单击“运行”按钮后，使小球围绕大

球转动，并可以使用滚动条调节转动的速度；单击“暂停”按钮后，暂停小球的转

动：按“结束”按钮结束程序。程序运行界面如图11-6所示。

mH-6

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

件的属性由Caption来设置，单击触发其Click事件。通过设置Icon属性修改窗体

的图标，修改窗体的Caption属性设置其标题。在程序中使用LoadPicture函数给

Icon属性赋值，其格式为：LoadPicmre（"文件名"）LoadPicture函数把图形文件装入

窗体、图片框或图像框中。解题步骤：第一步：建立界面并设置控件属性。程序

控件属性设置值

NameCl

按钮

Caption修改窗体图标

NameC2

按钮

Caption修改窗体标题

中用到的控件及其属性见表11-3。第二步:

编写程序代码。程序提供的代码:PrivateSub

CI_CliCk()Torml.Icon=LoadPictureC?")EndSub

PrivateSubC2_Click()'Forml.?="窗体"EndSub参考代

码：PrivateSubCl_Click()Form1.Icon=LoadPicture("1.ico")

EndSubPrivateSubC2_CliCk()Form1Caption="窗体”

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

正面体上建立好控件后，先设置控件属性，再编写事件过程。计时器控件作

用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控

件的Enabled属性为True时，计时器计时开始，当为Palse时计时器计时暂停，所

以要使小球运动暂停可将Enabled属性值设置为False,要使小球运行，则设置该

属性值为True。解题步骤:第一步：建立界面并设置控件属性。程序中用到

控件属性设置值

NameCommand]

按钮

Caption运行

NameCommang2

按钮

Caption暂停

NameCommangS

按钮

Caption结束

濠动条NameHScrolll

图片框NamePicturel

的控件及其属性见表11-4。

第二步：编写程序代码。程序提供的代码：OptionExplicitDimeAsSingle,rAs

SingleT小球到大球的球心的距离，C为小球的角度.DimxAsSingle,yAs

Single,X>Y为小球移动时的圆心DimstAsSinglePrivateSUbCommand1_CliCk()

Timerl.Enabled=TrueEndSubPrivateSubCommand?Click。'?EndSubPrivateSub

Command3_Click()EndEndSubPrivateSubForm_Load()r=20c=0St=0.063

HScrolll.Min=l'设置最小值HScrolll.Max=100'设置最大值EndSUbPrivateSub

HScrolll_Changc()timerl,?=200-HScroll1.Value'根据滚动条的数值设置时间间

隔，速应越快，间隔越小EndSubPrivateSubPiCturel_Paint()

Picture1.FillColor=QBColor(12)Picture1.ForeColor=QBColor(12)Picture1.Circle

(0,0),2X=Cos(C)*ry=Sin(C)*rPicture1.FillColor=QBColor(14)

Picturel.ForeColor=QBColor(14)Ticturel.?(x,y),0.5c=c+stIf0=2*3.14159

Thenc=cMod(2*3.14159)EndIfEndSubPrivateSubTimerl_Timer()'?'重画图片

框EndSub参考代码:OptionExplicitDimcAsSingle,rAsSingle’r小球到大球的

球心的距离，C为小球的角度.DimxAsSingle,yAsSingleJX,Y为小球移动时

的圆心DimstAsSinglePriVateSubCommandl_Click()Timerl.Enabled=TrueEnd

SubPriVateSubCommand2_Click()Timerl.Enabled=FalseEndSubPriVateSub

Connnand3_Click()EndEndSubPrivateSubForm_Load()r=20c=0st=0.063

HScroll1Min=l，设置最小值HScroll1Max=l00'设置最大值EndSuhPrivateSuh

HScrolll_Change()Timerl.Interval=200-HScroll1.Vslue，根据滚动条的数值设置时间

间隔，速度越快，间隔越小EndSubPrivateSubPicturel_Paint()

Picture1.FillColor=QBColor(12)Picture1.ForeColor=QBColor(12)Picture1.Circle(0,

0),2X=Cos(C)*ry=Sin(C)*rPicture1.Fillcolor=QBColor(14)

Picture1.ForeColor=QBColor(14)Picture1.Circle(x,y),0.5c=c+stIf0=2*

3.14159Thenc=cMod(2*3.14159)EndIfEndSubPrivateSubTimer1Timer()

PiCturel.Refresh，重画图片框EndSub第三步：调试并运行程序。第四步：按题目

要求存盘。

知识点解析：暂无解析

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

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

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

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

变文件名和文件夹。本题描述如下：在名称为Forml的窗体上有三个Label控件和

两个名称分别为COMSTART、COMEXIT,标题分别为“开始”和“退出”的命令按

钮。编写函数Item（A,N）,其功能是由数字A组成的不多于N位数的整数，利用

该函数求8888-888-88-8的值并把结果写入考生文件夹下的sjt5.dat文件中。执行完

毕“确定”按钮，变成“完成”，且无效。如图10-6所示。

"I

图10-6

标准答案：控件是否可用由其Enable属性设置，当Enable为True时控件可用，当

Enable为False时控件不可用（灰色）：命令按钮的标题由Caption属性设置：5日$函

数将数字转换为字符串。解题步骤：第一步：建立界面并设置控件属性。程序中

«10-4

控ft属性设置优

标签NameLabel!

场运NameLabcl2

标筌NameUbd3

NameCOMSTART

按钮

Caption开始

NameCOMEXIT

按钮

Caplion理出

用到的控件及其属性值见表10-4。------------

程序提供的代码：OptionExplicitPrivateSubCOMEXIT_Click()EndEndSub

PrivateSubCOMSTARTClickQDimAAsInteger,NAsInteger,JAsInteger,SumAs

SingleA=8:N=4ForJ=NTo1Step-1IfJ=NThenSum=Item(A,J)ElseSum=

Sum-Itcm(A,J)EndIfNextPrint"Sum=";SumOpenApp.Path&"\"&"sjt5.dat"For

OutputAs#1Print#1,SumClose#1^.Caption="完成“'COMSTART.?=FalseEnd

SubFunctionItem(A,k)DimPAsString,QAsString,SAsSingleDimiAsInteger,H

AsSinglep=""Fori=1TokQ$=Str$(A)pS=pS+Q$Nexti'?=Val(PS)'H=?+

SItem=HEndFunction参考代码：OptionExplicitPrivateSubCOMEXITClick()End

EndSubPrivateSubCOMSTARTClick()DimAAsInteger,NAsInteger,JAsInteger,

SumAsSingleA=8:N=4ForJ=NTo1Step-1IfJ=NThenSum=Item(A,J)Else

Sum=Sum-Item(A,J)EndIfNextPrint"Sum=n;SumOpenApp.Path&S"&

"sjtS.dat"ForOutputAs#lPrint#1,SumClose#1COMSTART.Caption="完成”

COMSTART.Enablcd=FalseEndSubFunctionItem(A,k)DimPAsString,QAs

String,SAsSingleDimiAsInteger,HAsSinglep=""Fori=1TokQ$=Str$(A)PS

=PS+Q$NextiS=Vai(PS)H=H+SItem=HEndFunction第二步：调试并运行

程序。第三步：按题目要求存盘。

知识点解析：暂无解析

VB机试模拟试卷第2套

一、基本操作题（本题共1题，每题1.0分，共1分0）

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

的要求设计VisualBasic应用程序（包括界面和代码〕。（1）在Forml的窗体上画一个

名称为Textl的文本框，然后建立一个主菜单，标题为“操作”，名称为Op,该菜

单有两个子菜单，其标题分别为“显示''和“清除”，名称分别为Dis和Qea,编写适

当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框显

示“计算机考试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行

情况如图13-1和图13-2所示。注意：存盘时必须存放在考生文件夹下，工程文件

名为sjtl.vbp,窗体文件名为sjll.frm。（2）在窗体上画一个文本框，名称为

Textl,Text属性为空白。再画一个列表框,名称为L1,通过“属性”窗口向列表框

中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”，编写适当的

事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一

项，则把文本框中的字符串添加到列表框中。程序的运行情况如图13-3所示。注

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

sjt2.frm<>

准13-1图13-2图13-3

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

单编辑器”来创建菜单，文本框的内容通过Text属性设置，Tex="”语句可将文本框

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

控件属性设置值

名字

菜单0P

标题操作

名字Dis

菜单

标题显不

名字Cie

菜单

标题清除

文本框

/史乃廿良枇国美NameTextl钻一出一名以住

1|zx7弋“打|-LyijKA1Q工1o—»少•刊u-V‘土/j

代码。参考代码：PrivateSubClea_Click（）

Textl.Text=H"EndSubPrivateSubDis_Click（）

Textl.Text=”计算机考试"EndSub第三步：调试并运行程序。第

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

写事件过程。列表框的内容由List属性设置，文本框的内容由Text属性设

置，双击触发DblClick事件，向列表框中添加内容用Additem方法。解题步骤：

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

控件.1性设置值

文本框NamsTextl

列表框NamsL1

第二步：编写程序代

码：参考代码：PrivateSubLl_DblCliCk（）LI.AdditemText1.TextEndSub第三

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

知识点解析：暂无解析

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

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

下有工程文件sjt3.vbp及窗体文件sjt3.fim,该程序是不完整的，请在有?号的地方

填入正确内容，然后删除?及所有注释符（即，号），但不能修改其他部分。存盘时不

得改变文件名和文件夹。本题描述如下：在名称为Forml的窗体上有三个Label

控件和两个命令按钮，Label控件均为提示信息。命令按钮CMDstart和

CMDexit,程序运行后，单击“开始”按钮,程序自动利用循环计算1+1/2+1/3+...

+1/10的结果，并把结果写入到考生文件夹下result.txt文件中。执行完毕“开始”按

钮变成“完成”，且无效（变灰）。程序运行界面如图15-4所示。（2）在考生文件夹下

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

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

改变文件名和文件夹。本题描述如下：程序启动时文本框的默认文字为“请输入您

要设罚的文本“，默认的字体为“仿宋GB2312"，字号为五号。程序运行过程中可以

修改文本框的内容在单击“初始化'’时恢复启动时的状态；在单击“清除”后，文本框

的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本

框内文字的字体和属性。程序运行界面如图15-5所示。

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

标题由其Caption属性设置，单击触发其Click事件。文件的操作一般按照如下步

骤进行：打开或建立文，‘牛、进行读或写操作、关闭文件。解题步骤：第一步：建

立界面并设置控件属性。程序中用到的控件及其属性见表15-3。

控件名称属性设置值

Label2Caption考生文件夹\RESULT.TXT

Label4Caption目标文件：

利用循环进行计算1+1/2+U3+…+1/10的结果，并且把结果写入

Label5Caption

目标文件中

按钮控件1名称CMDSTART

Caption开始

按钮控件2名称CMDEXIT

Caption退出

第三步：编写程序代码。程序提供的代码：PrivateSub

CmdEXIT_Click()EndEndSubPrivateSub

Cmdstart_click()DimEAsSingle,JAsIntegerDimTAs

Single'OpenApp.Path&?For?As?'E=?

T=1ForJ=2To10Step1T=i/J

E=E+TNextJ'Write#1,Close

#1,CMDSTART.Caption=?,CMDSTART.Enabled=?

EndSub参考代码：PrivateSubCMDEXIT_Click()End

EndSubPrivateSubCMDstart_cIick()DimEAsSingle,JAs

IntegerDimTAsSingleOpenApp.Path&"V&

"result.txt"ForOutputAs#1E=1T=1For

J=2To10Step1T=l/JE=E+T

Debug.PrintT,ENextJWrite#1,EPr血E

Close#1CMDSTART.CapMon="完成"

CMDSTART.Enabled=FalseEndSub第三步：调试并运行程序。

第四步：按题目要求存盘。（2）单选按钮都是成组出现，用户在一组单选按钮

中只能且最多选择一项，某项被选定后，其左边的圆圈中出现一个黑点；字体由

FontName属性决定，字体的大小由FonfSize属性决定：清除文本框的内容可以用

将文本框的内容置空来实现（文本框.Text=n"）o需要指出的是框架是一个容

器控件，用于将窗体上的控件分组，不同的对象赳放在同一个框架内，它提供了视

觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组，必须先画出框

架，然后在框架内画出需要成为一组的控件，这样才能将框架内的控件组成一个整

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

控件名称属性设置值

OptionlCaption仿宋

0ption2Caption

OptionSCaption隶书

0ption4Caption黑体

0ption5Caption七号

0ption6Caption五号

Option?Caption二-千O

0ption8Caption初号

CommandlCaption初始化

Command2Caption那

CommandsCaption皿

属性见表15-40第二步：编写程序

代码。程序提供的代码：OptionExplicitPrivateSubCommandI_Click()

Option1.Value=TrueOption6.Value=TrueTexll.Text="请输入您要设置的文本”End

SubPrivateSubCommand2_Click()Option1.Value=True

Option6.Value=True,Textl.Text=?EndSubPrivateSubCommand3click()EndEnd

SubPrivateSubForm_Load()OptionI.Value二TrueOption6.Value=TrueTextl.Text="iW

输入您要设置的文本"EndSubPrivateSubOptionl_Click()Text1.FontName=”仿宋

GB2312"EndSubPrivateSubOption2Click(),Textl.FontName=?EndSubPrivate

SubOption3_Click()Textl.FontName="隶书"EndSubPrivateSubOption4_Click(i

Textl.FontName="黑体"EndSubPrivateSubOption5_Click()Texll.FontSize="5.5"

EndSubPrivateSubOption6click()'Text1.FontSize=?EndSubPrivateSub

Option7_Click()Textl.FontSize="16"EndSubPrivateSubOption8_Click()

Text1.FontSize="42"EndSub参考代码:OptionExplicitPrivateSub

Command1_Click()Option1.Value=TrueOption6.Vaiue=TrueTextl.Texl="请输入您将

要设置的文本"EndSubPrivateSubCommand2_Click()Option1.Value=True

Option6.Value=TrueTextl.Text=,H,EndSubPrivateSubComniand3_Click()EndEnd

SubPrivateSubFonn_Load()Opiiun1.Value—TiucOption6.Value—TrueTcxll.Tcxl—”请

输入您要设置的文本"EndSubPrivateSubOptionI_Click()Textl.FontName="仿宋

GB2312"EndSubPrivateSubOption2_Click()Textl.FontNam—“楷体GB2312"End

SubPrivateSubOption3_Click()Text1.FontName="隶书"EndSubPrivateSub

Option4_Click()Textl.FontName="黑体"EndSubPrivateSubOption5_Click()

Textl.FontSize=n5.5"EndSubPrivateSubOption6_Click()Textl.FontSize='r10.5"End

SubPrivateSubOption7_Click()Text1.FontSize="16"EndSubPrivateSub

Option8^CIick()Textl.FontSize="42HEndSub第三步：调试并运行程序。第四步：

按题目羹求存盘。

知识点解析：暂无解析

三、综合应用题（本题共［题，每题7.0分，共［分0）

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

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

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

变文件名和文件夹，相应的dal文件也保存到考生文件夹下，否则没有成绩。本题

描述如下：在名称为Forml的窗体上有五个Label控件和两个命令按钮，数据文

件worker.dat,存放工人的编号、姓名、性别和体重。按“开始”按钮后，能从考生

文件夹下的worker.dat口读出数据并把体重大于平均体重的工人的所有数据写入考

生文件夹下的workerl.dat文件中：执行完毕，“开始”按钮变成“完成”，且无效。

程序运行界面如图14-5所示。本题主要是考查对文件的读写，对文件进行操作之

前必须打开文件，使用Open语句，其格式为：Open文件名［For方式［［Access存取

类型］［锁定］As［#］文件号［Len=记录长度］Close语句关闭Open语句所打开的输入/输

出文件。其格式为：Close［fi1cnumbciiist］filcnumbcrlist是可选参数，为一个或多个

文件号。对文件操作完之后,必须关闭文件，使年Close语句关闭文件。

•以故文""中油由指定裁改升、i入ax〃斗

我e

|尸Ax1

图14-5

标准答案：解题步骤：第一步：编写程序代码。程序提供的代码：PrivateSub

COMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimiAsInteger

DimtotalAsIntegerDimaverAsSingleDimnum(10),namstring(lO),sexstring(lO),

wagcs(lO)'MyFile^App.Path&"\n&'MyFile2=App.Path&&OpenMyFilelFor

InputAs#1OpenMyFile2ForOutputAs#2Fori=lTo10*Input?,num(i),

namstring(i),sexstring(i),wages(i)total=total+wages(i)Nexti'aver=?/10Fori=lTo

10'If?ThenWrite#2,num(i),namstring(i),sexstring(i),wages(i)Next

i,COMSTART.Caption=?,COMSTART.Enablcd=?EndSub参考代码：PrivateSub

COMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimiAsInteger

DimtotalAsIntegerDimaverAsSingleDimnum(10),namstring(IO),sexstring(lO),

wages(10)MyFilel=App.Path&"\"&"worker.dat1'MyFile2=App.Path&"\"&

"worker1.dat"OpenMyFilelForInputAs#1OpenMyFilc2ForOutputAs#2Fori=l

To10Input#1,num(i),namstring(i),scxstring(i),wagcs(i)total=total+wages(i)Nexti

aver=total/10Fori=lTo10Ifwages(i)>averThenWrite#2,num(i),namstring(i),

sexstring(i),wages(i)NextiCOMSTART.Caption="完成"COMSTART.Enablcd=False

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

知识点解析：暂无解析

VB机试模拟试卷第3套

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

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

称为Forml的窗体上画一个名称为Framel、标题为，目的地”的框架，在框架中添加

三个复选框，名称分别为Check】、Check2,、Check3,其标题分别是“上海”、“广

州”、“巴黎”，其中“上海”为选中状态,“广州”为未选状态,“巴黎”为灰色状态，如

图1-116所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹

■F…MBH

「广M

下，工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。图1川6（2）在名称为

Forml的窗体上画一个名称为Picture1的图片框,其宽和高分别为1700、1900。请

编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件

pickbmp,如图1-117所示。单击窗体则图片框中的图形消失。要求程序中不得

使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件

•forai-LX

&

夹下，工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。图

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

在窗体FormI中加入一个框架，然后依次在框架中画出三个复选框。步骤3：分别

设置框架和各复选框的相关属性，其属性及值如表2-65所示。

>2-65

对数属性值

NameFrame!

框架

Caption目的地

Caption上海

Check1

Value1-Checked

Caption广州

Chcck2

Value(^Unchecked

Caption巴黎

Check3

Value-----玛巴-----步骤4：按要求将文件保存至考生

文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-66

在窗体中画出图片框并设置其相关属性。

*2-66

对象M性值

NamePicturcl

图片枢Height1900

Width

------.....步骤2：打开代码编辑窗口，编写图片

框和窗体的单击事件过程。参考代码：PrivateSubForm_Click()

Picturcl.Picture=LoadPictureC"1)EndSubPrivateSubPicturel_Click()

Picturel.Picture=LoadPicture("picl.bmp")EndSub步骤3：按要求将文件保存至考

生文件夹中。

知识点解析：第1小题复选框(ChcckBox)组常用于提供多个选项间的多重选择，

Value属性值决定每个复选框的选中状态；0—Unchecked为未选，1―Checked为选

中，2—Grayed为禁用(以灰色呈现)。选择某复选框后，该复选框将显示而

取消选择后，消失。本题只需按要求画出框架以及框架中的复选框，并设置其

Value属性。第2小题①图片框(PiclureBox)主要用于显示图片(支持的图形文件有

位图(bmp)、图标(ico)、Windows元文件(wmf))或在其一上画图，也可用作其他控件

的容器，还可使用Print方法在其上直接输出文本。②为图片框控件指定图片有两

种方法：一是在设计阶段通过Piclure属性设置；二是在程序运行时通过

LoadPicture。图片力口载函数加载，其语法为：图片框.Picture=LoadPicture("图像文

件路径”1,App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的

一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、

图片框及图像控件中的图形。本题需分别在图片框和窗体的Click事件过程中，用

LoadPicture。函数为图像框加载或清除图片。

二、简单应用题(本题共I题，每题1.0分，共I分C)

2、(1)在考生文件夹下有一个工程文件尔3.vbpo程序的功能是：在运行时，如果

选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字

做相应的设置，如图1-140所示。窗体上的控件已经画出，但没有给出主要程序内

容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部

分和己有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选

框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成

绩。最后把修改后的文件按原文件名存盘。图皿40Q)在考

生文件夹下有一个工程文件sjt4.vbpo窗体中已经给出了所有控件。程序运行

时，单击“读入文件”按钮，将显示一个“打开”对话框，可以在该对话框中选择考生

文件夹下的文本文件in4.txt,并把该文件的内容显示到Textl文本框中。要求：

请去掉程序中的注释符，并把程序中的?改为正确的内容，使其能正确运行，但不

能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文

件。

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

sjt3.vbpo步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码

如下。参考代码：PriVateSubCommandl_Click()IfOpl.ValueThen

Textl.FontName=opl.CaptionElseIf0p2.Va_tueThen

Textl.FontName=Op2.CaptionEndIfIfChi.Value=lThen

Textl.FontUndcrline=TrucElseTextl.FontUndcrlinc=FaIscEndIfIfCh2.Value=l

ThenTextl.FontI'talic=TrueElseTextl.Fontitalic=FalseEndIfEndSub步骤3：

按要求将文件保存至考生文件夹中。步骤4：按键运行程序，选中一个单选按钮和

至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结柬程序。

第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjl4.vbp,在代

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

PrivateSubCommandl_Click()DimnAsLongCDI.FilcName=""CDI.Filtcr="所有

文件|*・*|文本文件I*.txt|Word文档doc"CDI.Fikerlndex=2CDI.Action=lIf

CDI.FileNameo""ThenOpenCDI.FileNameForInputAs#ln=LOF(l)

Textl=Input$（n,#1）Close#1EndIfEndSub步骤2：按要求将文件保存至考生文件

«2-79

Action属显示的对话VB6中对应

说明

性值植类型方法

0无操作

1打开ShowOpen

2另存为ShowSavc

3颜色ShowColor

使用谟方法前,必多1先设置控

件的Flags属性为cdiCFBmh.

4字体ShowFontcdICFPrinterFonts、

cdlCFScreenFonts这三三个值中

的一个

5打印ShowPnnter

调用使用该方法前，必须先收置控

6WindowsShowHclp件HeipFile和HelpCommand

《将助）属性的值

知识点解析♦：第1小题本题其实就是编写“确定”按钮的单击事件过程。设计思路：

由于单选按钮数组选择的唯一性，可用一个If…Men…Else语句对可能出现的两种

情况（Opl或op2被选中）分别进行处理，为Textl的FontName属性设置不同值；对

于两个复选框可用两个If…Then...Else语句依次对其选中情况进行处理，若选中则

将对应的FonlUnderline属性值或Fontltalic属性值设置为True,否则设也为

Falseo第2小题通用对话框（CommonDialog）是提供诸如打开文件、保存文件、设

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

不可见。Action属性用于设置被打开对话框的类型；当通用对话框显示为“打开”或

“另存为”类型时，其FileName属性用于返回或设置所选的文件的路径和文件名，

Filter（过滤器）属性在对话框显示时提供一个可供选择过滤器列表，从而指定在对话

框的文件列表中显示文件的类型，例如，过滤器为*.ixl,表示显示所有的文本文

件，它的语法为；对象名.Filte『”描述1文件扩展名”。使用管道符（|）将描述与过

滤器隔开，同样使用管道符将多个过滤器相互分隔。FilteHndex属性返回或设置

“打开”或“另存为”对话框中一个缺省的过滤器，其中第一个过滤器的索引号是1。

在VB6中开始使用新方法来打开不同对话框，同时也保留了对Action属性的支

持。表2-79列出了不同Action属性值代表的对话框类型及其在VB6中的对应方

法。［*］根据题目原程序，首先设置通用对话框CD1的Filler属性和Fillerindex属

性，然后调用CDI的ShowOpen方法，接下来通过Input方式打开选中的文件，将

文件读入后放到文本框Textl中，最后使用Close语句关闭文件。

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

3、在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体，标题分别为“启动”、

“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册

或登录。注册信息放在全局数组USU3中，注册用户数(最多10个)放在全局变量

n中(均已在标准模块中定义)。注册时用户名不能重复，且“口令”与“验证口令”须

相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信

息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成

功”，否则显示相应错误信息。标准模块中函数finduscr的功能是：在users数组中

搜索用户名(即参数ch),找到则返回该用户名在users中的位置，否则返回0。已

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

Form3窗体文件中的?改为正确的内容。注意：不得修改己经存在的程序和控件的

属性，最后程序按原文件名存盘。

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

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

-注册窗体Form2--n=n+lElselffinduser(Trim$(Textl))>OThen

Forml.Labeu.caplion="注册成功!”一登录窗体Fcrm3-Ifk=0ThenElself

Trim$(Text2)<>users(k,2)Then步骤2：按要求将文件保存至考生文件夹中。

知识点解析：①在实际应用中，较为复杂的应用程序通常由多个窗体组成，巨可

设置其中一个为启动窗体，只有启动窗体才能在运行程序时自动加载并显示出来。

②在多个窗体组成的程序中，可以在一个窗体中读取另一个窗体中控件的属性

值，其语法格式为：窗体名称.控件名称.属性名称。③标准模块(文件扩展名