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

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

（共27题）

VB机试模拟试卷第1套

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

1、在名称为Form1的窗体上添加两个名称分别为Frame】、Frame2的框架，标题分

别为“字号”、“修饰”；在Framel中添加两个单选按钮，名称分别为Optionl、

Option2,标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在

Frame2中添加1个名称为Checkl的复选框，标题为“下划线”。程序运行后的窗体

界面如图61—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存

为sjl.vbp,窗体文件名保存为sjl.frm。（2）在名为Fomil的窗体上绘制一个文本

框，名为Texll,无初始内容；再绘制一个图片框，名为Piel。请编写Textl的

Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输

出一行文本框中的完整内容。运行时的窗体如图61—2所示。

图61-1

序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2.vbp,

窗体文件名为sj2.frm。

标准答案：（1）根据题意，新建“标准EXE”工程，在窗体上添加2个框架，2个单选

按钮和1个复选框，2个框架的名称分别为FramelfUFrame2,Caption属性分别为

“字号”和“修饰”，2个单选按钮的名称分别为OptioM和Option2,Caption属性分别

为“10号字，，和“20号字”，复选框名称为Checkl,Caption属性为“下画线”。单击

按钮运行程序，并按要求保存。（2）①新建一个名为Forml的窗体。②单击工

具箱中的PiclureBox控件图标，在窗体上拖拉出一个图片框，在属性窗口设置该图

片框名称为Piel。③单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文

本框，在属性窗口设置该文本框名称为TextL设置其Text属性为空白。④打开

代码窗口输入如下代码：PrivateSubTextl—Change。'将文本框内容显示在图片框

中EndSub⑤按要求保存文件即完成本题。

知识点解析：暂无解析

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

2、（1）在考生文件夹中有一个工程文件sj3.vbp和一个窗体文件sj3.frm。窗体上

有一个名为Textl的文件框，一个标题为“计算”、名称为Command1的命令按钮和

一个组合框。请在名为Combol的组合框中输入3个列表项：“5”、“9”和“13”例表

项的顺序不限，但必须是这3个数字），程序运行情况如图36-3所示。请编写适

当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，

则计算4000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文

件名存盘（提示：由于计算结果较大，应使用长整型变量）。注意：不得修改窗体文

件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体

右上角的关闭按钮结束程序，否则无成绩。（2）在考生文件夹中有一个工程文件

sj4.vbp及窗体文件sj4.frm。在名为Forml的窗体上有一个圆和一条直线（直线的

名称为Linel）构成一个钟表的图案：有两个命令按钮,名称分别为Command1却

Command?,标题分别为“开始”和“暂停”；还有一个名为Timed的计时器。程序运

行时，钟表指针不动，单击开始按钮，则钟表上的指针（即Linel）开始顺时针旋转

（每秒转6,一分钟转一圈）；单击暂停按钮，则指针暂停旋转。运行时的窗体如

图36—4所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一

次；编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不

得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一

条语句。最后，按原文，’牛名并在原文件夹中保存修改后的文件。

图36-3图36-4注意：保

存时必须存放到考生文件夹下，工程文件名为$j4.vbp,窗体文件名为sj4.frm。

标准答案：⑴组合框（ComboBox）将文本框与列表框的特性组合在一起，既可在组

合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可以在

设计阶段通过其List属性加入，加入时注意每输入完一项后按“Ctrl+Entcr”组合键

换行再输入下一项，也可以通过代码设置，Addhem方法用来向组合框中添加一个

表项，其格式为：组合框.Additem列表项［索引］。题目给出的源程序中已给设计

好窗体，只需在Combol的List属性中添加“5”、“9”和“13”三个列表项,添加完成

后，双击Commandl进入代码窗口，补充后的代码如下：PrivateSub

Commandl_Click()IfCombO1.Text=5Thendivide(5)ElselfCombO1.Text=9Then

divide(9)Elsedivided3)EndIfEndSubPrivateSubdivide(XASInteger)DimiAs

IntegerDimtempAsLongFori=lTO4000IfiModx=0Thentemp=temp+iEndIf

NextiTextl.Text二tempEndSub单击逑按钮运行程序.并按要求保存。(2)本题

