VB机试模拟试卷4（共26题）

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

（共26题）

VB机试模拟试卷第1套

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

1、（1）在名称为Forml的窗体上画一个文本框，名称为Textl,字体为宋体，文本框

中的初始内容为“模拟试题”；请编写适当事件过程，使得在运行时，双击窗体，则

把文本框中文字加下划线，如图62—1所示。程序中不得使用任何变量。注意：

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

sjl.frmo（2）在名称为Forml的窗体上画一个文本框，名称为TexU,文本是“双击

清除“，如图62—2所示。请编写适当的事件过程，使得在运行时，如果双击文本

框，则文本框中的文字消失。程序中不得使用任何变量。_______

・Form!.inixiXZSSB■旧刈

鼓击》除

图62-1图62-2

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

sj2.frm0

标准答案：（1）根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体

中，其名称为Tcxtl,Text属性为“模拟试题”，字体为宋体。双击Forml窗体，进

入代码窗口，编写如下弋码：PrivateSubForm_DblClick（）

Text!.Font.Underline=TrueEndSub单击承按钮运行程序，并按要求保存。（2）

根据题意，新建“标准EXE”工程，在窗体上添加一个文本框，名称为Textl,Text

属性为“双击清除”。双击Tcxtl,进入代码窗口，编写如下代码：PrivateSub

Tcxtl_DblClick（）Tcxtl.Tcxt=""EndSub单击“，按钮运行程序，并按要求保存。

知识M解析：暂无解析

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

2、（1）在窗体上绘制一个标签L1；一个单选按钮数组，名称为Opl,含三个单选按

钮。它们的Index属性分别为0、1和2,标题依次为“飞机”、“火车”和“汽车”：

个名称为Tcxtl的文本框。编写程序，使得在运行时单击“飞机”或“火车”单选按钮

时，在，rextl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在

Textl中显示“我开汽车去”。程序运行界面如图66—4所示。注意：保存时必须存

放在考生文件夹下，窗沐文件名为sj3.frm,工程文件名为si3.vbp。（2）在考生

文件夹中有工程文件Sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在窗体

上有两个名称分别为Commandl和Command?.标题分别为“求平方”和“求立方”的

命令按钮，两个名称分别为Textl和Text2的文本框。要求程序运行后，在Textl中

输入一个整数，单击“求平方”或“求立方”按钮后，可把该整数的“平方”或“立方”在

Text2中显示，如图66—5所示。

图66-4图66-5注意：

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

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

标准答案：（1）标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检

测的单选按钮的状态，这可以通过Value属来实现，如果单选按钮被选中，则

Value值为1,否则Value值为0。当建立单选按钮数组控件时，系统给每个元素赋

个•的索引号（Index）,通过属性窗VI的Index属性，可以知道该控件的下标。

在文本框中显示内容通过Text属性设置，其式为：文本框名.Text：显示的内

容，程序中用到了SelectCase语句，格式如下：SeleclCase变量或表达式（对于本

题来说就是控件数组元素的下标）Case表达式列表1语句块1Case表达式列表2语

句块2CaseElse语句块n+1]EndSelect①建立界面并设置控件属性。程序用到的

控件及其属性见下表：

对象属性设置值

TextNameTextl

单选按钮Name()pl(0)

玳选按钮Caption飞机

