VB机试模拟试卷12

VB机试模拟试卷第1套

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

1、（1）在名称为Forml的窗体上绘制一个文本框，其名称为Textl,然后通过“属性”

窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显

示垂直滚动条，显示的初始信息为“模拟考试”，显示的字体为四号、黑体；窗体的

•改曾文，口3,也为

模拟考i式~3

d

标题为“设置文本框属性”，如图33—1所示。图33-1注意：存

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

⑵在名称为Forml的窗体上绘制两个命令按钮，其名称分别为Commandl和

Command?,编写适当的事件过程。程序运行界面如图33—2所示，如果单击命令

按钮Commandl,则可使该按钮移到顶部；如果单击命令按钮Command2,则可使

该按钮在声度和宽度上各扩大到原来的2和3倍。程序的运行时的窗体界面如图

33—3所示。

■forml.101X1・Forml力凶

CocnmandZ

EB33-2图33*3

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

sj2.vbp,窗体文件名为sj2.frm©

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

中，名称为Text】、MultiLine属性为True、Text属性为“模拟考试"、ScroHBai■属性

为2、Font中字体为宋体，字型为黑体、大小为四号，设置完成后，单击按钮运行

程序，并按原文件名保存。（2）根据题意，新建“标准EXE”工程，将两个命令按钮

添加到窗体中,名称分别为Command］和Command2»Caption属性分别为

“Commandl"和"Command2"，双击Commandl进入代码窗口，编写如下代码：

PrivateSubCommandl_Click（）Commandl.Top=0,CommandlW.®EndSubPrivate

SubCommand2_Click（）Command?.Width=Conimand2.Width*3,Command2的宽

度扩大3倍Command2.Height=Command2.Height*2'Command?的高度扩大2倍

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

知识点解析：暂无解析

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

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

在名为Porml的窗体上有一个命令按钮，其名称为Cmdl,标题为“输入”；还有一

个文本框，其名称为TextL初始内容为空白。程序运行后，单击“输入”命令按

钮，显示“输入”对话框。在对话框中输入某个月份的数值然后单击“确定，

按钮，即可在文本框中输出该月份所在的季节。例如输入8,将输出“8月份是秋

季”，如图13—3所示。

图13-3该程序

不完整，请补充完整。注意：去掉程序中的注释符把程序中的问号”?”改为正

确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文

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

sj4.frmo在名为Forml的窗体上有一个名称为Cmdl、标题为“计算”的命令按钮；

两个水平滚动条，名称分别为HS1和HS2,其Max属性均为100,Min属性均为

1；4个标签,名称分别为Labi、Lab2、Lab3和Lab4,标题分别为“运算数1”、“运

算数2”、“运算结果”和空白；此外，还有一个包含4个单选按钮的控件数组，名

为OplL标题分别为“+”、“一”、和“/"。程序运行后，移动两个滚动条中的滚

动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，

相应的计算结果将显示在Lab4中，程序运行时的窗体界面如图13—4所示。

图13」本程序不完整，请补充完整，并能正确运

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

正确运行，但不得修改程序的其他部分，也，不得修改控件的属性。最后用原名保

存工程文件和窗体文件。

标准答案：(1)①打开题目所给工程文件。②将注释语句改为：LoopUntiln>0

Andn<13、SelectCasen和SeleclCasem。③按要求保存文件即完成本题。⑵①

打开题目所给工程文件。②将注释语句改为：IfOptl(i).Value=TrueThenSelect

CaseoptLab4=Str(HSl.Value)&,'"&opt&Str(HS2.Value)&"="&Str(Result)③按要

求保存文件即完成本题。

知识点解析：暂无解析

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

3、打开考生文件夹下的sj5.vbpo在名称为Forml的窗体上建立一个名为Textl的

文本框和两个命令按钮，名称分别为commandl和Command?,命令按钮上分别显

示“读入”和“排序”。程序运行时，单击“读入”按钮，将in.txt文件中的50个数读

入，.单击“排序”则把数组a中的数值按照降序排列。请在有“?”号的地方填正确