主要考查计时器控件和形状控件和用法。计时器的Interval属性用于设置每次触发

计时器的Timer事件的时间间隔，单位为亳秒。Enabled属性控制计时器是否开始

启用，True表示启用，False表示不启用。形状控件用来绘制各种形状，其值有6

种，0表示矩形，1表示正方形，2表示椭圆，3表示圆形，4表示圆角矩形，5表

示圆角正方形。根据题意，将计时器的Interval属性设为1000,双击Command1

命令按钮，进入代码窗口，源程序给出的代码如下：DimlenthAsInteger,qAs

IntegerConstPI=3.14159PrivateSubFormLoad()lenth=Linel.Y2-Linel.Y1q=90

EndSubPrivateSubTimerl_Timer()q=q-6Linel.Yl=Linel.Y2-lenth*Sin(q*PI/180)

Linel.Xl=Linel.X2+lenth*Cos(q*PI/180)EndSub补充后的命令按钮4件如下：

PrivateSubCommandlClick()Timerl.Enabled=TrueEndSubPrivateSub

Command2_Click()Timerl=FalseEndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

三、综合应用题（本题共7题，每题74分，共7分c）

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

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

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

标题分别为“读取”和“排序保存”，如图18—5所示，程序运行后，如果单击“读取”

按钮，则读入in.txt文件中的50个整数，放入一个数组中（数组下界为1）；如果

单击“排序保存”按钮，则对这50个整数按从小到大的顺序进行排序，把排序后的

全部数据在文本框Textl中显示出来，然后存人考生文件夹的out.ixl文件中。（考

生文件夹下的标准模块mode5.has中的writedata过程可以把指定个数的数组元素

存入oul.ixl文件。）图18-5注意：请在有“?”的地方填入正确内容，

然后删除“?”及代码前的所有注释符（即号）但不能修改其他部分。文件必须存放

在考生文件夹下，窗体文件名为si5.frm,工程文件名为si5.vbp,排序结果存入

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

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

名为ylcl.bp；窗体文件命名为ylcLfrm。［*］

知识点解析：（1）第1小题中要使用Enable屑性来控制选择控件的变灰与否。

2、新建一个工程，在窗体中创建一个单选按钮数组，名称为Option1。该数组含

有四个单选按钮，其标题依次为“选项1”、“选项2”、“选项3”和“选项4”，其下标

分别为1,2,3,40默认选择为“选项3”。运行结果如图10所示。程序中不得使

用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp,窗

体文件名为ylc2.frm。图10程序运行结果

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

Exe”。创建窗体FormL（2）在工具箱中选择单选按钮控件，在窗体中要求位置画

出两个单选按钮，笫一个按钮的名称为Opiionl,笫二个按钮的名称也设为

Option1,这时系统会提示是否建立单选按钮数组。选择“确定”，并建立另外两个

单选按钮。将所有按钮的Caption属性依次设置为“选项1”、“选项2”、“选项3”和

“选项4”。（3）将“选项3”的Value属性设置为True,设为默认选项。（4）按F5键运

行程序。如图10所示。（5）执行“文件”一“保存工程”命令，将工程文件命名为

ylc2.vbp,窗体文件命名为ylc2.fnn。［*］

知识点解析：（2）第2小题主要考查了按钮数组的建立。在VisualBasic中控件数组

的设置方式都相同。

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

3、有一个工程文件ylc6.vbp,它的功能是在文本框中输入一个整数，单击“移动”

按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如

果超过了滚动条的最大刻度，则不移动，并且显示"文本框中的数值太大”；如果输

入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻

度，则不移动，并且显示“文本框中的数值太小”，如图18所示。题目中提供的

"移动"按钮控件Command1的Click事件的源代码如下：PrivateSub

Commandl_Click（）DimnCountAsIntegernCount=CInt（Textl.Text）If（nCount>

=?）ThenHScrolll.Value=HScrolll.Max?ElseIf（nCount<=HScrollLMin）

Then?=HScrolll.MinMsgBox（“文本框中的数字太小"）ElseHScrolll.Value=?EndIf

