VB机试模拟试卷24

VB机试模拟试卷第1套

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

1、（1）在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”（名称分别为vbFile

和vbEdit）两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单

项（名称分别为vbOpcn、vbSavevbclose）,如图8—1所示。只建立菜单，不必

定义其事件过程。注意：保存时必须存放在考生文件夹下，窗体文件名为

sjl.frm,工程文件名为sjl.vbpo（2）在名为Forml的窗体上画一个框架，名称为

Frame1,标题为“框架”，高度为2500,宽度为3500,框架内建立一文本框，距左

边框500,距框架的上边框1000,文本框中的初始内容设置为“文本框”。运行界

面如图8—2所示。

-|g|xi

图8-1图8-2注意：保

存时必须存放在考生文件夹下，窗体文件名为sj2.frm,工程文件名为sj2.vbpo

标准答案：（1）根据题意，新建“标准EXE”工程，在窗体空白处单击右键，选拦菜

标签名称内缩

文件vbFile无

打开vbOpen一位

保存vbSave一位

关闭vbClose一位

编辑vbEdit无

单编辑器添加以下菜单项：

单击“确定”按钮，单击0按钮运行程序，并按要求保存即可。（2）根据题意，新

建“标准EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称

设置为Framel、Caption属性设置为框架、Height.Width属性分别设置为2500、3

500,将文本框的Text属性设置为文本框，Left、Top属性分别设置为500、1

000o单击按钮运行程序.并按要求保存。

知识点解析：暂无解析

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

2、（1）在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框，名称分别

为Piel和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形，还有一个

计时器控件。名称为Timcrl,一个命令按钮，名称为Conmmandl,标题为“出

发窗体文件中给出了两个事件过程，但并不完整，要求设置计时器控件的属

性，使其在初始状态下不计时；设置计时器的属性，使丈每隔1秒调用17imer事

件过程一次。去掉程序中的注释符“巾，把程序中的“?”改为正确的内容，使得程序

在运行时单击“出发”按钮，则黑色正方形每隔1秒向右移动一次，当到达Pic2的

左边时停止移动。程序运行时的窗体界面如图25—3所示。注意：不能修改程序

中的其他部分。最后把修改后的文件按原文件名存盘。（2）在考生文件夹下有一个

工程文件sj4.vbp,窗体上已经有一个文本框，名称为Textl；一个命令按钮，名

称为Coimmandl、标题为“输出”。请画两个单选按钮，名称分别为Option1和

Option?,标题分别为“Itcml”和再画两个复选框，名称分别为Checkl和

Check2,标题分别为力tem3”和请编写适当的事件过程，使得在运行时，

单击“输出：按钮后实现下面的要求：根据选中的单选按钮和选中的复选框.在，

Textl中显示“Item1包含Itera3”或“Item2包含ltem3和ltem4”等,如图25—4所

O

图25-3图25-4

注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选

中一个单选按钮和至少一个复选框，并单击“输出”按钮。必须使用窗体右上角的关

闭按钮结束程序，否则无成绩。

标准答案：（1）计时器控件的Interval属性是用来控制计时器事件发生的时间间隔，

通过题意可知该属性应没置为1000（Interval是以毫秒为单位）。当单击"出发''按钮

时开始计时，把计时器控件的Enabled属性设置为True。根据题意，将两个图片

控件、一个计时器控件和一个命令按钮添加到窗体中，Picture的名称为Piel和

Pic2,Piel的背景色为黑色,Pic2的背景色为红色,计时器的Interval属性为1

000,名称为Timed,Enable属性为False,命令按钮的名称为Command】，Caption

属性为“出发"，双击Command1进入代码窗口，补充后的具体代码如下：Private

SubCommand1_Click（）Timerl.Enabled=TrueEndSubPrivateSubTimeil_Timer（）

DimspAsIntegersp=200'运动速度IfPiel.Left+Picl.Width>=Pic2.LeflThen

sp=OEndIfPiel.Left=Picl.Left+sp'Picl的位置变化EndSub单击¥按钮运行程

序，并按要求保存「⑵在文标中显示的内容通过文本框的Text属性设置。复选

按钮和单选按钮的状态用Value属性来表示。对于单选按钮来说，Value属性可设

置为True或False,当设置为True时表示被选中的，否则表示没有选中。对于复

选按钮来说，Value属性可以设置为0、1或2。其中：0表示没有选中该复选按