单选按钮Name()pl(l>

忸选按钮Caption火乍

笊选按包NameOpl(2)

单选按钮Caption汽车

标签NameLI

②打开工程资源管理器，右击窗体，选择查看弋反项，在弹出的代码窗口输入代

码如下:PrivateSubOpl_Click(IndexAsInteger)DimaAsString,bAsString,C

AsStringa="我坐“b二"我为“c="我开"SelectCaseIndexCaSe0

Textl.Text=a+Me.Opl(O).Caption+"i"Case1

Textl.Text=b+Me.Opl(l).Caption+^i"Case2

Textl.Text=C+Me.Opl(2).Caption+“去“EndSelectEndSub③调试并运行程序。

④按题目要求存盘。(2)根据题意，将两个Text控件和两个Command控件添加到

窗体上，Text的名称分别为Texll和Texl2、Texl属性都为空，Command的名称分

别为Commandl和Command?,Caption属性分别为“求平方”和“求立方”。双击

Command1命令按钮，编写如下代码.：PrivateSubCommandl_Click()

Text2.Text=Val(Textl.Text)*Val(Textl.Text)'求Textl中数的平方EndSub

PrivateSubCommand2_Click()

Text2.Text=Val(Textl.Text)*Val(Textl.Text)*Val(Textl.Text)，求Textl中数的

立方EndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在窗体上建立三个菜单（名称分别为Read、Calc和Save,标题分别为“读人数

据”、“计算并输出”和“存盘”），然后再添加一个文本框,名称为Textl,MultiLine

属性设置为True,scrollBars属性设置为2（如图42—6所示）。程序运行后。如果执

行“读人数据”命令，则读入考生文件夹下datainl.ixt文件中的100个整数，放入

一个数组中，数组的下界为1;如果单击“计算并输出“按钮，则把该数组中下标为

偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出

来：如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataoLlt.txt文件

中。在考生文件夹下有一个工程文件sj5.vbp,窗体文件中的RcadData过程可以

把daiainl.txl文件中的100个整数读人Arr数组中；而WriteData过程可以把指定

的整数值写到考生文件夹下指定的文件中（整数值通过计算求得，文件名为

弋FormlOI回汉

漆入双K计H用（出碎盘

dataout.txt）o图42-6注意：考生不得修

改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sj5.vbp,窗体文件

名仍保存为sj5.frm。

标准答案:本题考查文本框的Name、MuhiLine>ScroHBars和Text属性,文件操

作,菜单编辑器的使用,Arr（）函数以及Space。函数。根据题意,新建“标准EXE”

工程，利用菜单设计器，按表中的设置建立菜单项，如下表：

标题名称内缩符号

读入数据Read0

计算并输出Calc0

存盘Save0

并将文本框控件添加到窗体中，名称为Tcxtl,MuhiLine属性为True,ScrollBars

属性为2,Texl属性为空，双击进入代码窗口，编写如下代码：DimsumAs

IntegerPrivateSubCalcClick()Text).Text=""Fori=2To100Step2Textl.Text：

Textl.Tcxt&Arr(i)&Space(5)sum=sum+Arr(i)NextiPrintsumEndSubPrivateSub

Read_Click()ReadDataEndSubPrivateSubSaveClick()WriteData"dataout.txt",

sumEndSub单击/按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第2套

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

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

名称为Forml的窗体上放置一个名称为Drivel的DriveListBox控件，一个名称为

Dirl的DirListBox控件和一个名称为Filel的FileListBox控件。程序运行时，可以

对系统中的文件进行浏览；当双击FiQ中的文件名时，用MsgBox显示文件名（不

显示路径名)。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹

下，窗体文件名为SjH.frm,工程文件名为sjtl.vbp。2.在名称为Forml的窗体

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

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

的变化而改变。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹

下，窗体文件名为sjt2.f7m,工程文件名为sjt2.vbp,如图1—1所示。

图1一1

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

文件系统控件彳了3种：驱动器列表框(DriveLislBox),目录列表框(DirLisiBox)和文

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

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

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

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

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

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

表1

标题属性设置值

DriveListboxNameDrivel

DirListBoxNameDirl

FileListBoxNameFilel

属性设置值DriveListBoxNameDrivel

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

码：OptionExplicitPrivateSubDirl_Change()Filel.Path=

Dirl.PathEndSubPrivateSubDrivel_Change()Dirl.Path=

DriveI.DriveEndSubPrivateSubFilel_dblclick()MsgBox

Filel.FileNameEndSubPrivateSubForm_Load()Dirl.Path=

Drivel.DriveFilel.Path=Dirl.PathEndSub第二步：调试并运行程

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

的属性，再编写事件过程。②时钟控件作用是以一定的时间间隔激发计时器

事件(Timer)而执行相应的程序代码，其Inlerval属性决定时间间隔的长短，以毫秒

为单位，所以要实现每一秒文本框的时间改变只要使该属性设置为1000即可，要

使程序运行后取得当前时间可用Time函数取得，程序用到的Sir函数将其中的内

容转化为字符串。③解题步骤：第一步：建立界面并设置控件属性。程

序中用到的控件及其属性见表2。

表2

标题属性设置值

TextffameFextl

VameFiinerl

Timer

Interval1000

标题属性设置值TextNameTextl

TimerNameInlervalTimer11000第二步：编写程序代码“参考代码：PrivateSub

Form_Load()Text1.Text=Str(Time)EndSubPrivatesubTimerl_Timer()Textl.Text=

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