EndIfEndSub注意：彳?能修改程序中的其他部分，不能修改控件的属性，最后把

修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。

图18程序运行结果

标准答案：操作步骤⑴在VisualBasic集成环境中选择“文件”一“打开工程”命令，

在对话框中选择ylc6.vbp工程文件，单击“确定”按钮打开。（2）选择工具箱中的

TexlBox控件，在窗口上拖动，创建该控件命名为Textl,设置属性为空。（3）选择

工具箱中的CommandButton控件，在窗口中拖动并画出该控件。在属性编辑框命

名为Command1,标题设置为“移动（4）选择工具箱中的HScrollBar控件，在窗

口上拖动创建该控件，命名为HScroUL在属性窗口根据题目的要求设置Valua属

性值为0。（5）题目要求在移动到最左或最右边时，停止移动并显示提示信息。H

此，在属性中设置它的最大最小值，即设置Max属性为256,设置Min属性的值

为-256。2.行为编码Cormnandl的Click事件，代码如下：PrivateSub

Commandl_Click（）DimnCountAsIntegernCount=CInt（Textl.Text）'当前值与最大

值比较If（nCount>=HScrolll.Max）ThenHScrolll.Value=HScrolll.Max，信息提示框

提示MsgBox（”文本框中的数字太大"）Else'当前值与最小值比较If（nCount<

=HScrollLMin）ThenHScrolll.Value=HScrelll.Min'信息提示框提示MsgBox（“文本框

中的数字太小"）Else，把当前值赋给滚动条HScrolIl.Vaiuc=nCountEndIfEndIfEnd

Sub3.存盘保存执行“文件”一“保存工程”命令，工程文件名为ylc6.vbp,窗体文

件名为ylc6£m。

知识点解析：（I）本题考查考生对HScrollBar相关属性的设置，包括对HScrollBar

控件的最大、最小值的设置，滚动设置，以及判断语句的运用和实现显示用户提示

信息。（2）注意HScrollBar控件的最大、最小值设置，滚动条的值设置，

CommandButton控件的Click事件处理的功能。（3）在每次单击“移动”按钮后，将

文本框中的数值与HSc⑹IBar的Max属性值和Min属性值进行比较。若超出

HScrollBar的值域范围则弹出太大或太小提示信息，否则移动滚动条。

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

4、新建一个工程。在窗体中画一个列表框，名称为List,通过属性窗口向列表框

中添加3个项目，分别为“中文”、”广东话”和English。编写一个事件过程，要求

运行程序后，双击列表中的任何一项，都会在后面加上“谢谢”，如图16所示。

图16程序运行结果

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

Exe”。创建窗体Formic（2）在工具箱中选择ListBox控件，在窗体上拖动创建一

个列表框，名称为Listl。在其属性窗口中，添加三个项目，分别为“中文”、“广东

话”和English。⑶在Listl的代码窗U中添加以卜,代码：PrivateSub

Listi_DblClick（）List1.Additem（"谢谢*EndSub（4）按F5键运行程序。如图16所

示。（5）执行“文件”一＞“保存工程”命令，将工程文件命名为ylc4.vbp,窗体文件命名

为ylc4.frm。|*]

知识点解析：（4）第4小题中，主要考查了列表框的建立和Additem的使用。

VB机试模拟试卷第3套

一、基本操作题（本题共I题，每题上0分，共1分,）

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

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

画一个标签，名称为L1,标签上显示“请输入密码”，在标签的右边画一个文本

框，名称为Tcxtl,其宽和高分别为2000和300,设置适当的属性使得在输入密码

时，文本框中显示“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设

置都只能在属性窗口中进行设置，运行时的窗体如图20-1所示。注意：存盘时必

须存放在考生文件夹下，工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。（2）在名

称为Forml的窗体上画一个图片框，名称为P1。请编写适当的事件过程，使得在

运行时，每单击图片框一次，就在图片框中输出“单击图片框”一次，每单击图片框

外的窗体一次，就在窗体中输出“单击窗体”一次，如图20-2所示。要求程序中不

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

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

图20-1图20.2

标准答案：在窗体上建立好控件后，只需设置控件的属性即可。在设置属性时标