钮；1表示选中该复选按钮；2表示该复选按钮被禁止（灰色）。根据题意，将两个

单选按钮控件、两个复选按钮、一个文本框控件和一个命令按钮添加到窗体中，单

选按钮的名称分别为Option1和Oplion2、Caption属性为“Iteml"和“Item2"，复选按

钮的名称分别为Checkl和Chcck2,Caption属性分别为和力tcm4”,文不框

的名称为Textl、Caption属性为空，命令按钮的名称为Commandl、Caplion属性为

“输出”。双击Commandl进入代码编写窗IZ1,利用字符串相加和If—else语句设计

程序，具体代码如下：PrivateSubCommandl_CIick（）DimstrAsStringDimtrnpAs

Stringstr='u,IfOption!.Value=TrueThen'选中Optionlstr=str+"Iteml包括“Else'选中

Option?str=str+"Item2包括"EndIfIfCheckl.Value=0Then'没选中ChecklIf

Check2.Value=lThen'选中Cheek2tmp=Check2.Captionstr=str+tmpEndIfElse'

选中ChecklIfCheck2.Value=0Then'没选中Check2tmp=Checkl.Caplion

str=str+trapElse'选Check2tmp=Checkl.Captionstr=str+tmpstr二str+“和”

tinp=Check2.Captionstr=str+tmpEndIfEndIfTextl.Text=strEndSub单击按

钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整

的。在名称为Forml的窗体上有两个命令按钮，名称分别为Command1和

Command?.标题分别为“读取数据”和“保存”，一个文本框，名称为Textl、

MukiLine属性为True、ScrollBars属性为2；要求如果单击“读取数据''按钮，则读

入in.txt文件中的50个整数，放入一个数组中，同时在文本框中显示出来；如果

单击“保存”按钮，则计算数组中小于300或大于或等于800的所有数之和，把求和

结果在文本框Texll中显示出来，如图32—5所示八同时把结果存人考生文件夹中

的文件out.txt中。（在mode,bas中的writedata过程可以把结果存入out.txt文

件。）o图32・5注意：请在有“?”的地方填入正确内容，然后删除

及代码前的所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名

和文件夹。文件必须存放在考生文件夹下，窗体文件名为sj5.frm,工程文件名为

sj5.vbp,计算结果存入out.txt文件中，否则没有成绩。

标准答案：本题中涉及文件的操作，对文件的操作包括儿个基本步骤，首先要打开

文件，然后再读取文件，对文件操作完后，一定要记得关闭文件。用Inpul#语句读

取顺序文件中的数据。根据题意，将一个文本框控件和两个命令按钮放入Forml

窗体中，然后根据需要设置各个控件的属性，先选中Textl控件，然后设置其滚动

属性为2,MuhiLine属性为True；选中Commandl(读人数据)设置其Caption属性

为“读取数据"，Command2的Caption属性为“保存”。将考生文件夹下的标准模块

mode.bas文件添加到工程中。双击Command1,进人代码窗口,补充后的具体代

码如b：Dima(49)AsLong，全局变量Dimstr(49)AsString，全局变量PrivateSub

Commandl_Click()Textl.Text=n"Open"App.Path&in.txt”ForInDutAs#l'打开

“in.txt”文彳牛DimiAsIntegerDimtempAsIntegerFori=0To49Input#1,temp

a(i)=temp'按顺序读人到数组中NextiFori=0To49str(i)=a(i)

Textl.Text=Textl.Text+str⑴+vbCrLf'将数组中的数放入Text中显示Nexti

Close#1EndSubPrivateSubCoinmand2_Click()DimtotalAsLongDimiAsInteger

total=0Fori=0To49Ifa(i)>800Ora(i)<300Thentotal=total+a(i)'对符合条件的数进

行求和EndIfNextiwritcData(total)，将结果保存至out.txt中EndSub单击承•按钮

运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第2套

一、基本操作题(本题共I题，每题7.0分，共［分0)

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

称为Forml的窗体上画一个水平滚动条，其名称为HScrolll,Min属性为1000,

Max属性为1500,LargeChange属性为50,SmaUChange属性为2；然后再画一个

文本框，其名称为Textl,初始内容为空白，编写适当的事件过程。程序运行后，

移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如图1-156所

示。要求：①不得使用任何变量；②存盘时必须存放在考生文件夹下，工程文