知识点解析：暂无解析

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

2、创建名称为Forml的窗体，在窗体上画一个图片框。在图片框的右侧画一个垂

直滚动条，其Min属性为100,Max属性为2000,LargeChange属性为120,

SmallChange属性为30。在图片框中装入图片，图片框的宽度与图形宽度一致，高

度任意，如图4所示。编写一个事件过程，程序运行后，移动滚动条上的滚动块可

以放大或缩小图片框。程序中不得使用任何变量。注意：存盘时必须存放在考生

文件夹下，工程文件名为yJc2.vbp,窗体文件名为y1c2.firn。

图4程序运行结果

标准答案：（l）VisualBasic集成环境中，执行“文件”一“新建工程”命令，选择“标准

Exe'o创建窗体FormL（2）在工具箱中选择图片框控件，在窗体中拖动鼠标建立

一个图片框，其名称为Picture%在属性窗口中设置图片框属性，装入图片。调整

图片和图片框宽度保持一致。（3）在工具箱中选择垂直滚动条控件，在图片框右侧

创建垂直滚动条，在其属性窗I」设置其Min属性为100,Max属性为2000,

LargeChange属性为120,SmallChange属性为30。双击按钮弹出代码窗口，编写

事件过程如下：PrivateSubVScrolil_Changc（）Picture!.Hcight=VScrolILValueEnd

Sub（4）按F5键运行程序。如图4所示。（5）执行“文件”一“保存工程”命令，将工程

文件命名为ylc2.vbp,窗体文件命名为ylc2.frmo

知识点解析：（1）文本框控件操作是上机考试基本操作中最常见的考点。Visual

Basic中可以通过文本框的属性窗口很方便地修改其各项属性，常考的属性包括是

否可见、文本输出等。其中文本输出除了通过属性窗口中修改，还可以通过编写代

码修改。（2）图片的装入可以通过修改图片框中属性窗口中的Picture属性输入。图

片框的修改可以通过在弋码中将属性值赋给Piclure控件的各属性来进行。

VB机试模拟试卷第3套

一、基本操作题（本题共I题，每题i.o分，共I分。）

1、（1）在名称为Forml的窗体上建立一个二级下拉菜单。一级菜单的标题为“编

辑”，名称为vbEdit,有效。二级菜单有两项，一项标题为“复制”，名称为

vbCopy,有效，命令执行的快捷方式为Crll+C；另一项标题为“粘贴”，名称为

vbPaste,无效，命令执行的快捷方式为Ctrl+P.程序运行时，窗体界面如图69—

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

件名为sjl.frm。（2）在名称为Forml的窗体上画一个文本框，其名称为TexU,然

后通过属性窗口设置窗体和文本框属性：文本框中显示的初始信息为“模拟考试”，

字体为四号、常规、黑沐，并有删除线，文本框可以显示多行文本且只有垂直滚动

条。不编写任何代码。程序运行时的窗体界面如图69—2所示。

网藉装d

图69-1图69-2注意：保存时必须存放在考

生文件夹下，窗体文件名为sj2.frm,工程文件名为sj2.vbp0

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

的快捷菜单中选择“菜单编辑器”命令，或按“Ctrl+E”组合键，打开菜单编辑器，添

标题名称内缩快捷健可用

编鹭vbEdit无无是

复制vbCopy一位Cirl-tC是

粘贴vbPaste一位Ctrl+P否

加以下菜单项:添加完

成后，单击“确定”按钮.再单击，，按钮运行程序，并按要求保存。（2）根据题意，

新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Textl,Text属

性为“模拟考试"，Fonl属性为“常规”、“黑体”、“四号”，并选中删除线复选按钮，

MultiLIne属性为True,Scrollbars属性为2。单击*按钮运行程序，并按要求保

存。

知识点解析•：暂无解析

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

2、（1）在考生文件夹中有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。在

名为Forml的窗体上有一个命令按钮，其名称为Command1,标题为“添加”；有一

个文本框，名为Text】，初始内容为空白；此外还有一个列表框，其名称为Listl。

程序运行后，如果在文本框中输入一个英文句子（由多个单词组成，各单词之间用

一个空格分开），然后单击命令按钮，程序将把该英文句子作为一个项目添加到列

表框中，如图41一4所示。图41-4该程序不完整，请补充