签的名称由Name属性设置，内容由Caption属性设置，宽和高设置由Wid出属性

和Height属性。窗体的标题由窗体的Caption属性设置。PasswordChar属性可以将

文本框设置为口令输入，题目要求显示“叱，所以应该将PasswordChar属性设置为

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

控件属性设置值

NameForml

Form

Caption密码窗口

NameTextl

文本框

PasswordChar*

NameLI

标签

Caption请输入密码

值见表20-1。请输入密码

第二步：调试并运行程序。第三步：按题目要求存盘。（2）先在窗体上建

立图片控件。然后再编写过程代码。单击窗体触发的时Form_Click事件，单

击图片框触发的时PLClick事件。在对象中打印信息使用的是Print方法，其语法

格式为：对象.Print解题步骤：第一步：建立界面并设置控件属性。

程序用到的控件及其属性见表20-2o

控件属性设置值

图片框NameP1

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

考代码：OptionExplicitPrivateSubForm_Click（）Me.Print"单击窗体"EndSub

PrivateSubPl_Click（）PI.Print”单击图片精“EndSub第三步：调试并运行程序：＞

第四步：按题目要求存盘。

知识点解析：暂无解析

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

2、注意：下面出现的“考生文件夹”均为c：\wexam\25160001o（1）在名称窗体为

Forml,KeyPreview属性为True的窗体上有一个列表框（名称为Listl）和一个文本

框（名称为Textl）,如图22-5所示。编写窗体的KeyDown事件过程。程序运行

后，如果按“A”键，则从键盘上输入要添加到列表框中的项目（内容任意，不少于三

个）；如果按键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的

运行情况如图22-6所示。在考生文件夹下有一个工程文件sjl3.vbp(相应的窗体文

件名为sjt3.frm),可以实现上述功能。但这个程序不完整，请把它补充完整。要

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

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

图22・5图22-6(2)在考生文件夹下有一

个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程

Average求数组的平均值，请装入该文件。程序运行后，在4个文本框中各输入一

个整数，然后单击命令或钮，即可求出数组的平均值，并在窗体上显示出来，如图

22-7所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序

中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序

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

图22-7

标准答案：判断按键可以在窗体的KeyDown事件下用Chr函数将按键代码转换成

字符与给定字符进行比较。使用Additem方法向列表框中添加列表项目，使用

Removehem方法从列表框中删除列表项目。程序中用到了InputBox。，其格式

为：InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])prompt：是一4、

字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用

户输入。title：字符串，它是对话框的标题，显示在对话框顶部的标题区。

default：字符串，用来显示输入缓冲区的默认信息。xpos,ypos：是两个整数值，

分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos),它们的单位为

twipohelpfile,context：helpfile是一个字符串变量或字符串表达式，用来表示帮

助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助

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

控件属性设置值

FormlKeyPreviewTtue

ListboxNameListl

文本相NameTextl

属性见表22-3。第二

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

Form_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If

Chr(KeyCode)=,,A"ThenText1.Text=InputBox("请输入要添加的项

目“)?List1.Additem?EndIfIf

Chr(KeyCode)="D"ThenTextl.Text=InputBox("请输入要删除的项

目“)Tori=0To?'IfListl.List(i)=?

Then5List1.Removeltem?EndIf

NextiEndIfEndSub参考代码：PrivateSub

Form_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If

Chr(KeyCode)=,'A"ThenText1.Text=InputBox("请输入要添加的项

目“)Listl.AdditemTextIEndIfIf

Chr(KcyCodc)="D"ThenText1.Tcxt=InputBoxC'请输入要删除的项

目")Fori=0ToListl.ListCount-1If

Listl.List(i)=Forml.TextlThenListl.Removeitem(i)

EndIfNextiEndIfEndSub第三步：调试

并运行程序。第四步：按题目要求存盘。(2)文本框里的内容(包括数字)

默认都是当作字符串来处理的，如果要参与数据运算则需先用Vai函数将其转化为

数字类型。这里需要指出的是利用Array函数对数组各元素赋值，声明的数组只能

是Variant类型，数组的上下界可用UBound和LBound函数获得，这两个函数的