件名为sjtl.vbp,窗体文件名为sjll.frm。图1心6(2)在名称

为Forml的窗体上画一个命令按钮，其名称为0、标题为“移动”，位于窗体的左上

部，如图l-157(a)所示，编写适当的事件过程。程序运行后，每单击一次窗体，都

使得命令按钮同时向右、向下移动100。程序的运行情况如图1—157(b)所示。要

求：不得使用任何变量；存盘时必须存放在考生文件夹下，工程文件名为

■FOIBIQ面Y•Foval二七'

G1

-1

1

(a)(b)

sjt2.vbp,窗体文件名为sjtt2.fririo图1-157

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

卜orml中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其

«2-88

对象属性设・值

文本框NameTextl

NameHScrolll

Max1500

水平滚动条Min1000

l<argeChangc50

属性及值如表2—88所示。SmallChangc2步骤2：

双击窗体Forrnl上的水平滚动条，打开代码编辑窗口，在其Change事件过程中输

入以卜代码：参考代码：PrivateSubHScrolll_Change()Textl=HScrolllEndSub步

骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一

个“标准EXE”工程，如表2-89在窗体中画出控件并设置其相关属性。

表239

对象属性值

NameCommand1

命令按钮

Caption移动

步骤2：打开代码编辑窗口，编写窗

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

Forml.Cl.Left=100+Me.CI.LeftMe.Cl.Top二iOO+Forml.CI.TopEndSub步

骤3：按要求将文件保存至考生文件夹中。

知识点解析•：第1小题要在程序运行时，文本框中显示滚动条滑块的当前位置，

只需在滚动条的Change事件过程中编写利用滚动条的Value属性值来决定文本框

Text属性值的语句即可。第2小题控件(包括窗体)的Height和Width也属性用于

设置控件在屏幕上的大小(即高和宽)，Top和Left属性用于设置控件的上边和左边

的位置。要在单击窗体时，使命令按钮向右和向下移动，需要在窗体的Click事件

中编写增加命令按钮的Top和Left属性的语句。

二、简单应用题(本题共7题，每题7.0分，共I分。)

2、（1）在考生文件夹下有一个工程文件尔3.vbp,清在窗体上画两个框架，其名称

分别为F1和F2,标题分别为“交通工具”和“到达目标工在F1中画两个单选按

钮，名称分别为Opl和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按

钮，名称分别为0p3和Op4,标题分别为“广州”和“昆明然后画一个命令按钮，

其名称为C1,标题为“确定”。再画一个文本框，其名称为Textl。编写适当事件过

程。程序运行后，选择不同单选按钮并单击“确定”按钮后在文本框中显示的结果见

表

选中的单选按钮单击“■定”按钮后产生的结.

交通工具到达目标果《文本根中显示的内容）

第一肿情况飞机广州坐飞机去广州

第二种情况飞机昆明坐飞机去昆明

第三种情况火车广州坐火车去广州

士…第四种情况火车昆明_______坐_车.昆明_______再摩的运行曾H

如图1-203所示。存盘时，工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。注

意：考生不得修改窗体文件中己经存在的程序，在结束程序运行之前，必须至少进

行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。0（2）在

考生文件夹下有一个工程文件sjt4.vbp,如图1-204所示，请在窗体上画三个文本

框,其名称分别为Textl、Text2和Text3,文本框内容分别设置为“等级考试”、“计

算机''和空白。然后画两个单选按钮，其名称分别为Opl和叩2,标题分别为“交

换”和“连接”，编写适当的事件程序。要求在程序运行时，先单击“交换”单选按

钮，使Textl文本框中内容与Text2文本框中的内容进行交换，并使“交换”单选按

钮消失；然后单击“连接”单选按钮，则把交换后的Tcxtl和Text2的内容以Textl在

前、Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。存盘

时，工程文件名为sjt4.vbp,窗体文件名为sjt4.注意：不得修改已经给出

的程序。在结束程序运行之前，必须先单击"交换''单选按钮，后单击“连接”单选按

钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。

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

sjt3.vbp0步骤2：在窗体Forml中加入两个框架和一个文本框以及一个命令按

钮，然后在每个框架中各加入两个单选按钮，分别设置他们的相关属性，其属性及

表2巾7

对象属性值

NameFl

框架1

Caption交通L具

NameF2

框架2