内容，然后删除及代码前的所有注释符(即号L但不能修改其他部分。注

意：存盘时不得改变文件名和文件夹。

标准答案：根据题意.在窗体一卜添加一个Text捽件和两个Command捽件.Text的

名称为Textl、Text属性为空、MultiLine属性为True、ScrollBar属性为2,

Command的名称分别为Commandl和Command2>Caption属性分别为■读入''和

“排序双击Commandl命令按钮，编写如下代码：Dima(50)AsLong'全局变量

PrivateSubCommandlClick()Textl.Text=H"OpenApp.Path&"\in.txt"ForInput

As#l'打开"in.txt”文件DimiAsIntegerDimtempAsIntegerFori=lTo50Input#],

tempa6=temp'按顺序读入到数组中NextiFori=lTo50

Textl.Text=Texll.骂由+CStr(a⑴)+vbCrL『将数组中的数放人Texl中显示Nexti

Close#1EndSubPrivateSubCommand2_Click()DimiAsIntegerDimjAsInteger

DimkAsIntegerDimtempAsIntegerDimstrAsStringstr='n,Fori=lTo50'降序排

列temp=a(i)Forj=lToiIfa(j)str，在Textl中显示EndSub单击多按钮运行程序，

并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第2套

一、基本操作题(本题共7题，每题分，共7分0)

1、(1)在名称为Forml的窗体上建立一个名称为Commandl、标题为“输出”的命令

按钮，再建立一个名称为Textl的文本框，字体为四号、常规、黑体，编写适当的

事件过程，要求程序运行后，如果单击"输出''命令按钮，则在文本框上显示“模拟

考试”，如图31—1所示。程序中不能使用任何变量，直接显示字符串。注意：保

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

(2)在名称为Forml的窗体上画一个标签，名称为Labcll,边框属性为1；再画一个

命令按钮，名称为Commandl,标题为“最右端”，运行界面如图31—2所示。请编

写适当的事件过程，使运行界面在运行时，单击“最右端''按钮，则标签水平移动到

窗体的最右端。程序中不得使用任何变量。

|模拟考试~

图31-1图31-2注

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

sj2.fnrio

标准答案：⑴根据题意，新建“标准EXE”工程，将一个Text控件和一个Command

控件添加到窗体上。Text的名称为Texll,Text属性为空，Fonl属性为四号、常

规、黑体，Command的名称为Command】,Caption属性为“输出双击

Command1命令按钮,编写如下代码:PrivateSubCommandl_Click()Text).Text="

模拟考试"EndSub单击件按钮运行程序，并按要求保存。(2)根据题意，新建“标

准EXE”工程，将一个Label控件和一个Command控件添加到窗体上。Label的名

称为Labell、Caplion属性为空，BorderSlyle属性为1,Command的名称为

Commandl,C叩tion属性为“最右端"。双击Command1命令按钮，编写如下代码：

PrivateSubCommandl_Click()Label!.Left二Forml.Width-Labell.Width'将Label1

移动到最右端EndSub单击:宾'按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、(1)在窗体上建立一个名称为Labell的标签，然后建立两个主菜单，标题分别为

“命令”和“帮助”，名称分别为vbCommand和vbHelp,其中“命令”菜单包括

“Iteml“、"Item2”和三个子菜单，名称分另U为vbCommandl、vbCommand2和

vbCommand3o要求程序运行后，如果在“命令”菜单中选择“Iteml”，则在标签上显

示“第一项”；如果选择"tcrn2"，则在标签上显示“第2项”；而“Itcm3”不可用，程

序运行的效果如图52—3所示。注意：保存时必须存放在考生文件夹下，窗体文

件名为sj3.fmi,工程文件名为si3.vbpo(2)在考生文件夹下有工程文件

sj4.vbp,窗体文件sj4.fm,该程序是不完整的，请在有“?”的地方填人正确内

容，然后删除”'及代码前的所有注释符(即号)，但不能修改其他部分。修改后

的工程及窗体文件，均以原名保存在考生文件夹下。本题描述如下：在窗体上有

一个名为Tcxtl的文本框，有两个命令按钮，名称分别是Commandl和