格式分别为：LBound(数组［，维］)UBound(数组［,维］)这两个函数分别

返回一个数组中的下界和上界。其中“数组”是一个数绡名，“维”是要测试的维°

LBound函数返回“数组”的下界，而UBound函数返回“数组”某一“维”的上界值，

这两个函数一起使用即可确定一个数组的大小。解题步骤：第一步：建立界面并

设置控件属性。程序中用到的控件及其属性见表22-4。

控件属性设置值

NameCommandl

命令按钮

Caption求平均值

文本框NameTextl

文本框NameText2

文本框NameText3

文本框NameText4

第二步：编写程序代码。

程序提供的代码:OptionBase1PrivateFunctionAvcragc(a()AsInteger)AsSinclc

DimStartAsInteger,FinishAsIntegerDimiAsIntegerDimSumAs

Integer,Start=?(a)Tinish=?(a),Sum=?Fori=StartToFinish,Sum=Sum+?Next

i,Average=?EndFunctionPrivateSubCommand1Click()DimarrlDimarr2(4)As

Integerarrl=Array(Val(Textl.Text),Val(Text2.Text),Val(Text3.Text),

Val(Text4.Text))Fori=lTo4arr2(i)=CInt(arrl(i))Nexti,Aver=Average(?)Print”平

均值是："；AverEndSub参考代码：OptionBaseIPrivateFunctionAverage(a()As

Integer)AsSingleDimStartAsInteger,FinishAsIntegerDimiAsIntegerDimSumAs

IntegerStart=LBound(a)Finish二UBound(a)Sum=0Fori=StartToFinish

Sum=Sum+a(i)NextiAverage=Sum/FinishEndFunctionPrivateSub

Commandl_Click()DimarrlDimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),

Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=lTo4arr2(i)=CInt(arrl(i))

NextiAver=Average(ai>2)Print"平均值是："；AverEndSub第三步：调试并运行程

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

知识点解析：暂无解析

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

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

单,名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存

盘”,一个文本框,名称为Textl,MultiLine属性设置为Tree,ScrollBars属性设置

为2,如图21-7所示。程序运行后，如果执行“读入数据”命令,则读入datainl.txt

文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”

按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把

所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文

件夹下的dataout.txt文件中。在考生文件夹下有一个工程文件sjl5.vbp,窗体文件

中的ReadData过程可以把datainl.txt文件中的100个整数读入Air数组中；而

WritcData过程可以把指定的整数值写到考生文件夹下指定的文件中（整数值通过计

算求得，文件名为dataout.txt）。请将程序中有问号的地方用相应的代码补完整，将

注释号（'）去掉。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程

文件名仍为sjt5.vbp,窗体文件名仍为sjt5.trmo

标准答案：使用Open方法和Close方法打开和关闭文件，使用循环语句把整数赋

给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中

下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用

Print方法来实现。解题步骤：第一步：建立菜单项、建立界面并设置控件属性。

程序中用到的菜单项及其控件属性见表21-5。

标题名称内缩符号

读入数据Read0

计辑并输出Calc0

存盘Save0

TextNameTextl

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

序提供的代码：OptionBase1DimArr(K)O)AsIntegerDimtempAsIntegerSub

ReadData()OpenApp.Path&"\"&"datainl.txt"ForInputAs#1Fori=lTo100Input

#1,Arr(i)Nexti'?#1EndSubSubWriteData(FilenameAsString,NumAsInteger)

OpenApp.Path&"\H&FilenameForOutputAs#1Print#1,NumClose#1EndSub

PrivateSubCalc_Click(),Textl.?='M,Fori=lTo100Step2Text1,Text=Text1.Text&

Arr(i)&Spacc(5)tcmp=tcmp+Arr(i)Nexti'Print?EndSubPrivateSubRcad_Click()

ReadDataEndSubPrivateSubSave_Click()WriteData"dataout.txt",tempEndSub参

考代码：OptionBase1DimArr(100)AsIntegerDimtempAsIntegerSubReadData()

OpenApp.Path&"\H&"datainl.txt*'ForInputAs#1Fori=lTo100Input#1,Arr(i)