Caption到达口标

NameOpl

单选按钮1

Caption飞机

NameOp2

单选按钮2

Caption火车

Name0p3

单选按钮3

Caption广州

Name城

单选按钿4

Caption昆明

文本推NameTextl

NameCl

命令按钮

值如表2-117所示。-----------Caption-----蜗----步骤3：打开代码

编辑窗口输入如下代码；参考代码：PrivateSubCl_Click()IfOplAnd0p3Then

Textl.Text="坐飞机去广州"ElselfOpIAndOp4ThenTextl.Text二"坐飞机去昆明”

ElseIfOp2And0p3ThenTextl.Text="坐火车去广州"ElseIfOp2And0p4Then

Textl.Text二"坐火车去昆明"EndIfEndSub步骤4：按要求将文件保存至考生文件

夹中。步骤5：按键运行程序，选择一种交通工具和一个到达目标，并单击命令按

钮，最后单击窗体右上角的关闭按钮退出程序。第2小题【操作步骤】步骤1：

打开考生文件夹下的本题工程文件sjt4.vbpo步骤2：在窗体Fonnl中加入三个文

本框和两个单选按钮，分别设置它们的相关属性，其属性及值如表2-118所示。

寰2-118

对象属性值

NameText!

文本框1

Text等级考试

NameText2

文本框2

Text计算机

NameTcxlS

文本框3

Text

NameOpl

取选按钮1

Caption交换

NameOp2

单选按钮2

连接

Caption步骤3：打开代码编辑窗口输入如下代

码：参考代码：PrivateSubOpl_Click（）a$=Textl.TextTextl.Text=Text2.Text

Text2.Text=a$Opl.Visible=FalseEndSubPrivateSubOp2_Click（）

Text3.Text=Textl.Text&Texl2.TexlEndSub步骤4：按要求将文件保存至考生

文件夹中。步骤5：按键运行程序，选择一个单选按钮，最后单击窗体右上角的

关闭按钮退出程序。

知识点解析：第1小题根据题目要求，在“确定”按钮的单击事件过程中，先任1「

语句判断框架F1中的Opl是否选中（即以Opl.Value=True为条件表达式），如果条

件为真，那么再继续判断框架F2中的。r3是否选中（即以Op3.Value：二True为条

件表达式），当op3被选中时，文本框中显示“坐飞机去广州”，否则显示“坐飞机去

昆明“：同理在外层If语句条件为假（即Op2被选中）时，也作类似处理。这样一共

就有四种可能：Opl和0p3被选中、opl和op4被选中、Op2和Op3被选中、0p2

和Op4被选中，对于可能出现的不同选择对照题目中表的规定，在文本框中显示

不同内容。以上判断和显示操作均在C1的Click事件中完成。第2小题根据题目

要求，设计本题程序的思路当Opl被选中时，将两个文本框中的内容通过一个中间

变量进行交换；当Op2被选中时，将两个文本框中的内容连接起来。

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

3、在考生文件夹下有一个工程文件sjl5.vbp,其名称为Forml的窗体上已有三个

文本框7extl、Text2>Text3,以及程序。请完成以下工作：①在属性窗口中修改

Tcxt3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图1-170

表

标题名称

编辑Edit

剪切Cut

受制Copy

所示；②建立下拉式菜单，见表1-4。粘贴——⑨窗体文件中给

出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确内

容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复制”不可

用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则

“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之

后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把

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

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

选中窗体中的文本框Text3,将其Visible属性为False。步骤2：选择【工具】一

【菜单编辑器】命令，打开菜单设计器，如表2-97的内容建立窗体菜单。

表2-97

标M名称内缩符号

编担Edit0

田切Cut1

复制Copy1

粘贴Paste1

步骤3：打开代码编辑窗口，去掉程

序中的注释符将问号改为正确的内容。参考代码：Ifwhich=lThenIf

which=2ThenText）.Text=Textl.Text+Text3.Text

Text2.Text=Text2.Text+Text3.Text步骤4：按要求将文件保存至考生文件夹

中。

知识点解析：由本题程序源代码及要求可知，在程序运行时，当将光标置于某文

本框中时，文本框获得亲点，将触发其GotFocus,在该事件过程中用窗体变量

which记录下该文本框序号（1或2）。当打开“编辑”菜单时触发其Click事件，在该