完整。注意：去掉程序中的注释符把程序中的问号"?”改为正确的内容，使其

能正确运行，但不得修改程序的其他部分最后，按原文件名并在原文件夹中保存修

改后的文件。（2）在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名

为Forml的窗体上有2个框架、7个标签和7个文本框，所有控件已经画好。判断

输入的条件是否为三角形，若是三角形，则在Textl中显示“是三角形"；在Te*2

中显示是何种三角形。单击“重新输入”按钮可以清空所有显示框，且按钮本身变为

无效状态。当单击,'判困:并计算“按钮之后重新恢复为可用状态。程序运行情况如图

41—5所示。该程序的功能是：根据给定的图形的三边的边长来判断图形的类型。

若为三角形则同时计算出为何种三角形及三角形的周长和面积。

图41-5注意：本程序不完整，请补充完

整，并能正确运行。三角形存在的条件为任一边不为0且任两边之和大于第三

边。若一边具有a2+b2=c2,则为直角三角形；若所有边具有a2+b2>c2,则为锐角三

角形；若一边具有a2+b22,则为钝角三角形。去掉程序中的注释符“小，把程序中

的问号，？，改为正确的内容，使其实现上述功能，但不得修改的其他部分。最后，

按原文件名并在原文件夹中保存修改后的文件。

标准答案：(l)Len()函数用于返回指定字符串的长度。使用Mid函数取出字符串中

的字符。Mid函数的格式为：Mid(字符串，P,n)oMid函数从第P个字符开始，

向后截取n个字符，P和n都是算术表达式。Mid函数的第三个变量可以省略，这

样将第P个字符开始先言截取到字符串的结尾。根据题意，双击Command1命令按

钮进入代码窗口，补充后的代码如下：PrivateSubCommandlClick()DimsiAs

String,s2AsStringDim11AsIntegersl=Textl11=1DoDoWhileMid(sL11,

1)<>2：And11<>=Len(s1)s2=s2&Mid(sl,II,1)11=11+1LoopListl.Additems2

S2=2211=11+1LoopWhileIl<=Len(sl)EndSub单击;*按钮运行程序，并按要求保

存。(2)该题用到两个函数和一个公式，Val()是将其内容转变为数字类型的函数，

Sqr()是求数值的平方根函数，而求解三角形的面积的时候用到海伦公式即

S=Sqr(L*(L-a)*(L-b)*(L-c)),其中a、b、C是三角形的三条边，L=(a+b+c)/2。根

据题意，双击Commandl命令按钮进入代码窗口，补充后的代码如下：Option

ExplicitDimaASSingleDimbAsSingleDimCAsSingleDimSASDoubleDimL

AsSinglePrivateSubCommandlClick()a=Val(Text5.Text)b=Val(Text6.Text)

c=Val(Text7.Text)IfaQOAnd!?◊()And©◊()Anda+b>cAnda+c>bAndb+c>a