NextiClose#1EndSubSubWritcData(FilenameAsString,NumAsInteger)Open

App.Path&"\"&FilenameForOutputAs#1Print#1,NumClose#1EndSubPrivate

SubCalc_Click()Textl.Text=""Fori=lTo100Step2Text1.Text=Texl1.Text&Arr(i)

&Space(5)temp=temp+Arr(i)NextiPrinttempEndSubPrivateSubRead_Click()

ReadDataEndSubPrivateSubSave_Click()WriteData"dataout.txt",tempEndSub第

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

知识点解析：暂无解析

VB机试模拟试卷第4套

一、基本操作题（本题共I题，每题上0分，共1分,）

1、有一个ylc5.vbp,只有一个窗体FormI,需要创建Form2o在窗体FormI上建

立Command1和Command2两个命令按钮，标题分别为“隐藏启动窗体”和“关闭窗

体”。在窗体Form2上仓J建标题为“打开窗体1”的按钮。将Form2设为启动窗体，

单击Form2上的按钮，则显示FormI窗体：若单击Form1上的“隐藏启动窗体''按

钮，则Form2消失。若单击Forml上的“关闭窗体”按钮,则Form）和Form2都消

失，退出程序。注意：存盘时必须存放在考生文件夹卜，工程文件名为ylc5.vbp,

窗体文件名为ylc5-l.frm,ylc5-2.frm程序中不得使用任何变量。

•Fora?-SB

________

图19程序运行结果

标准答案：1.操作步骤⑴在VisualBasic集成环境选择“文件”一“打开工程”命令，

在对话框中选择ylc6.Vbp工程文件，单击“确定”按钮。（2）在工具箱中选择命令按

钮，用鼠标在窗体Forml上拖动，创建两个命令按钮。在属性窗口分别设置它们

的名称（Name属性）为Command1和Command?,标题（Caplion属性）为“隐藏启动窗

体”、“关闭窗体”。（3）在菜单栏选择“工程”一“添加窗体”命令，弹出对话框如图33

所示。单击“打开”按钮，在工程框中生成Form2的窗体。

阳“（4）选择命令按钮，在上面

Form2窗体创建一个命令按钮，设置名称为Commandl,标题为“打.开窗体1”。（5）

为设置Form2启动窗体做如下的操作：1）从“工程”菜单中选择“工程属性”命令，弹

出如图34所示的界面。

工程1-工程属性

图342）选择“通用”属

性页，在“启动对象”中选择Form2,单击“确定”按钮，设置该窗体为启动窗体。

2.行为编码（1）用鼠标单击窗体Forml,出现Forml的代码窗口。选择Commandl

按钮的Click事件,代码如下：PrivateSubCommandl_Click（）Form2.HideEndSub

⑵在Forml的代码窗口内选择Command2按钮的Click事件，代码如下：Private

SubCommand2_Click（）‘卸载窗体2UnloadForm2，卸载自身也即窗体1UnloadMe

EndSub⑶用鼠标单击窗体Form2,出现Form2的代码窗口。选择Command1按钮

的Click事件，代码如下；PrivateSubCommand3_Click（）FormI.ShowEndSub

3.存盘保存执行“文件”一“保存工程”命令，工程土件名为ylc5.vbp,窗体文件名

为ylc5-l.irm,ylc5-2.trm。

知识点解析：（1）本题考查多窗体的应用创建、不同窗体上的命令按钮事件、控制

两个窗体的显示、应用程序的结束控制以及如何在工程窗口中设置启动窗口。（2）

注意Form对象的Show方法，End应用结束控制。（3）通过调用Form2的Hide方法

隐藏Fonn2窗体，通过Unload方法关闭窗体1和窗体2,通过调用Forml的Show

方法显示Form1窗体。

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

2、有一个工程文件ylc6.vbp,窗体上已经有两个文本框，名称分别为Textl、

Text2<>在窗体上创建一个命令按钮，名称为Commandl,标题为“确定画两个

单选按钮，分别为“王老师”、“林老师”；再画两个复选框，名称分别为Checkl、

Check2,标题分别为“语文”、“数学”。编写适当的事件过程，使得在运行时，单击

