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

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

（共26题）

VB机试模拟试卷第1套

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

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

名称为Forml的窗体上建立一个名称为Command］，标题为“输出”的命令按钮，编

写适当的事件过程。程序运行后，如果单击“输出”按钮，则在Forml窗体上显示

“模拟试题”，如图46-1所示。程序中不能使用任何变量，直接显示字符串。注

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

sjl.vbpo（2）在名称为Forml的窗体上建立两个名称分别为Coinmandl和

Command2、标题分别为“按钮1”和“按钮2”的按钮，一个名称为Labell的标签,编

写适当的事件过程，要求程序运行后，如果单击“.按钮1”按钮，则在标签上显示

字符串“显示1”；如果单击“按钮2”按钮，则在标签上显示字符串“显示2”。程序中

不能使用任何变量，直接显示字符串，如图46—2所示。

■Forml

植如鼠履

*索1

图46-1图46-2注意：保存

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

标准答案：⑴命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事

件；在窗体上打印显示内容使用Print方法。根据题意，将一个命令按钮添加到窗

体中，将其名称设为Command】、Caption属性为“输出”。双击命令按钮进入代码窗

口，编写如下代码：PrivateSubCommandl_Click（）Print”模拟试题“EndSub单击

A按钮运行程序，并按要求保存。（2）根据题意，将两个命令按钮和一个标签添

加到窗体中，将两个命令按钮的名称分别设为Command1和Command2,Caption

属性分别设为“按钮1”和“按钮2”，标签的名称为Labell、Caption属性为空，设置

完成后双击Command）进入代码窗口，编写如卜代码：PrivateSub

Commandl_Click()Label!.Caption="显示1"EndSubPrivateSubCommand?Click()

Label1.Caplion="显示2"EndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在窗体上绘制一个名称为Textl的文本框，然后建立两个主菜单，标题分别

为“系别”和"帮助”，名称分别为vbMcnu和vbHelp,其中“系别”菜单包括“工商管

理”、“信息科学与工程”、“机械工程与自动化”3个子菜单，名称分别为vbMcnul、

vbMenu2,vbMenu3o要求程序运行后，如果在“系别”的下拉菜单中选择“工商管

理”，则在文本框内显示“金融学、国际贸易学'如果选择“信息科学与工程“，则

在文本框内显示“系统工程、计算机应用技术”；如果选择“机械工程与自动化“，则

在文本框内显示“机械工程、车辆电子工程”（要求：不能使用任何变量，直接显示

字符串）。程序运行时，选择“工商管理”选项，程序运行窗体显示如图29—3所

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

名为sj3.Vbpo（2）在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,该程

序是不完整的。窗体上面有两个名称分别为Commandl和Command?、标题分别为

“输入维数”和“计算”的命令按钮.程序运行后，如果单击“输入维数”命令按钮：则