ThenTextl.Text二”是三角形“1faA2+b『2=cA2Ora.2+cA2=b八2。11>人2+(:人2=2八2Then

Text2.Text="是直角三角形"ElseIfaA2+bA2>cA2AndaA2+cA2>bA2And

bA2+cA2>aA2ThenText2.Text二”是锐角三角形"Else：Text2.Text="是钝角三带形

“EndIfEndIfText3.Text=a+b+C'计算三角形的盾长L=(a+b+c)/2

Text4.Text二Sqr(L*(L-a)*(L-b)*(L-c))'计算三角形的面积Else：Textl.Text="非三

角形"Text2.Text=,M,Text3.Text=',nText4.Text=EndIf

Command2.Enabled=TrueEndSubPrivateSubCommand2click()'止匕处需要设置，

以实现清空所有文本框和使“重新输入”按钮无效的功能T最H.Text="”

Text2.Text="“Text3.Texl="“Texl4.Text="“Texi5.Text=""Text6.Tex匚””

Texl7.Text='"Cemmand2.Enabled=FalseEndSubPrivateSubCommand3_Click()

EndEndSubPrivateSubFormLoad()Textl.Enabled=FalseText2.Enablcd=False

Text3.Enabled=FalseText4.Enabled二FalseCommand?.Enabled二FalseEndSub单

击“实•‘按钮运行程序，并按要求保存。

知识点解析：暂无解析

三、综合应用题(本题共7题，每题7.0分，共7分。)

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

的。在名称为Forml的窗体上有一个文本框，名称为Textl、MultiLine属性为

True、ScrollBars属性为2；两个命令按钮，名称分别为Commandl和Command2、

标题分别为“读取”和“计算保存”，程序运行时的窗体界面如图28—5所示。要求程

序运行后，如果单击“读取”按钮，则读入in.txt文件中的50个整数放人一个数组

中(数组下界为1),同时在文本框中显示出来；如果单击“计算保存”按钮，则计算

大于或等于500的所有数的平均数，并把求得的结果在文本框Texll中显示出来，

同时把该结果存人考生文件夹中的文件out.txt中。(在考生文件夹下的标准模块

mode.bas中的writedata过程可以把结果存入指定的文件。)图28-5

注意：请在有的地方填入正确内容，然后删除及代码前的所有注释符(即

号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考

生文件夹下，窗体文件名为sj5.frm,工程文件名为sj5.vbp,计算结果存入

out.txt文件，否则没有成绩。

标准答案：文本框显示的内容由Text属性设置，Multiline属性设置文本框是否可

多行显示：按钮的标题由Caption属性设置，单击命令按钮触发Click事件。题中

涉及对文件的操作，读人顺序文件以顺序的方式打开，用Input#语句读取数据，另

外需耍注意的是对文件操作完后，一定要关闭文件。根据题意要求将一个文本框

控件和两个命令按钮，其中文本框的名称为Namel、MultiLine属性为True、滚动

属性为2命令按钮的名称分别为Command)和Command2Caption的属性分别为

“读取”和“计算保存”。在“工程”窗口中单击右键在弹出的快捷菜单中选择“添

加添加模块”，然后在弹出对话框的“现存”选项卡中选择“mode.bas”，单击

“确定”按钮即添加成功。模块mode.bas中的代码如下：FunctionwriteData(total

AsLong)OpenApp.Path&"\out.txt"ForOutputAs#lWrite#1,totalClose#1End

Function窗体中补充后的代码如下：Dima(50)AsLong'全局变量Dimstr(50)As

String'全局变量DimtotalAsLongDimnAsIntegerPrivateSubCommand!Clicki)

total=0n=0Textl.Text=""OpenApp.Path&"\in.ixT'ForInpulAs#l'打开"in.txt"

文件DimiAsIntegerDimtempAsIntegerFori=0To49Input#1»tempa(i)=temp'按

顺序读人到数组中NextiFori=0To49Ifa(i)>=500Thentota1=tolal+a(i)'当符合条件

时进行相加n=n+l，当符合条件是则n增1EndIfstr(i)=a(i)

Textl.Tcxt=Textl.宜京+stKi)+vbCrLf将数组中的50个数放人Text中显示Nexti

total=total\nClose#IEndSubPrivateSubCommand2Click()Textl.Text=total

writeData(total)'将结果保存至out.txtEndSub单击*按钮运行程序，并按要求保

存。

知识点解析：暂无解析

VB机试模拟试卷第4套

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

1、（1）在名称为Forml的窗体上建立一个名称为P1的图片框和两个命令按钮，名

称分别为Cmdl和Cmd2,标题分别为“输出”和“清除”，如图22—1所示。要求程

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

母力oadme'如果单击“清除”按钮，则清除图片框中的内容。注意：保存时必须

存放在考生文件夹下，窗体文件名为sjl.frm,工程文件名为sjl.vbpo（2）在名

为：Forml的窗体上绘制一个标签，名为Labi,标签上显示“请输入密码”；在标签

的右边绘制一个文本框，名为TextL其宽、高分别为1500和300。设置适当的属

性使得在输入密码时，文本框中显示字符，四外冉把窗体的标题设置为

“Password窗口”。运行时的窗体如图22—2所示。

图22-2

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

sj2.vbpo

标准答案：（1）本题主要考查图片框控件的基本操作。命令按钮的标题通过Caption

属性设置，单击命令按钮触发Click事件；打印信息用Print方法，清除用Cis方

法。题目要求在图片框中打印信息，所以在编写代码时应指定Prim方法和Cis方

法的使用对象。在窗体上建立好控件后，先设置控件属性，再编写事件过程。①

建立界面并设置控件属性。程序用到的控件及其属性见下表。

控件属性设置值

图片框NamePl

命令按钮Caption输出

命令按钮NameCmdl

命令按钮Caption清除