“确定”按钮后实现下面的要求。根据选中的单选按钮，在Tcxtl中显示“我是王老

师''或"我是林老师”。根据选中的复选框，在Text2中显示“我教语文”、“我教数

学“、“我教语文数学”，如图24所示。注意：存盘时必须存放在考生文件夹下，

工程文件名为ylc6.vbp,窗体文件名为ylc6.frmo

图24程序运行结果

标准答案：1.操作步骤⑴在VisualBasic集成环境选择“文件”一“打开工程”命

令：在对话框中选择ylc6.vbp工程文件，单击“确定”按钮打开。（2）在工具箱中选

择OptionButton,在窗体上创建两个单选按钮命名为Optionl和Option2。在属性

窗口中分别设置按钮的标题为“王老师”和“林老师”。在同一个窗体上创建，因此只

能二选一。（3）在工具箱中选择CheckBox控件，在窗体上创建两个复选按钮，命

名为Checkl和Check2。在属性窗口中，设置标题为“语文”、“数学”。（4）根据题

目要求，创建命令按钮命名为Commandl,在属性窗口设置其标题为“确定”。

2.行为编码在代码窗口设置选择Command1和Click事件代码，其行为代码如

下：PrivateSubCommand1_CIick（）Ifoption1.ValueThenTextl.Text="我是"&

OptionLCaptionElseTextl.Text="我是"&Option2.CaptionEndIfIf（Checkl.Value

AndCheck2.Value）ThenTcxt2.Tcxt="我教"&CheckI.Caption&Check2.Caption

ElselfCheck1.ValueThenText2.Text="我教"&Checkl.CaptionElselfCheck2.Value

ThenText2.Text="我教"&Check2.CaptionElseText2.Text=n"EndIfEndSub3.存

盘保存执行"文件”一“保存工程”命令，工程文件名为ylc6.vbp,窗体文件名为

ylc6.frmo

知识点解析：（1）本题考查考生对单选按钮和复选按钮功能的使用，比较单选按钮

和复选按钮的不同之处。（2）注意OptionBulton控件、CheckBox控件的使用，命令

按钮的行为编码以及字符串的连接操作。（3）该代码根据题目的要求，通过If语句

判断当前单选按钮的Value属性的值和复选按钮属性的值。通过连接字符串，

并通过TexlBox控件的Text属性显示。

VB机试模拟试卷第5套

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

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

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

名称为PI的图片框，然后建立一个主菜单，标题为“操作”，名称为Op,该菜单有

两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea。编写适当的

事件过程，程序运行后，如果单击“操作”菜单中的“显示''命令，则在图片框中显示

“计算机考试”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如

图151和图152所示。注意：存盘时必须存放在考生文件夹下，工程文件名为

sjtl.vbp,窗体文件名为sjtl.frm。程序中不得使用任何变量。（2）在Forml的窗体

上画一个列表框，名称为L1,通过属性窗口向列表框中添加4个项目，分别为“早

上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程，过程中只能使用

一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框

中。程序的运行情况如图15-3所示。注意：存盘时必须存放在考生文件夹下，工

程文件名为sjt2.vbp,窗体文件名为sjt2.frmo

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

由单击右键选择“菜单编辑器”来创建，通过Print方法在窗体或图片框中打印信

息，通过Cis方法清除图片框中的信息。Cis方法清除运行时Form或PictureBox所

生成的图形和文本。语法：Object.Clsobject代表一个对象表达式。如果省略。

object,则默认为当前的Form窗体。解题步骤：第一步：建立界面并设置控件属

控件属性设置值

名字

菜单Op

标题操作

名字Dis

菜单

标题显不

名字Clea

菜单

标题清除

图片框NameP1

性。程序中用到的控件和属性设置见表15-1。

第二步：编写程序代码。参考代因：PrivateSubClca_Cliuk（）

Pl.CisEndSuhPrivateSubDis_Click（）PI.Print"it

算机考试”EndSub第三步：调试异运行程序。第四步：按题目

要求存盘。（2）在窗体上建立好控件后，先设置控件属性，再编写事件过程。

列表框的内容由属性List来设置，再程序中添加项要通过Addhem方法来实现，