事件过程中首先根据which的值不同，来判断相应文木框的内容是否为空，若内容

为空则通过代码设置“剪切”和“复制”菜单项不可用，否则设置“剪切”和“复制”菜单

项可用，故第一个“?”处应改为1,第两个“?”处应改为2；其次判断Text3文本框的

内容是否为空，若内容为空则设置，粘贴”菜单项不可用，否则设置“粘贴”菜单顼可

用。当选择“编辑”菜单下的“复制”命令时，根据which的值不同，将相应文本框中

的内容复制到Text3文本框中。当选择“剪切”命令时除应执行与“复制”命令相同的

语句外，还应清除当前文本框中的内容。当选择“粘贴”命令时，也是根据which的

值不同，将Tcxt3文本框中的内容连入相应文本框原内容之后，故该事件过程的第

三个处应改为"Textl.Text+Texl3.Text”,第4个问“?”处应改为

“Text2.Text+Text3.Text”。

VB机试模拟试卷第3套

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

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

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

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

单有两个子菜单，其标题分别为“显示”和“退出”,其名称分别为Dis和Exit,编写

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

中显示“计算机考试。如果单击“退出”命令，则结束程序运行v程序的运行情况如

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

体文件名为sjtl.frm。（2）在窗体上画一个列表框，名称为L1,通过“属性”窗口向

列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表

框中的某一项，则该项就从列表框中消失。程序的运行情况如图11-2和图11-3所

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

为sjtt2.frmo

密IM图11-2图11-3

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

VisualBasic+，菜单在“菜单编辑器”窗口中建立。通过End语句结束程序的运

行。解题步骤：第一步：建立界面并设置控件属性。菜单及控件属性设置见表11-

控件属性设置值

名字

菜单Op

标题操作

名字Dis

菜单

标题显示

名字Exit

菜单

标题退出

文本框NameTextl

lo第二步：编写程序代码。参考代码:

PrivateSubDis_Click（）Text1.Text=”计算机考试"EndSub

PrivateSubExit_Click（）EndEndSub第三步：调试并运

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

性，再编写事件过程。用Removeltem方法删除列表框中指定的项目，其格式

为：列表框.Removeitem索引值Removeitem方法从列表框中删除以嗦引

值”为地址的项目，改方法每次只能删除一个项目。Listindex属性是已被选中

的表项的位置。如果没有选中任何项，Listindex的值将设置为-1。解题步骤：

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

控件属性设置值

L1

Name

列表框WHBB,HIJK

List

QWEI,POIU

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

SubLl_CIick（）Ll.RcmoveltemLI.ListindexEndSub第三步：调试并运行程序。第

四步：法题目要求存盘。

知识点解析：暂无解析

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

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

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

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

得改变文件名和文件夹。本题描述如下：在窗口中有一个RichText文本框控件和

一个文本框控件，名称分别为rtxl和Tcxtl,两个命令按钮，名称分别为

Command1Command2,标题分别为“加入SJT01.TXT"、“统计字符个数”。要求

程序运行后，单击commandl将考生文件夹下的sjtOl.txt的内容显示到rtxl中；单

击”统计字符个数''按钮统计rtxl中有多少个字符，将结果显示在Textl中。程序运

行结果如图13-4所示。（2）在考生文件夹下有工程文件sjl4.vbp及窗体文件

sjt4.frm,该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有

注释符（即’号），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描

述如下：在窗体上有一个名为Imagel的图像框，要求程序运行后，鼠标左键点击

图像框，则图像框变大；鼠标右键点击图像框，图像框变小。设计界面如图13-5

所示。图13-4图13.5

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

RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件

打开或保存文件，LoadFile方法能将RTF文件或文本文件装入控件，其形式如：

对象.LoadFile文件标志符［,文件类型］;统计字符的个数可用Len（要统计的内容）

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

控件属性设置值

CommondlCaption加入ejtOl.txt

Command2Caption统计字符个数

性见表13-3。程序提供

的代码:OptionExplicitPrivateSubCommand1_Click()*rtx1.?App.Path+n\sjtOl.txt"

EndSubPrivateSubCommand2_Click()Ifrtx1.Text<>""Then5Textl.Text=?End

IfEndSub参考代码：OptionExplicitPrivateSubCommandl_Click()rtx1.LoadFile

App.Path+"\sjtOI.txt'*EndSubPrivateSubCommand2_Click()Ifrtx1.Text<>""