Command2,标题分别是“读人数据”和“计算保存”，如图52—4所示。要求程序运

行后，单击“读人数据”按钮，弹出对话框，输入10个整数，将所有输入的数字保

存到数组a中，并在文本框内显示出来。随后“读人数据”按钮变为无效。单击“计

算保存”按钮，求出以数组a中的各元素的值为上限的所有数的和，例如，

a(2)=3,则令a(2)=l+2+3=6。把计算后的数组的总和写入考生文件夹下的文本文件

out4.txt中，最后“计算保存”按钮也变为无效。

■Forml,!□!x|

命令相助

第一项

图52-3■52-4注意：去掉

程序中的注释符把程序中的“?”改为适当的内容，使其正确运行，但不能修改

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

标准答案：(1)根据题意，新建“标准EXE”工程，VisualBasic中的菜单是通过菜单

编辑器来设计的。每个菜单项对应一个名称(不能重复)和标题；通过菜单编辑器上

的箭头可设计多重菜单；“有效”复选按钮用于设置该菜单项在程序运行时是否有

效。根据题意，选择“工具”一“菜单编辑器”命令打开菜单编辑器，添加以下菜单

标签名称内缩有效

命令vhCommand无是

ItemlvbCommandl一位是

Itcm2vbComniand2一位是

Item3vbCommand3一位否

帮助vbHelp无是

项:然后再添加一个Label

控件，名称为Labell、Caption属性为空。设置完成后在代码窗口中编写如下代

码：PrivateSubvbCommandl_Click()，选中ItemlLabelI.Caption="第一项"EndSub

PrivateSubvbCommand2click()，选中Item2Labell.Caption="第二项"EndSub单

击D按钮运行程序，并应要求保存。(2)根据题意，将两个Command控件添加到

窗体上，Command的名称分别为Command)和Command2,Caption属性分别为“读

人数据”和“计算保存"。双击Command控件进入代码窗口，编写如下代码：Dim

a(10)AsIntegerPrivateSubCommandlClick()DimiAsIntegerFori=lTo10'利用