命令按钮NameCmd2

②命令按钮Cmdl触发Click事件，打印信息用Print方法。题目要求在图片框中打

印信息，所以在编写代码时，应指定Print方法使用对象。PrivateSubCmdlClick（）

Pl.Prim”k)adme”EndSub③清除用Cis方法。题目要求清除图片框中的信息,所

以在编写代码时，应指定Cis方法的使用对象。PrivateSubCmd2_Click()Pl.Cis

EndSub④调试并运行程序。⑤按题目要求存盘。(2)①新建一个名为Forml的窗

体。②单击工具箱中的Label控件图标，在窗体上拖拉出一个标签，在其属性窗

口设置名称为Labi,Caption属性为“请输入密码”。③单击工具箱中的TextBox控

件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Textl；在

属性窗口设置其Width属性为1500,Height属性为300,设置PasswordChar属性

为“*④按要求保存文件即完成本题。

知识点解析：暂无解析

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

2、(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.。frm,该程序是不

完整的。本题内容如下：窗体上已有两个文本框，名称为Textl、Text2。耍求在窗

体上补充两个单选按钮，名称分别为Optionl、Option?,标题分别为“全部小写”和

“全部大写”。要求补充完整代码后，在Tcxtl中输入一段字符，选中“全部小写”，

Text2显示全部小写的字符串；选中“全部大写”，Text2显示全部大写的字符串，如

图67—3所示0注意：请在有“?”号的地方埴入正确内容.然后删除“?”及代码前的

所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

(2)在考生文件夹下有一个工程文件sj4.vbp,在窗体Forml上设置一个控件数组

Checkl(i),该控件数组包括6个复选框控件，标题不限。另设一个名称为

Command］、标题为“统计选中个数”的命令按钮。程序运行后，单击“统计选中个

数闿%钮时，统计有多少个复选框被选中，并用MsgBox将其显示出来，如图67—

4所示。

图67-3图67-4

注意：请去掉程序中的注释符把程序中的“?”改为正确的内容。但不能修改程

序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

标准答案：(1)本题主要考查单选按钮(OptionButton)的画法及常用属性的设置、文

本框(TexlBox)的Text属性、大小写字母转换函数UCase()和LCase。的使用。单选

按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表

示未选中、True表示选中。文本框中输入的内容可以由其Text属性来设置或取

得。将字符串中小写字母转化为大写字母可由UCase。函数来实现，将字符串中大

写字母转化为小写字母可由LCase()函数来实现。根据题意，将两个文本框控件和

两个单选按钮控件添加到窗体中，文本框的名称分别为Texll和Text2、Text属性

都为空，单选按钮的名称分别为Optionl和Option2、Caption属性分别为“全部小

写''和“全部大写“。双击Command]进入代码窗口，编写如下代码：PrivateSub

Optionl_Click()Text2.Texl=LCase(Textl.Text)，单击OplionL则将Textl中的字母

转换为小写EndSubPrivateSubOption2_Click()Text2.Texl=UCase(Tnxll.Teri)'

单击Oplion2,则将Textl中的字母转换为大写EndSub单击》按钮运行程序，并

按要求保存。(2)本题主要考查复选按钮控件数组及MsgBox()函数的使用。复选

按钮组常用于提供多重选择，Value属性值决定每个复选按钮的选中状态：0表示

未选中；1表示选中；2表示不可用。(即灰色)。MsgBox。函数用于显示提示信

息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常呼法为：

MsgBox(prompt|,buttons][,title])<>其中,prompt参数为消息框的提示信息；

bultons参数用于控制消息框中按钮的数日、形式及消息框图标的样式；title参数为

消息框标题栏上显示的内容。添加控件数组的方法是：先建立第•个控件，然后对

该控件进行“复制”、“粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这

时控件数组的Index值会自动从0开始编号，控件数组的Count属性用于返回数组

中元素的个数。根据题意，将一组六个复选按钮控件和一个命令按钮添加到窗体

中，Check的名称都为Checkl、Caption属性自定义，命令按钮的名称为

Commandl,Caption属性为“统计选中个数“，设置完成后双击Commandl进入代码

窗口，用For循环逐一检查复选按钮数组各元素的Value属性值是否为1,若是，

将统计变量加1。将最终统计结果用MsgBox。函数显示。补充后的具体代码如

下：PrivateSubCommandl_CIick()DimiAsIntegerDimhumAsIntegerhum=0For