ThenText1.Text=Len(rtxl.Text)EndIfEndSub第三步：调试并运行程序。第四

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

过程图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的

MouseUp事件的Butlon参数来判断。MouseUp事件再释放鼠标按钮时发生。其语

法格式为：

PrivatcSubobjcct_MouscUp（［indcxAsIntcgcr,］buttonAsIntcgcr,shiftAsIntcgcr,xAsSinglc,

yAsSingle）Object一个对象表达式。Index一个整数，用来惟一地标识一个在控件

数组中的控件。Button返回一个整数，用来标识该事件的产生是按下

（MouseDown）或者释放（MouseUp）按钮引起的。button参数是具有相应于左按钮（位

0）,右按钮（位1）,以及中间按钮（位2）的一个位字段。这些位的值分别等于1,2,

和4。其中仅有一位被设置，指示出引起该事件的那个按钮Shift返回一个整数，

在button参数指定的按钮被按下或者被释放的情况下，该整数相应于SHIFT,

CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。shift参数是具有

相应于SHIFT键（位0）,CTRL键（位。以及ALT键（位2）最少二进制位的一个位字

段。这些位的值分别等于1,2,和4。shift参数指示这些键的状态。这些位中可能

有一些、全部或者一个也没有被设置，指示这些键中的一些、全部或者一个也没有

被按下。解题步骤：第一步：建立界面并设在控件属性。第二步：编写程序代

码。程序提供的代码:PrivateSubImage1_MouseUp（ButtonAsInteger,ShiftAs

Integer,XAsSingle,YAsSingle）IfButton=lThenIfImage1.Height<4000Or

Image!.Width<4000ThenImagel.Height=Imagel.Height+500'

Image!.Width=ImageLWidth?500EndIfEndIf'IfButton=?ThenIfImagel.Height>

1000OrImage1.Width>1000ThenImage1.Height=Image1.Height-500