For循环将10个数读入到数组中a(i尸通!(InputBox("请输入"))Nexti

Commandl_Enablcd=balseEndSubPrivateSubCommand2_Click()DimiAsInteger

DimjAsIntegerDimtotalAsLongDimtrapAsLongtotal=0Fori=ITo10tmp=0For

j=lToa(i)，对每个数都进行一个求与前面数和的操作tmp=tmp+jNextj

total=total+tmpNextiOpen^App.Path&\out4.txt'TorOutputAs#l'打开文件准备

写入Print#1,12®，将结果写入文件Close#1EndSub单击,?按钮运行程序，弃按

要求保存。

知识点解析：暂无解析

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

3、在窗体Forml上建立3个菜单(名称分别为vbRead、vbCalcvbSave,标题分

别为“读数”“计算”和“存盘”);然后绘制一个文本框(名称为Tcxtl,MultiLinc属性设

置为True,ScrollBars属性设置为2),如图61—5所示。

・f-ormt

i+M'祁盘

X«

57X“

87

249930

2763«5

909T8W42

"651

图61・5程序运行后，如果执行“读数”命令，则读人

in34.txt文件中的100个整数，放入一个数组中，数组的下界为1;如果执行“计

算“命令，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的

和，并把所求得的和在窗体上显示出来；如果执行，存盘”命令，则把所求得的和存

人考生文件夹下的。ut34.txt文件中。在考生文件夹下有一个工程文件sj5.vbp,

考生可以装入该文件。窗体文件sj5.frm中的ReadData过程可以把in34.ixt文件

中的100个整数读人AIT数组中；而writeData过程可以把指定的整数值写到考生

文件夹指定的文件中(整数值通过计算求得，文件名为。ut34.txt)。注意：考生不

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

名仍为sj5.frmo

标准答案：①打开题目所给工程文件。②执行“工具''菜单中的“菜单编辑器”命

令，打开菜单编辑器；在“标题”栏中输入“读数”，在“名称”栏中输入“vbRead”；单

击“下一个,,按钮，在“标题，，栏中输入“计算”，在“名称”栏中输入“vbCale”；单击

“下一个”按钮，在“标题”栏中输入“存盘”，在“名称”栏中输入“vbSave”。③单击工

具箱中的TexlBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名称

为Textl,Multiline属性设置为True,ScrollBars属性设置为2。④打开代码窗口

输入如下代码：PrivateSubvbCalc_Click()Tcxtl.Text=,M,Fori=lTol00If

Arr(i)Mod3=0ThenTextl.Text=Textl.Text&Arr(i)&Space(5)temp=lemp+Arr(i)

EndIfNcxtiPriiiiiempEndSubPiivatcSubvbRead_Click()ReadDataEndSubPrivate

SubvbSave_Click()WriteData"out.txt",tempEndSub按要求保存文件即完成本

题。

知识点解析：暂无解析

VB机试模拟试卷第3套

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

1、（1）在名称为Forml的窗体上添加一个名称为Framel、标题为“框架”的框架，在

框架内添加两个名称分别为Option】、Option2的单选按钮，其标题分别为“第一

项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中，框架

为不可用。运行程序后的窗体如图57—1所示。注意：存盘时必须存放在考生文件

夹下，工程文件名保存为sjl.vbp,窗体文件名保存为sjl.frm。（2）在名称为

Forml的窗体上添加一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列

表框，一个名称为Filel的文件列表框，名称为Label］、标题为“文件名”的标签和名

称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”，如图

57—2所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱

动器列表框中显示的内容发生变化时.目录列表框和文件列表框中显示的内容同时

发生变化。单击文件列表框时，将在Label2中显示选中的文件名。

图57-1图57-2注意：

要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文

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

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

个单选按钮控件，其中框架控件名称为FrameLC即tion属性为“框架"，Enabled属

性为False,单选按钮1的名称为Optionl,Caption属性为“第一项”，单选按钮2的

名称为0.otion2,Capdon属性为“第二项"，Value属性为True。单击;，冢按钮运

行程序，并按要求保存。（2）本题主要考查标签的Name、Caption属性，窗体的

Caption属性，驱动列表框的Name和Path属性，口录列表框的Name和Path属性

以及文件列表框的Name、Path和FileName属性。根据题意，新建“标准EXE”工

程，窗体Caption属性为“文件系统控件”，在窗体上添加驱动列表框名称为

Drivel,目录列表框名称为DirL文件列表框名称为FilcL标签1名称为Labcll、

Caption属性为“文件名”,标签2名称为Label2、Caption属性为空、BorderStyle属

性为1。双击进入代码窗口，编写如下代码：PrivateSubDirl_Change（）

Filel.Path二Dirl.PathEndSubPrivateSubDrivel_Change（）

Dirl.Path=Drivel.DriveEndSubPrivateSubFile!Click()Label2=Filel.FileName

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

知识点解析：暂无解析

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

2、（1）在窗体上画三个复选框,名称分别为chi、Ch2和ch3,标题分别为“体育”、

“音乐”和“美术”，还有一个命令按钮，名称为C1,标题为“显示”。要求程序运行

后，如果选中某个复:选框，当单击“显示”命令按钮时，则显示相应的信息。例如,

如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱

好是体育美术“，如图3-4所示。注意：保存时必须存放在考生文件夹下，窗体

文件名为sj3.frm,工程文件名为sj3.vbp。（2）在考生文件夹中有工程文件

sj4.vbp及窗体文件sj4.frm。在名为Forml的窗体上有一个标签数组，名为

Labi,该数组有4个控件元素，标题分别是“Wait、"Edit、“Aix”和“Move”,如图

3—5所不。

•Foval庭⑥

在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件

元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下

的箭头形状。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的

注释符（即…”号），把程序中的问号”?”改为正确的内容，使其实现上述功能，但不

得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

标准答案：（1）本题主要考查复选框的使用。单击命令按钮触发Click事件，程序中

需要检测复选按钮的状杰，可以通过Value属性来实现。如果复选按钮被选中，则

Value值为1,否则Value值为0。①在窗体上先按要求建立控件，设置控件属

性，程序中用到的控件及属性如下表所示：

对象属性设置值

复选按钮NameChi

复选按钮Caplion体育

复选按钮NameCh2

复选按钮Caption音乐

复选按钮NameCh3

复选按钮Caption美术

命令按钮Caption爱好

命令按钮NameCl

命令按钮Caption◎示

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

码如下：OptionExplicitPrivateSubclClick（）DimSAsStrings="我的爱好是"If

Chi.Value=lThens=s&Chl.CaptionEndIfIfCh2.Value=lThen

s=s&Ch2.CaptionEndIfIfCh3.Value=lThens=s&Ch3.CaptionEndIfPrintS

EndSub③调试并运行程序。④按题目要求存盘。（2）①打开题目所给工程文件。

②将注释语句改为：Formi.MousePointer=0SelectCaseIndex③按要求保存文件

即完成本题。

知识点解析：暂无解析

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

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

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

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

标题分别为“读入,•和“排列保存”，运行界面如图65—6所示。要求程序运行后，如

果单击“读入”按钮，则从in.txt文件中读入50个整数，放入一个数组中（数组下界

为1）；如果图65-6单击“排列保存”按钮，则对这50个数从大到小进

行排序，把排序后的全部数据在文本框Textl中显示出来，然后存人考生文件夹中

的result,txt文件中（在程序中的标准模块mode5.bas过程可以把指定个数的数组

元素存入resull.ixt文件)。注意：请在有“?”的地方填入正确内容，然后删除“?”及

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

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