对数组a的维数进行赋值，初始化数组（通过等式a[i,j尸力计算）；如果单击“计

算''命令按钮，则求出二维数组a（i,j）的各元素之和，并在文本框中显示出来。请

设置相应的控件并编写程序实现该功能。程序运行效果如图29—4所示。

修入施教.__________________________________________________

------（5

注意：请在有,,度的地方填入正确内容，然后删除“?”及代旧前的所有注释符（即…”

号），但不能修改其他部分。存盘时不得改变文件和文件名。考生完成程序编写

后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4.vbp与

sj4.frm。

标准答案：⑴根据题意，新建“标准EXE”工程，单击窗体空白处，在弹出的快捷

菜单中选择“菜单编辑器”命令，打开菜单编辑器，输入以下菜单项：

标签名称内缩

系别vbMcnu无

工商管理vbMenul一位

信息科学与工程vbMenu2一位

机械工程与自动化vbMenu3一位

指助vbHelp无

编写如下代码:PrivateSub

vbMenulClick()Textl.Text="金融学、国际贸易学"EndSubPrivateSubvbMenu2

Click()Textl.Text="系统工程、计算机应用技术"EndSubPrivateSubvbMenu3

Click()Textl.Text=”机械工程、车辆电子工程"EndSub单击*:按钮运行程序，并

按要求保存。(2)本题主要通过InputBox函数给变量a、b赋值，然后利用a(i,

j尸i：j对数组进行初始化，即求出a(i,j)中各元素，最后再对各元素进行求和。补

充后的代码如下：DimaAsIntegerDimbAsIntegei-PrivateSubCommandlClick()

a二Val(InputBox("输入维数:")厂利用输入对话框输入维数b=Val(InDutBox("输入维

数："))EndSubPrivateSubCommand?Click()DimtotalAsLongtotal=0DimiAs

IntegerDimjAsIntegerFori-1Toa，利用双层循环遍历所有数组的数Forj-1Tob

total=total+i*i，求和NextjNextiTextl.Tcxt=total'将结果显示在Textl中EndSub

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

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sj5.vbp,程序代码中已经写入部分代码，要

求根据下面的描述在窗体模块中定义3个名款分别为readdatal、readdata2和

writedata的Sub过程。请先装入工程文件sj5.vbp,然后完成以下操作：在名称

为Forml的窗体上画3个命令的按钮，其名称为Command1>Command2和

Command3,标题分别为“读取数据”、“计算”和“存盘”。程序运行后，如果单击“读

取数据“按钮，则读入ini.txt和in2.txt文件中的各25个整数,分别放人al和a2

两个数组中：如果单击“计算”按钮，则把两个数组中对应下标的元素相加，其结果

放人第3个数组中(即：第一个数组的第n个元素加上第2个数组的第n个元素，

其结果作为第3个数组的第n个元素。这里的n为1,2,25),然后计算第3

个数组各元素之和，并物所求得的和在窗体上显示出来；如果单击“存盘”按钮，则

把所求得的和存入考生文件夹的out5.txt文件中。程序运行时的窗体界面如图

-«ipixi1

Sws26217

令中赛需Ii+«

27—5所示。图27」注意：考生只需添加必要的控件，并

将程序代码补充完整，变其实现上述功能即可。考生不得修改窗体文件中已经存在

的程序，必须把求得的结果用“存盘”按钮存入考生文件文件夹下的。ut5.txt文件

中，否则没有成绩。存盘时，工程文件名仍为sj5.vbp,窗体文件名仍为

sj5.frmo

标准答案：VisualBasic中要对文件操作，首先要先打开一个文件，然后对此文件

进行读或写的操作，操作完成后，关闭文件。打开文件的基本格式为：Open

FileNameForModeAs#FileNumbero打开方式主要有Output、Append、Input

Random等儿种方式。以Output、Append、Input方式打开的文件进行的读写操作

都是以顺序方式进行的。其中Oulput、Append打开的文件主要用来输出数据，与

Print#>Write#等方法配合使用；以Input加式打开的文件主要用来输入数据，它与

Input#>Lineinput#语句配合使用。以Random方式打开的文件主要用于随机文件的

读与写，它不分Outpul与Inpul,统一使用Random标识。本题原程序三个命令按

钮的。ick事件过程已给出，要求考生定义三个读或写文件的过程。文本文件是顺

序文件，三个过程都用Open语句打开文件。其中WritcDatc过程以Output的方式

打开文件，并使用Print#语句输出数据；readdalal与readdata2以Input的方式打开

文件，并使用Input#语句读入数据。Close#语句用于关闭打开的文件。App.Path

用于取得当前工程文件所在的文件夹路径，App.Path&”\"&Filcname指明了文件

的物理位置。语句：OptionBasel用于修改数组的下标默认从1开始编号。题目给

出的源程序如下：OptionBase1Dimal(25)AsIntegerDima2(25)AsIntegerDiin

SumAsIntegerPrivateSubCommandl_Click()readdatalreaddata2EndSubPrivateSub

Command?Click()Dima3(25)AsIntegerSum=OFori=1To25a3(i)=al(i)+a2(i)

Sum=Sum+a3(i)NextiPrint"Sum="；SumEndSubPrivateSubCommand3CIick()

writedata"out5.txt",SumEndSub根据题意,readdatalreaddata2和writedata过

程的参考代码如下:Subreaddatal()OpenApp.Path&M\ini.txt"ForInputAs#l

Fori=lTo25Input#1,al(i)NextiClose#1EndSubSubreaddata2()Open

App.Path&"\in2.txt"ForInputAs#lFori=ITO25Input#1»a2(i)NextiClose#1

EndSubSubwritedata(FNameAsString,dataAsInteger)OpenApp.Path&"\

out5.txt"ForOutputAs#lPrint#1,dataEndSub单击战按钮运行程序，并按要求

保存。

知识点解析：暂无解析

VB机试模拟试卷第2套

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

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

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

建立1个名称为Opl的单选按钮数组，含3个单选按钮，它们的标题依次为“选择

1”、“选择2”和“选择3”，其下标分别为0、1和2,初始状态下，“选择2”为选中

状态。运行后的窗体如图26-1所示。注意；存盘时必须存放在考生文件夹下，工

程文件名为sjtl.vbp,窗体文件名为sjll.frm。（2）在窗体上建立1个二级菜单，第

一级含两个菜单项，标题分别为“编辑”和“帮助”，名称分别为edit和help。其中

“编辑”菜单含有3个子菜单，其标题依次为“剪切”、“复制”和“粘贴”，名称分别为

cut、copy和pasle,如图26-2所示。注意：存盘时必须存放在考生文件夹下，工

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

<FSS^L3凶

!戕位相助

奥切

复利

档贴

图26-2

设置控件的属性。建立控件数组由多种方

法，考生可以采取任何一种来建立单选按钮数组。要使“选择2”为选中状态，则应

该将该控件的Value属性值设置True。Value属性月来表示单选按钮的状态，它的

值可以是True或False,当设置为True时，该单选按钮为选中，否则没有选中。

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

表26T

控件属性设置值

,lameOpl

单选按钮Caption“选择r

Index0

HaneOpl

Caption〃选择2"

单选按钮

Index1

ZaluePrue

iameOpl

单选按钮Caption"选择3"

Index2

表26-1。第二步：调试并运行程

序。第三步：按题目要求存盘。（2）在VisualBasic中，菜单通过“菜单编

辑器”窗口来建立。解题步骤：第一步：建立界面并设置对象属性。

表26-2

控件属性设置值

名称Edit

菜单

标题"编辑"

名称Cut

菜单标题"典切'

为缩符号1

名称Copy

菜单标题♦复制’

R缩符号1

名称Paste

菜单标题.粘贴“

为缩符号1

各称Help

菜单

标题'帮助"

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

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

知识点解析：暂无解析

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

2、I.在窗体上画一个名称为Opl的单选按钮控件数组，其包含4个单选按钮，

Index值从。到3,标题分别为“答案1”、“答案2”、“答案3”和“答案4”；再画一个

命令按钮，名称为C1,标题为“选择”：再画一个文本框Textl,名称为Textl,内

容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案「'单

选按钮时，在Textl文本框中显示“选择正确”，否则显示“选择错误”。程序运行结

果如图2—1所示。注意，保存时必须存放在考生文件夹下，工程文件名为

sjt3.vbp,窗体文件名为sjt3.frm。2.在考生文件夹中有工程文件sjt4.vbp,其中包

含窗体Forml,该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及

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

描述如卜.：在窗体上有三个名称分别为Textl、Text2>Texl3的文本框，一个名称

为Command],标题图2一】为“计算”的命令按钮（如图

2—2所示）。要求程序运行后，在Texll和Texl2中分别输入两个整数，单击“计算”

按钮后，可把两个整数之间的所有整数（含着两个整数）累加起来并在Text3中显示

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

Fornil

图2-2

为sjt4.frmo

标准答案：①对象主要属性设置如表3所示。

表3

对象对象名属性名属性值

窗体FormlCaptionForml

命令按钮ClCaption选择

文本框Textl

单选按钮Opl(O)Caption答案1

单选按钮Opl(l)Caption答案2

单选按钮0pl（2）Caption答案3

单选按钮0pl（3）Caption答案4

②分析：按试题要求在窗体上画一个单选

按钮数组（含四个单选按钮）、一个文本框和一个命令按钮，并分别将它们的属性按

表3的内容进行设置.单选按钮是否被选取由其Value属性来确定，当Value值为

True时，表示单选按钮被选取，否则未被选取，根据题意，只有选择了Opl（O）单

选按钮，将字符串“选择正确”赋给Tcxtl.Tcxt,否则将字符串“选择错误”赋给了

Textl.Texto③编程代码：PrivateSubCl_Click（）[fOpl（0）.Value=TrueThen

Text1.Text="选择正确"ElseTextl.Text="选择错误"EndIfEndSub2.①试题提

供的程序如下:PrivateSubCommandl_Click（）DimiAsIntegerDimjAs

IntegerTori=Textl.TextTo?j=?+iNextiText3.Text=jEndSub（2）要完成两个数

之间所有整数的累加，需要使用循环结构来读取两个数之间所有的整数，然后将每

一个整数累加到一个变量中。③修改后的程序如下：PrivateSub

Commandl_Click（）DimiAsIntegerDimjAsIntegerFori=Textl.TextToText2.Text

j=j+iNextiText3.Text=jEndSu

知识点解析：暂无解析

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

3、注意：下面出现的“考生文件夹”均为C:\wexam\25160002。在考生文件夹下有

一个工程文件sjt5.vbp,在该工程中为考生提供了一个通用过程，考生可以直接调

用。请在窗体上画一个名称为Tcxtl的文本框；画一个名称为C1,标题为“计算”

的命令按钮；再画两个单选按钮，名称分别为Opl和op2,标题分别为“求20()到

300之间能被7整除的数之和”和“求200到300之间能被3整除的数之和”，如图

27-5所示。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击

“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框

中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。注意：考生不

得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按

钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。

国27-5

标准答案：在窗体上建立控件后，先设置控件属性，再事件过程。程序中提供的

事件过程用来求200〜300之间能被n个整除的数的和，这里n是传递给Function

过程的参数，该Function过程返回求得和。文本框用Text属性来接收用户的输

入。按钮的标题由C叩tion属性来设置，单击按钮触发的是Click事件。为了检测

单选按钮被选中，可以通过检测其Value属性来实现，当Value为True时，表示

该单选按钮被选中，否则未被选中。在按钮的Click事件过程中通过条件语句来调

用Function过程，实现程序要求的功能。解题步骤：第一步：建立界面并设置控

件属性。程序中用到的控件及其属性见表27-5。

表27-5

控件属性设置值

NameFextl

文本框

Text空白

Mame21

按钮

Caption“计算”

NameOpl

单选按钮

Caption“求200到300之间能被7整除的数之和“

Name

单选按钮“求200到300之间能被3整除的数之和”

Caption

第二步：编写程序代

码。程序提供的代码：PrivateFunctionfun(aAsInteger)AsIntegers%=0Fori%=

200To300Iflnt(i%/a)=i%/aThens%=s%+i%EndIfNextfun=s%End

FunctionPrivateSubFonn_Unload(CancelAsInteger)Open"out5.txt"ForOutputAs

#1Print#LOpLValue,0p2.Value,Textl.TextClose#1EndSub参考答案Private

Functionfun(aAsInteger)AsIntegers%=0Fori%=200To300IfInt(i%/a)=i%/a

Thens%=s%+i%EndIfNextfun=s%EndFunctionPrivateSubCl_Click()If

OpLValueThenTextl=fun(7)EndIfIfOp2.ValueThenTcxtl=fun(3)EndSub

PrivateSubForm_Unload(CancelAsInteger)Open”oul5.txt"ForOutputAS#1Print

#1,OpLValue,Op2.Value,Textl.TextClose#1EndSub第三步；调试并运行程序。

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

知识点解析：暂无解析

VB机试模拟试卷第3套

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

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

Forml的窗体上画一个名称为Labcll的标签，然后建立一个主菜单，标题为“时

间”，名称为vbTime,该菜单有两个子菜单，其标题分别为“上午”和“下午”，名称

分别为vbTimel和vbTime2。编写适当的事件过程，使程序运行后，如果单击“时

间''菜单中的“上午”命令，则在标签中显示“8：00〜12：00”；如果单击“下午”命

令，则标签中显示“12：00〜18：00”。程序的运行情况如图39—1和图39—2所

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

为sjl.frm。（2）在窗体上画一个文本框，名称为Textl,Text属性为空。再画一个

列表框，名称为Lisll,通过“属性”窗口向列表框中添加3个项目，分别为“足球”、

“篮球”和“排球”。编写适当的事件过程，使程序运行后，在文本框中输入一个字符

串，如果双击列表框中的任一项，则把文本框中的字符串覆盖到该项上。程序的运

行情况如图39—3所示。

・Fora!,lD|x|

8:00-12001200-1800

图39-1图39-2图39-3

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

sj2.frrrio

标准答案：（1）根据题意，新建“标准EXE”工程，在窗体.上添加一个标签，名称为

Labcll,Caption属性为空，再按“Ctrl+E”组合键打开菜单编辑器，添加以下菜单

标签名称内缩

时间vbTime无

--

上午vbTimel一位

下午vbTime2一位

项:设置完成后，单击菜

单进入代码编写窗口，分别编写vbTimel和vbTime2的处理函数，具体如下：

PrivateSubvbTimel_Click()Label!.Caption="8：00~12：00"EndSubPrivateSub

vbTime2_Click()Labell.Caption^'12：00〜18：(XTEndSub单击*按钮运行程

序，并疹要求保存。⑵根据题意，新建“标准EXE”工程，将一个列表框控件和一

个文本框控件添加到窗体中，列表框的名称设为Listl,单击其List属性，在其中

添加“足球”、“篮球”和“排球”，每输入完一项按“Ctrl+Enter”组合建输入下一项，当

输入完成后，按回车键。文本框的名称为Textl、Caption属性为空。双击ListL进

入代码编写窗口，具体弋码如下：PrivateSubListl_Click()

Listl.List(Listl.ListIndex)=Textl.TextEndSub单击率按钮运行程序，并按要求

保存。

知识点解析：暂无解析

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

2、(1)新建一个工程文件，在窗体上有两个名称分别为Textl、Text2的文本框，一

个名称为Command］、标题为“计算”的命令按钮。要求程序运行后，在Textl输入

一个整数，单击“计算”按钮后，则把0到这个整数之间所有能被3整除的数累加起

来并在Text2中显示出来，如图58—3所示。注意：保存时必须存放在考生文件夹

下，窗体文件名为sj3.frm,工程文件名为si3.vbp。(2)在考生文件夹下有一个

工程文件sj4.vbp,在名称为Forml的窗体上有两个名称分别为Commandl和

Command2.标题分别为“相加”和“清空”的命令按钮，一个名为Textl的文本框。

要求程序运行后，单击“相加”按钮，可通过输入对话框输入两个整数，并将两数相

加后的结果在Texll文本框中显示出来。如果单击“清空”按钮，贝IJ把Texll文本框

清空。程序运行时的窗体界面如图58—4所示。

B58-3图58-4注意：请去掉

程序中的注释符把程序中的“?”改为正确的内容。但不能修改程序中的其他部

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

标准答案：(1)根据题意，新建“标准EXE”工程，将一个命令按钮和两个文本框控

件添加到窗体中，命令按钮的名称为Commandl、Caplion属性为“计算”，文本框的

名称分别为Textl和Text2、Text属性都为空。双击Command1进入代码窗口，编

写如下代码：PrivateSubCommandl_Click()DimnAsIntegerDimtotalAsLongDim

iAsIntegertotal=0n=Val(Textl.Text)，读取Textl中的数据Fori=0TonTor循环遍

历O〜n的数IfiMod3=0Thentotal=total+i'如果能被3整除，则相加EnclIfNexti

Text2.Text=total'在Text2中显示结果EndSub单击窗按钮运行程序，并按要求

保存。(2)本题主要考查考生使用InputBox。函数。InputBox。函数用于显示一个输

入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式

为：InputBox(Prompt［,Title",Default］)其中，Prompt字符串为输入框上显示的

提示文本；Title字符串在输入框的标题栏上显示；Default字符串为输入框的缺省

文本。本题补充后的代码如下：PrivateSubCommandl_Click()

Textl.Text=Val(InputBox("请输入”))+Val(InputBox「'请j俞入"))，将输入的两个数相

加的结果显示在Textl中EndSubPrivateSubCommand2_Click()Textl.Text=""'清

空文本框EndSub单击，黎.:按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

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

的，在名称为Forml的窗体上有一个Label控件和两个名称分别为Commandl和

Command2、标题分别为“开始”和“关闭”的命令按钮。编写函数Minus(A,N),其

功能是由数字A和0组成的不多于N位数的整数，利用该函数求8000-800-

80—8的值并把结果写入考生文件夹下的sj5.dat文件中。执行完毕,“开始”按钮

MdBMnuHAMI.m庭*由数字

Tt»T).,巨士的不一于,开利

Raarrajoo-ax卬・绮秦算入学生

文件类下的,防d怦中

施］关一

变成“完成”，且无效，如图51—6所示。图51-6注意:

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

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

标准答案；根据题意，将一个标签和两个命令按钮添加到窗体中，标签的Caption

属性为“编写函数Minus(A,N),其功能是由数字A(第一个数字)和0组成的不多于

N位数的整数，并利用该函数求800J800—80—8的结果，将结果写入考生文件

夹下的sj5.dat文件中"，两个命令按钮的名称分别设为Commandl和

Command2,Caption属"生分别为“开始”和“关闭”。双击Commandl进入代码编写窗

口,编写Minus函数，代码如下:PrivateSubCommandl_Click()DimtotalAsLong

total=Minus(8,4)OpenApp.Path&"sjs.dat”ForOjtputAs#0打开文件准备写入

Write#1,total'写入结果Close#1EndSubPrivateFunctionMinus(AAsInteger,NAs

Integer)AsLongDimiAsIntegerDimjAsIntegerDimbAsLongtotal=0IfN>=1

ThenFori=NTo1Stcp-1b-1Forj-1ToM.b=b*10NextjIfi=NThen

Minus=Minus+A*b'第一个数是正数ElseMinus=Minus-A*b'其他的是负数，即相减

EndIfNextiEndIfCommandl.Enabled=FalseCommandl.CaDtion="完成"End

FunctionPrivateSubCommand?Click()UnloadMeEndSub单击激按钮运行程序，

并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第4套

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

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

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

建立一个名称为Cmdl,标题为“显示”的命令按钮，如图2-1所示。要求程序运行

后，如果单击“显示”按钮,则执行语句FormLPrinr显示”:如果单击窗体,则执行

语句Forml.Cls。注意：保存时必须存放在考生文件夹下，窗体文件名为

sjtl.frm,工程文件名为sjtl.vbp。（2）在名称为Forml的窗体上建立一个水平滚动

条，名称为HS1,其最大值为100,最小值为0。要求程序运行后，每次移动滚动

框时，都执行语句Forml.PrintHS1.Value,如图2・2所示（程序中不能使用任何变

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

图2-1阳2-2

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

按钮的标题由Caption属性设置，单击命令按钮触发Click事件。在窗体上打印信

息用Print方法，清除窗体上的打印信息使用Cis方法，这两条语句在题目中已经

给出，只要将其放入适当的事件过程中即可。解题步骤：第一步：建立界面并设

置控件属性。本题只用到了1个命令按钮，将其Caption属性设置为“显示”，

Name属性设置为Cmdl。第二步：编写代码。参考代码：PrivateSub

Cmdl_Click（）Form1.Print“显示"EndSubPrivateSubForm_Click（）Fonnl.ClsEnd

Sub检步：调试并运行程序。第四步：按题目要求存底。（2）在窗体上建立好控

件后，先设国控件属性，再编写事件过程。滚动条表示的坡大值由Max属性设

置，最小值由Min属性设置，滚动条的当前值由Value属性设也；当滚动框的位置

改变时，触发Change事件。清除窗体上原来的显示的值可以用Qs方法来实现。

解题步骤：第一步：建立界面并没置控件属性。本程序中用到1个滚动框，将其

名称即Name属性设置为HS1,Min和Max属性属性分别设置为0和100。第二

步：编写程序代码。参考代码：PrivateSubHSl_Change（）CisForm1.PrintHS1End

Sub第三步：调试并运行程序。第四步：按题1=1叠求存盘。

知识点解析：暂无解析

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

2、注意：下面出现的“考生文件夹”均为c:\wexam\2516000l。⑴在考生文件夹中

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

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

改变文件名和文件夹。本题描述如下：在窗体上有3个名称分别为Textl、Text2

和Text3的文本框，一个名称为C1,标题为“计算”的命令按钮，如图4-4所示。要

求程序运行后，在Tcxtl和Text2中分别输入两个整数，单击“计算”按钮后，可把

两个整数之间的所有整数（含两个整数）累加起来并在Text3中显示。（2）在窗体上建

立一个名称为Tex”的文本框.建立一个名称为Cmdl,标题为“计算”的命令按

钮，如图4-5所示。要求程序运行后，如果单击“计算”按钮，则求出100-200之间

所有可以被3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下

的out.txt文件中。（在考生的文件夹下有一个modebas标准模块，该模块中提供了

保存文件的过程putdata,考生可以直接调用。）注意：保存时必须存放在考生文件

夹下，窗体文件,为sjt4.frm。工程文件名为sjl4.vbp,结果存入oul.lxl文件。

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

文本框中的字符用于算术运算，首先要利用Vai将文本框中输入的数字字符转换为

数字类型（文本框中的内容默认为字符串类型）。解题步骤：第一-步：建立界面并设

置控件属性。第二步：编写程序代码。程序提供的代码：OplionExplicitPrivate

SubCl_Click（）DimiAsInteger,sAsIntegerDimaAsInteger,bAsIntegera=

Val（Textl.Tcxt）b=Val（Text2.Text）Ifa>bTheni=aa=b'b=?EndIfs=0Fori=

aTob's=s+?NextiText3.Text=sEndSub参考代码：OptionExplicitPrivateSub

Cl_Click（）DimiAsInteger,sAsIntegerDimaAsInteger,bAsIntegera=

Val（Textl.Tcxt）b=Val（Text2.Text）Ifa>bTheni=aa=bb=iEndIfs=0Fori=a

Tobs二s+iNexliText3.Text=sEndSub第三步：调试并运行程序。第四步：按

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

程。命令按钮的Caption属性用来设置其标题，单由命令按钮触发Click事件：在

文本框中显示内容通过其Text属性来设置。解题步骤：第一步：建立界面并设徨

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

表4-3

控件5件设置价

NameCmdl

按钮

Caplionilff

文本相Name

W-------第二步：编写程序代码。标准模块代

码：OptionExplicitSubputdata(t_FiIeNamcAsString,t_StrAsVariant)DimSFile

AsStringSFile&tFileNameOpenApp.Path&SFileForOutputAs#1Print#1,t

StrClose#1EndSub参考代码:PrivateSubCmdl_CliCk()DimtempAsLongDimi

AsIntegerFori=100To200IfiMod3=0Thentemp=temp+iEndIfNext

Textl.Text=temppuidata"oul.lXt",tempEndSub嗡三步：调试并运行程序。第四

步：按题目要求存盘。

知识点解析：暂无解析

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

3、在考生文件夹中有工程文件sjbvbp及其窗体文件尔5.fnu,该程序是不完整

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

其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Forml的

窗体上有一个文本框，名称为Tcxtl,MukiLine属性为True,ScroHBars属性为

2,两个命令按钮，名称分别为Cmdl和Cmd2,标题分别为“读入数据”和“保存数

据”）,如图3-5所示。程序运行后,如果单击“读入数据”按钮，则读入“in.txt”文件

中的100个整数，放入一个数组中（数组下界为1）,并在文本框Textl中显示出

来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Texll中显示

出来，并存入考生文件夹中的文件“result.txt”中。（考生文件夹中有标准模块

prog.bas,其中的putdatu过程可以把指定个数的数组元素存入rcsult.txt文件。）注

意：上面出现的“考生文件夹”均为c:\wexam\25160001,文件必须存放在考生文件

夹下，窗体文件名为sjt5.frm,工程文件名为sjt5.vbp,结果存入resull.lxt文件，否

则没有成绩。图3-5

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

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

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

外需要注意的是对文件操作完成后，一定要关闭文件。解题步骤：第一步：建立

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

表3-4

控件M性设置低

NameText!

文本根Scrollbars2

MultilineTrue

NameCmdl

命令按钮

Caption读入数据

NameCmd2

命令按钮

保存数据

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

程序提供的代码。prog.bas的代码：Subputdata(a()AsInteger,nAsInteger)Dim

sFileAsStringsFile=n\result.txt"OpenApp.Path&sFileForOutputAs#1Fori=1To

nPrint#1,a(i)：NextClose#1EndSub窗体代码：Dimi(lTo100)AsInteger

PrivateSubCindiClick()DimjAsIntegerj=0OpenApp.Path&"\in.txt"ForInputAs

#1Forj=ITo100,Input#1,i(?)Next'?#1Forj=1To100Text1.Text=

Textl.Text&i(j)&Space(5)NextEndSubPrivateSubCmd2_Click()DimtempAs

LongDimjAsIntegerTextl.Text=?Forj=1To50Textl.Text=Textl.Text&iQ&

Space(5)Nextputdatai,50EndSub参考代码：Dimi(lTo100)AsIntegerPrivate

SubCindi_Click()DimjAsIntegerj=0OpenApp.Path&"\in.txt"ForInputAs#1For

j=1To100Input#1,i(j)NextClose#1Forj=1To100Textl.Text=Textl.Text&i(j)

&Space(5)NextEndSubPrivateSubCmd2_Click()DimtempAsLongDimjAs

IntegerText1.Text=""Forj=1To50Text1.Text=Text1.Text&i(j)&Space(5)Next

puldalai,50EndSub第三步：调度并运行程序：第四步：按题目要求存盘：

知识点解析：暂无