Image1.Width=Image1.Width-500End[fEnd1fEndSub参考代码:PrivateSub

Image1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）If

Button=lThenIfImageI.Height<4000OrImage1.Width<4000Then

Image1.Height=Imagel.Height+500Image1.Width=Image1.Width+500EndIfEndIfIf

Button=2ThenIfImage1.Height>1000OrImageI.Width>1000Then

Image1.Height=Image1.Height-500Image1.Width=Im;ige1.Width-500EndIfEndIfEnd

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

知识点解析：暂无解析

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

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

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

正确的程序代码，然后删除?及所有注释符号（即，号），但不能修改其他部分。修改

后的程序文件都保存，存盘时不得修改文件夹和文件名。本题描述如下：在窗体

上有一个名称为Textl的文本框，三个命令按钮，名称分别是Cl、C2和C3,标题

分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件

in7.txt（该文件在考生文件夹下）中的文本信息读入文本框Textl中；点击“加密”按钮

将Texll中的英文字母加密转换，并将转换后的结果显示到Textl中。转换方式为

转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a"，则转

换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到。ut7.lxl文件

中（该文件保存到考生文件夹卜）。程序设计界面如图12-8所不。

图12-8

标准答案；文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件，

命令按钮的标题由Caption属性设置。题目要求加密原理是：在原来字符的ASCII

码加上一个整数（题目要求为2）转换为其他的字符，然后再将加密后的字符显示在

文本框中。这样就用到了Chr函数和Asc函数。Chr函数返回String,其中包含有

与指定的字符代码相关的字符。其语法格式为：Chr（charcode）charcode必要参

数，是一个用来识别某字符的Long。Asc函数返回一个Inleger,代表字符串中首

字母的字符代码。其语法格式为：Asc(string)string必要的参数，可以是任何有效

的字符串表达式。解题步骤：第一步：编写程序代码。程序提供的代码：Private

SubCl_Click()Dimstrir.foAsString'?"in7.txt"ForInputAs1Input#1,strinfbClose

#1TextI.Tcxt=strinfoEndSubPrivateSubCommand2_Click()DimstrehangeAsString

DimiAsIntegerFori=lToLen(Textl.Text)'

strchange=strchange+?(Asc(Mid(TextI.Text,i,1))+21NextText1.Text=strchangeEnd

SubPrivateSubCommandsClick()OpenMout7.txtuForOutputAs1Trim#1,?Close

#1EndSub参考代码：PrivateSubCl_Click()DimstrinfoAsStringOpen"in7.txtH

ForInputAs1Input#1,strinfoClose#1Text1.Tcxt=strinfoEndSubPrivateSub

C2_Click()DimstrchangeAsStringDimiAsIntegerFori=lToLen(Textl.Text)

strchange=strchange+Chr(Asc(Mid(Text1.Text,i,1))+2)NextText1.Text=strchange

EndSubPrivateSubC3_Click()OpenMout7.txt"ForOutputAsIPrint#1,Textl.Text

Close#lEndSub第二技调试并运行程序第三步：按题目要求存盘

知识点解析：暂无解析

VB机试模拟试卷第4套

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

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

称为Forml、标题为“测试”的窗体上画一个名称为Frame］、标题为“字体”的框架。

在框架内画两个单选按钮，其名称分别为Opfl和叩t2,标题分别为“隶书”和“宋

体”。程序运行后的窗体如图1-6所示。注意：存盘时必须存放在考生文件夹下，

工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

享。

♦・需

图…图1-7（2）在名称为Forml的窗体上用名称

为shapel的形状控件画一个圆，其直径为1000（高、宽均为1000）；再画两个命令

按钮，标题分别是“垂直线”和“水平线”，名称分别为Commandl、Command2,如

图1-7所示。然后编写两个命令按钮的Click事件过程。程序运行后，如果单击“垂

直线''命令按钮，则圆的内部用垂直线填充；如果单击“水平线''命令按钮，则圆的

内部用水平线填充。注意：程序中不得使用变量，每个事件过程中只能写一条语

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

sjt2.fnrio

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

表2・5控件M慢设■

对献属性值

NameFonnl

窗体

Caption测试

NameFrame1

框架

Caption字体

NameOpt!

单选按钮1

Caption束书

NameOpt2

单选按钮2

窗体上绘制控件并设置属性。____________Caption------------步骤

2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个

“标准EXE”工程，如表2-6在窗体中画出控件并设置其相关属性。

*2-6

对象・性值

NameShapcl

形状控件Shape3

Width1000

NameCommand1

命令按钮1

Caption垂直线

NameConunand2

命令按钮2

Caption水平线

步骤2：在代码编辑窗口编写两个命令

按钮的单击事件过程。参考代码；PrivateSubCommandi_Click()

Shape!.FillStyle=3EndSuDPrivateSubCommand2_Click()

Form!.Shapcl.FillStylB=2EndSub步骤3：按要求将文件保存至考生文件夹中。

知识点解析：第I小题本题只需按题目要求画出框架和单选按钮，并分别设置其属

性。第2小题形状控件的FillStyle用于设置其填充样式：1—Transparent,.透明、

0—Solid.实线、2—HorizontalLine.水平线、3—VerticalLine.垂直线、4一

UpwardDiagonal.向上对角线、5—DownWard：Diag晌下对角线、6一

Cross.交叉线、7—DiagonalCross对角交叉线，缺省值为1。本题需分别在两个

命令按钮的Click事件过程中，编写设置形状控件Sh叩cl的FillStyle属性为相应值

的语句。

二、简单应用题(本题共7题，每题7.0分，共［分。)

2、（1）在考生文件夹下有一个工程文件sjt3.vbp,清在窗体上画两个框架，其名称

分别为F1和F2,标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，

名称分别为Opl和Op2,标题分别为“飞机”和“火车在F2中画两个单选按钮，

名称分别为0p3和0p4,标题分别为旷州”和“昆明”。然后画一个命令按钮，其名

称为cl,标题为“确定”。再画一个标签，其名称为Labi。编写适当的事件过程。程

序运行后，选择不同的单选按钮并单击“确定”按钮后在标签框中显示的结果见表1-

_________«1-6

选中的总选按钮・击“确定”按钮后产生的结

交通工具到达目标JR《文本枢中11示的内容）

第•科情况飞机广州坐匕机去广州

第二种情况飞机昆明坐飞机去昆明

第三肿情况火车广州坐火车去厂州

第四种情况火车昆明坐火车去国明

------------......程序的运行情况如图

1・188所示。存盘时，工程文件名为尔3.vbp,窗体文件名为sjt3.frm。注意：

考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上

面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。0（2）在考生

文件夹下有一个工程文件sjt4.vbp,请在窗体上画三个文本框，其名称