sj5.vbp,排序结果存入result,ixt文件，否则没有成绩。

标准答案：在本题中涉及文件的操作，用Write#或Input#语句读取数据，对文件

操作完后一定要关闭文件。根据题意，将一个文本框控件和两个命令按钮添加到

窗体中，根据题意的要求设置属性，即文本框的名称为Textl、MukiLine属性为

true、ScrollBars属性为2,两个命令按钮的控件的Caption属性分别为“读取”和“排

列保存”，名称为Command］和Command2。在“工程”窗口中单击右键，在弹出的

快捷菜单中选择“添加”一“添加模块”，然后在弹出对话框的“现存”选项卡中选择

“mode5.bas”，单击“确定”按钮即添加成功。模块的代码如下：Function

writcData(totalASLong)OpenApp.Path&.H\result.txt"ForAppendAs#l

Write#I,totalC1ose#IEndFunction分析程序可知,程序在读取的同时就进行了排

序，一旦读取的数比当前数大，则将两数位置交换，继续比较后面的数。补充后的

具体代码如下：Dimstr(50)AsString'全局变量Dima(50)AsLong'全局变量Private

SubCommandlClick()Textl.Text=""OpenApp.Path&M\in.txt"ForInputAs#l

DimiAsIntegerFori=0To49Input#1,a(i)NextiFori=0TO49str(i)=a(i)

Textl.Tcxt=Tcxtl.Tcxt+str(i)+vbCrLfNextiClose#!EndSubPrivateSub

Cominand2_Click()DimiAsIntegerDimjAsIntegerDimtempAsIntegerDimkAs

IntegerTextl.Text=""Fori=0To49temp=a(i)Fori=0TOiIfa(j)<tempThenFork=i

Toj+1Step-1a(k)=a(k-l)Nextka(j)=tempExitForEndIfNextjNextiFori=0TO49

str(i)=a(i)Textl.Tcxt=Textl.Text+str(i)+vbCrLfwritcData(str(i))NextiEndSub单

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

知识点解析：暂无解析

VB机试模拟试卷第4套

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

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

为“操作”，名称为Op,该菜单有两个子菜单，其标题分别为“显示''和“隐藏”，名

称分别为Dis和Hid,编写适当的事件过程。程序运行后，如果单击“操作”菜单中

的“显示”命令，则在文本框中显示“计算机考试”；如果单击“隐藏”命令，则隐藏文

本框。程序的运行情况如图47—1和图47—2所示，

图47-1图47-2

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