i=0ToChcckl.Count-1'For循环遍历Chcekl组IfChcckl.Item(i).Valuc=lThen'

如果选中该项num=hum+1'计数加1EndIfNexli皿酗(“选中了”+CStr(num)+”项

")'将计数结果放在提示对话框中显示EndSub单击*'按钮运行程序，并按要求保

存。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个命令按钮，名称为

Commandl、标题为“添加”；一个文本框，名称为Texll。程序运行前，文本框的编

辑区为空白；一个列表框，名称为List%在文本框中输入文本，若单击“添加”按

钮，文本框中的文本被作为一个列表项被加入到列表框中，如图19—5所示。

若.双击文本框，则使文本框中的内容为空，且使，添加”按钮变为无效。

'"口1x»

图19-5注意：去掉程序中的注释符…3把程序中的,、?”改为正确的内

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

最后把修改后的文件以原来的文件名存盘。

标准答案：本题重点考查列表框控件的使用及命令按钮的事件和属性设置。列表

框控件用于提供可进行单一或多个选择的列表项，给列表框添加列表项既可以在设

计阶段通过其List属性设置加入.也可在程序运行时通过代码”列表框

名.Addltcm，项目，”加入，清除列表框内容可通过其Clear方法来实现；文本框的

Text属性用于设置或返回其上显示的文本；Enabled属性用于设置命令按钮是否有

效，单击命令按钮将触发其Click事件。根据题意，将一个List控件、一个命令按

钮和一个文本框控件添加到窗体中，列表框的名称为ListL命令按钮的名称为

Command^Caption属性为“添加”，文本框的名称为Textl、Text属性为空。双击

Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()

Listl.AdditemTextl.W单击添加按键，将Texll中的字符写入List中EndSub

PrivateSubTextI_Change()IfTextl.Text=n"ThenCommandl.Enabled=False‘如果

Textl中没有字符，则Commandl不可用ElseCommandl.Enabled=True”如果Textl

中有字符，则CommandlnJ用EndIfEndSubPrivateSubTextlDblClick()

Textl.Text=""'双击Textl,清空TextlCommandl.Enabled=False'Command不可用

EndSub单击;浜:按钮运行程序.并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第5套

一、基本操作题(本题共［题，每题7.0分，共7分°)

1、(1)在名称为Forml的窗体上画两个文本框和两个单选按钮。文本框的名称分别

为Textl和Text2,初始时内容为Textl和Text2。单选按钮的名称分别为Option1、

Option2,标题分别为“文本框Textl可用”和“文本框Text2可用编写适当的事件

过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击Option1按钮，

则文本框Textl可用，Text2不可用；如果单击Option2按钮。则文本框Text2可

用，Textl不可用。程序中不得使用任何变量。程序运行时的窗体界面如图26—1

所示。注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹

下，文件名分别为sjl.vbp与sjl.frmo（2）在名称为Forml的窗体上画一条直线，

名称为Linel。同时:在窗体上画一个水平滚动条，名称为HScrolH。编写适当的事

件过程，程序运行后，艰据水平滚动条的长度改变Linel的长度。不得使用任何变

量。程序运行时的窗体界面如图26—2所示。

■FomiljdGJxj•Forml除血凶

TX2

「文本用c文本向

THBf用可用4Id

图26T图26-2注意：存盘

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

标准答案：（1）根据题意，新建“标准EXE”工程，将两个Text控件和两个Option控

件添加到窗体上，Text的名称为Textl、Text2.Text属性分别为“TextF和“Tex2’，

Option的名称分别为OptionROption?>Caption属性分别为“文本框Textl可用”和

“文本框Text2可用“，其中Oplionl的Value属性为False,Text2的Enable属性为

Falseo双击OpUon进入代码窗口，编写如下代码：PrivateSubOpiionl_Click（）

Textl.Enablcd=Truc'选中Optionl,则Textl可用Text2.Enabled=Falsc'Tcxt2不可

用EndSubPrivateSubOption2_Click（）Textl.Enabled=FalseText2.Enabled=True

EndSub单击A按钮运行程序，并按要求保存。（2）根据题意，新建“标准EXE”工

程，将一个HScrollBar控件添加到窗体上,其名称为HScroW,Max属性为2000,

Min属性为400,然后再用Line控件画一条直线，X2-XI的值为400,