鼠标双击触发控件的DblClick事件。Additem方法用于将项目添加到ListBox

或ComboBox控件，其语法格式为：obiect.Additemitem,indexobject必需

的。一个对象表达式。item必需的。字符串表达式，它用来指定添加到该对

象的项目。index可选的。是整数，它用来指定新项目或行在该对象中的，立

置。对于ListBox或ComboBox控件的首项index为0。解题步骤：第一

步：建立界面并设置控件属性。程序中只用到的控件和属性设置见表15-2。

控件属性设置值

列表框NameL1

第二步：编写程序代码:

参考代码PrivateSubLl_DblClick()LI.AdditemLI.TextEndSub第三步：调试并运

行程序。第四步：按题后要求存盘。

知识点解析：暂无解析

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

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

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

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

得改变文件名和文件夹。如图17・3所示。本题描述如下：在窗体上有一个标签数

组，名为Labell,该数组有4个控件元素，标题分别是“程序运行”、“文本编辑”、

“双向箭头”和“移动窗体”。在程序运行后，将鼠标移动到各控件元素上，则鼠标的

形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情

况下的箭头形状。(2)在考生文件夹下有工程文件sjt4.vbp,窗体文件sjt4.frm,该

程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即‘

号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件

夹下。如图17-4所示。本题描述如下：在窗体上有一个名为Tex”的文本框，有

两个命令按钮，名称分别是C1和C2,标题分别是，读入”和“计算并保存“。要求程

序运行后，点击C1按钮，将文本文件in6.txt中的所有数字读到数组arr中，并在

文本框内显示出来。随后C1按钮变为无效：然后点击C2按钮，求出数组arr中的

各元素的平方并赋值回相应的元素，例如，arr(2)=2,则令air(2)=air(2)*air(2)=4。

把计算后的数组的值全部写入考生文件夹下的文本文件oul6.lxt中，并在文本框中

显示出来，最后C2按钮也变为无效

图17-3图17-4

标准答案：控件数组是由一组相同类型的控件组成，建立控件数组时系统给每个元

素赋一个惟一的索引号(Index),例如，控件数组cmdName(3)表示控件数组名为

emdName的第4个元素；鼠标的形状由属性MouscPointer来设置，该属性值为11

时对应程序运行时的鼠标形状，该属性值为3时对应文本编辑时的鼠标形状，该属

性值为7时对应双向箭头的鼠标形状，该属性值为5时对应移动窗体时的鼠标形

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

见表17-3o

又寸象下标属性设置值

NameLabell

Label(0)

Caption程序运行

NameLabell

Label(1)

Caption文本编辑

Label数组

NameLabell

Label(2)

Caption双向箭头

NameLabell

Label(3)

Caption移动窗体

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

Form_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)Torml.?=0EndSubPrivateSub

Labell_MouseMove(IndexAsInteger,ButtonAsInteger,Shift_

AsInteger,XAsSingle,YAsSingle)'SelectCase?

Case0Form1.MousePointer=11Case1

Form1.MousePointer=3Case2

Form1.MouscPointer=7Case3

Form1.MousePointer=5EndSelectEndSub参考代

码：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)Form1.MousePointer=0EndSub

PrivateSubLabell_MouseMove(IndexAsInteger,ButtonAsInteger,

ShiftAsInteger,XAsSingle,YAsSingle)SelectCaseIndex

Case0Form1.MousePointer=l1Case1

Forml.MousePointer=3Case2

Form1.MousePointer=7Case3

Forml.MousePointer=5EndSelectEndSub第三步：调

试并运行程序。第四步：按题目要求存盘。（2）打开文件的命令是

Open,其常用形式为：Open“文件名”For模式As［#］文件号［Lcn=记录长度］,对文

件的写操作所用的命令是Write#或Prinl#命令，其形式分别为：Print#文件号，［输

出列表］;Write#文件号，［输出列表］，二者区别是Write#是以紧凑格式存放，即在

数据项之间插入逗号，并给字符串加上双引号。解题步骤:第一步：建立界

面并设置控件属性。程序中用到的控件及其属性见表17-4。

对象K性设置值

NameTextl

Text

text空