sjl.vbpo(2)在名为Forml的窗体上绘制一个标签，名为Labi,标题为“请输入一

个摄氏温度”；绘制两个文本框，名称分别为Texll和Texl2,内容设为空；再绘制

一个名为Cmdl的命令按钮，其标题为“华氏温度等于“。编写适当的程序，使得单

击“华氏温度等于“按钮时，将Tcxtl中输入的摄氏温度(c)转换成为华氏温度⑴，转

换公式为：f=c*9/5+32,并显示在Texl2中。程序运行结果如图47—3所示。

图47-3注意：程序中不得使用任何变量；文件必须

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

标准答案：(1)本题主要考查菜单的使用。菜单在“菜单编辑器”中创建；在程序运

行时控件是否可见由该控件的Visible属性决定，如果将该属性设置为True时，则

对象可见；如果设置为False,则隐藏该控件。①建立界面并设置控件属性。程序

中用到的控件及其属性见下表：

控件属性设置值

菜单NameOp

菜单Caption操作

菜单NameDis

菜单Caption显示

菜单NameHid

菜单Caption由藏

文本框NameTextl

文本枢Text

②编写程序代码。参考代码如下：PrivateSubDisClick()TextI.Text=”计算机考试

"EndSubPrivateSubHidClick（）Text）.Visible二FalseEndSub③调试并运行程序。

④按题目要求存盘。（2）①新建一个名为Fonnl的窗体。②单击工具箱中的Label

控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为Labi、Caption属

性为“请输入一个摄氏温度③单击工具箱中的CommandButton控件图标，在窗

体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl、Caption为

“华氏温度等于“。④单击工具箱中的TkxtBox控件图标，在窗体上拖拉出两个文

本框，在属性窗口将文本框的名称分别设置为Texil和Text2、Texl属性设置为

空。⑤打开代码窗口输入如下代码：PrivateSubCmdl_Click（）DimcAsSingle,f

AsSinglec=Val（Tcxtl.Text）f=c*9/5+32tcxt2.Text=CStr（f）EndSub⑥按要求保

存文件即完成本题。

知识点解析：暂无解析

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

2、（1）在考生文件夹下有工程文件sj3.vbp与窗体文件sj3.frm,该程序和窗体是

不完整的。请在窗体上设置一个标签，名称为Labcll,标题为“计算1/2-1/3+1/

4-1/5+1/6的值”；另设一个文本框与一个命令按钮。命令按钮的名称为

Command]、标题为“计算”；文本框的名称为Text].用于显示结果.并初始化为

空。然后编写相应的代码，要求运行程序时，单击“计算”按钮，程序可以计算出1

/2-1/3+1/4-1/5+1/6的值，并将结果显示在文本框中，如图26—3所示。注

意：考生完成程序编写后，将工程文件与窗体文件按原文件名保存到考生文件夹

下，不得更改程序的其他部分，否则可能无成绩。（2）新建一个工程文件，在名称

为Forml的窗体上建立两个名称分别为Commandl和Command2标题分别为“平

均分”和“清空”的命令按钮；一个名为Textl的文本框。要求程序运行后，单击“平

均分''按钮，可通过输入对话框输入7个整数，去掠最大的和最小的然后求平均

分，将结：果在文本框中显示出来。如果单击“清空”按钮，则将文本框清空。在程

序中不得使用任何其他变量。程序运行时的窗体界面如图26—4所示。

•Forml」口1刈

图26-3图26-4注意：，‘呆存

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

标准答案：（1）根据题意，将一个Label控件，一个Text控件和一个Command控件

添加到窗体上，Label的Caption属性为“计算1/2-I/3+1/4-1/5+1/6的值、'，

Text的名称分别为Textl,Texl属性为空，Command的名称为Commandl,Caption

属性为“计算”。双击Commandl命令按钮，编写如下代码：PrivateSub

Commandl_Click()DimtotalASDoubleDimnAsIntegerDimaAsIntegertotal=0a=-

1Fori=lTo5a=a*(-l)total=total+a/(i+1)NextiTextl.Text=total