Bm'derWidth属性为4。双击HScrolll,进入代码窗口，编写如下代码：Private

SubHScrollI_Change（）Linel.X2=Linel.Xl+HScrolll.Value'通过HScrolH来改变

Line的长度EndSub单击,按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮，标题为

“开始”，名称为Command］；有一个图片框，名称为Piel,还有一个计时器，名称

为Timerl。并给出了两个事件过程，但并不完整，要求：设置计时器的属性，使

其每隔3秒调用Timcrl事件过程一次，改变Piel的背景色（红、绿、蓝3色）。去掉

程序中的注释符把程序中的“?”改为正确的内容，使得在运行时单击“开始”按

钮，则Piel每隔3秒改变一次背景色，由红变绿，由绿变蓝，再由蓝变红，如图

23—3所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名

存盘。（2）在窗体上绘制一个命令按钮，名称为Command1，标题分别为“计算”，

个名称为Textl的文本柜。请编写适当的事件过程，在Textl中输出30以内满足勾

股定理的整数组合。注：勾股定理中3个数的关系是：a2+b2=c2o例如3、4、5就

是一个整数组合，即32+42=52。如图23—4所示。

8B23*3EB23-4

注意：编写程序，去掉程序中的注释符把程序中的“?”改为正确的内容，不能

修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

标准答案：(1)本题主要考查Timer控件的属性设置和图片框控件的属性设置。计

时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫

秒，它可以在属性窗口中设置，也可以通过代码设置。图片框控件既可用于显示图

片，也可用于在上面绘图，由于本题只要求改变颜色，所以只需控制其背景颜色属

性即可。根据题意，补充后的代码如下：DimaAsIntegerPrivateSub

Cominandl_Click()Timerl.Interval1000'开始后,Timer的间隔时间为1秒End

SubPrivateSubForm_Load()a=0'初始化计数Piel.BackColor=RtB(255,0,O)End

SubPrivateSubTimerl_Timer()a=(a+l)Mod9，以9为周期Ifa<3Then，当a小于3时

Piel.BackColor=RGB(255,0,O)'背景色为红色Elselfa>=3And6Then'当a<6

时Piel.BackColor=RGB(O,255,0)‘背景色为绿色Else，其他情况

Piel.BackColor=RGB(0,0,255)，背景色为蓝色EndIfEndSub单击:•按钮运行

程序，并按要求保存。(2)本题只要明白勾股定理的含义就不难了，即

a^+b八2kA2。程序中利用3重循环对30以内的数进行遍历，每发现一组符合条件

的数，就以逗号间隔显示在文木框中。窗体界面题中已设计好，只需补充相应的代

码，补充后的代码如下：PrivateSubCommandi_Click()DimiAsIntegerDimjAs

IntegerDimkAsIntegerDimstrAsStringstr='n,Fori=lTo30'第1个数用For循环

从1遍历到30Forj=iTo30'第2个数用For循环从i遍历到30Fork=iTo3(T第3

个数用For循环从i遍历到30IfiA2+jA2=kA2Then，满足勾股定理str=str+CStr(i)+",

,,+CStr(j)+，\"+CStr(k)+vbCrLP将获得的3个数通过字符串形式记录EndIfNextk

NextjNextiTextl.Tex〔=str'在Texll中显示结果EndSub单击战按钮运行程序，

并按要求保存。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用

过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称

为Command］、标题为“计算显示”的命令按钮；再面两个单选按钮，名称分别为

Optionl和Option2、标题分别为“求100到250之间能被5整除的数的个数”和“求

300到400之间能被6整除的数的个数”，如图62-5所示。

■Fonnl

6m02WW区

anr®

r次300到皿发BtGS*谢京

的个■

图62-5请编写适当的事件过程，使得在运行时，选中一个单

选按钮，再单击”计算显示”按钮，就可以按照单选按钮后的文字要求计算，弁把计

算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存

盘。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击

窗体右上角的关闭按钮来完成。在结束程序运行之前，必须至少要进行一种计算，

否则不得分。

标准答案：根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加

到窗体中，文本框的名祢为Texll,单选按钮的名称：分别为Optionl和Oplion2,

Caption分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能

被6整除的数的个数”，命令按钮的名称为Command],Caption属性为“计算显

示“，设置完成后，双击Commandl进入代码窗口，补充后的具体代码如下：

PrivateSubConimandl_Click()DimrainAs