Open"App.Path&\out3.txt"ForOutputAs#lPnt#l,Textl.TextClose1EndSub

单击,‘按钮运行程序，并按要求保存。(2)根据题意，新建“标准EXE”工程，在窗

体上添加一个Text控件和两个Command控件，Text的名称为Textl>Text属性为

空，Command的名称分别为Commandl和Command2,Caption属性分别为“平均

分”和“清空”。双击Commandl命令按钮，编写如下代码：Dima(7)AsInteger

PrivateSubCommandlClick()DimiAsIntegerFori=lTo7a(i)=Val(InputBox("i^^

入第”+CStr(i)+"个得分"))NextiFori=lTo7'降序排列temp=a(i)Forj=lToiIfa(j)

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

知识点解析：暂无解析

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

3、在窗体上绘制两个命令按钮，名称分别为Commandl和Command2,标题分别

为“输人”和“调换”，两个标签，名称为Labell和Label2、Caption属性为“调换

前：”和“调换后：”，两个名称分别为Textl和Text2的文本框控件。请编写适当的

事件过程，从键盘上输入10个整数，并放人一个一维数组中，然后将其前5个元

素与后5个元素对换，即第一个元素与第10个元素互换，第2个元素与第9个元

素互换第5个元素与第6个元素互换。使得在运行时单击“调换”按钮，则分别在

Textl和Text2中输出数组原来的各元素的值和对换后各元素的值，如图23—5所

示。图23・5注意：去掉程序中的注释符“，，把程序中的2”改

为正确的内容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盘。

标准答案：要对数据进行对调，也就是数据交换，一般要借助中间变量，如本题

的tmp。本题首先通过InpulBox函数输入10个数，然后通过For循环，每次循环

调换一组数。补充后的代码如下：Dima(10)AsIntegerPrivateSubCommandl

Click()DimiAsIntegerDimstrAsStringstr=""Fori=lTo10a(i)=Val(InputBox("iW

输入数字"))'通过对话框输入10个数，并放人数字中str=str+CStr(a⑴)，将数组

放入字符串中保存NextiTextl.Text=str'在Textl中显示结果EndSubPrivateSub

Command?Click()DimtmpAsIntegerDimiAsIntegerDimstrAsStringstr=""For

1=1To5tmp=a(i)，进行对调,先将a(i)的数据放入imp中a[i)=a(10-i+l)'将a(10-i)

的数据放人a⑴中a（10・i+l）=lmp'将tmp的数据放人a（10・i）中NextiFori=1To10

str=str+CStr（a⑴）NextiText2.Text=str'将结果在Text2中显示出来EndSub单

击;浜牧钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第5套

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

1、在Forml的窗体上建立一个二级下拉菜单。第一级共有二个菜单项，名称分别

为Operation、Help,标题分别为“操作”、“帮助”；在“操作”菜单下有第二级菜单，

含有两个菜单项，名称分别为Msg、MyExit,标题分别为“显示消息”、“退出飞如

图1—1所示）。程序运行后，单击“显示消息”菜单时，弹出一个消息框，其中的消

息为“计算机等级考试”（如图1—2所示）；单击“退出”则结束应用程序。

图1-赃］图1-2注

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

sjtl.frmo2.在窗体上画两个单选按钮（名称分别为Opl和Op2,标题分别为“本科

生”和“研究生”）和一个文本框（名称为T1）,然后编写适当的代码。程序运行后，如

果选择“本科生”单选按钮，则在文本框中显示“我是本科生”；如果选择“研究生”单

选按钮，则在文本框中显示“我是研究生程序的运行情况如图1—3和图1T所

示。存盘时，工程文件名为sjt2.vbp,窗体文件名为sjt2.frmo

图】一3图14

标准答案：①建立界面和设置对象属性。程序用到的控件及其属性如下表I所

表1

控件属性设置值

名称Operation

菜单

标题“操作”

名称Help

菜单

标题“帮助”

名称Msg

菜单标题“显示消息”

为缩符号1

名称MyExit

菜单标题“退出”

々缩符号1

②编写程序代码PrivateSub

Msg_Click（）MsgBox"计算机等级考试"EndSubPrivateSub

MyExit_Click（）EndEndSub③按题目要求存盘。2.①启动

VisualBasic,在窗体上画一个文本框和两个单选按钮。②在属性窗口中设置

表2

控件属性设置值

文本框告称ri

名称Opl

单选按钮

Caption本科生

名称0p2

单选按钮

Caption研究生

D1jX1।0J/r*MIJLIFL9/L,"/。③编写第1

个单选按钮的Click事件过程:PrivateSubOpl_Click()Text1.Text="我是本科生”

EndSub④编写第2个单选按钮的Click事件过程：PrivateSubOp2_Click（）

Textl.Text="我是研究生"EndSub

知识点解析：暂无解析

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

2、1.在名称窗体为Fonnl,KeyPreview属性为True的窗体上有一个列表框（名称

为Listl）和一个文本框（名称为Textl）,如图2—1所示。编写窗体的KeyDown事件

过程。程序运行后，如果按键，则从键盘上输入要添加到列表框中的项目（内容

任意，不少于三个）：如果按键，则从键盘上输入要删除的项目，将其从列表框

中删除。程序的运行情况如图2—2所示。在考生文件夹下有一个工程文件

sit3.vbp（相应的窗体文件名为sjt3.frm）,可以实现上述功能。但这个程序不完整，

请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为适当的内容.使

其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盘。2.在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在

窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出

0〜1000范围内不能被?整除的整数的个数，并在文本框中显示出来。在窗体的代

码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用

过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任伺内容，只

在FunctionFun()和EndFunction之间填入你编写的若干语句。最后把修改后的文

件按原文件名存盘。图2—2

标准答案：①解析：判断按键可以在窗体的KeyDown事件下用Chr函数将按键代

码转换成字符与给定字符进行比较。②使用Addhem方法向列表框中添加列表项

目，使用Removeitem方法从列表框中删除列表项目。程序中用到了InputBox。，

其格式为：InputBox(prompU,title]]default][,xpos][,ypos][,helpfile,context])

prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信

息，用来提示用户输入。出le：字符串，它是对话框的标题，显示在对话框顶部的

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

个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos),它

们的单位为twip。helpfile,context：helpfile是一个字符串变量或字符串表达式，

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

主题的帮助目录号。③解题步骤：第一步：建立界面并设置控件属性。程序中用

到的控件及其属性见表3。表3控件属性设置值Form1KeyPreviewTrueListbox

NameList1文本框NameTextI第二步：编写程序代码。程序提供的代码：Private

SubPoim_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If

Chr(KeyCode)="A"ThenTextl.Text=InputBox("请输入要添加的项目”)，

List1.Additem?EndIfIfChr(KeyCodc)="D"ThenTextlAext=InputBox("请输入要删

除的项目")'Fori=0To?*IfListl.List(i)=?Then,Listl.Removeitem?EndIfNexti

EndIfEndSub参考代码：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAs

Integer)IfChr(KeyCode)="A"ThenTextl.Text=InputBox("请输入要添加的项目")

Listl.AdditemTextlEndIfIfChr(KeyCode)="D"ThenTextl.Text=InputBox("请输入

要删除的项目“)Fori=0ToList1.ListCount—1IfListl.List(i)=Form1.TextlThen

Listl.Removeitem⑴EndIfNextiEndIfEndSub第三步：调试并运行程序。第四

步：按题目要求存盘。2.①程序中用到的Mod是取模的运算符，如：NMod7

=0则说明余数为0,N能被7整除，否则N不能被7整除：程序中的变量num统

计的不能被7整除的个数，当IMod70时，num则加1,表示当前有一个不可以被

7整除的数；题目要求文本框里显示不能被7整除的数的个数，而num保留的是要

求的结果，所以赋给文本框的值是num(Text1.Text=num)o②解题步骤：第一

步：编写程序代码。程序提供的代码：SubSaveData()OpenApp.Path&&

"outtxt.txt"ForOutputAs#1Print#l,Textl.TextClose#IEndSubFunctionFun()End

FunctionPriv