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

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

（共26题）

VB机试模拟试卷第1套

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

1、（1）在名称为Forml的窗体上建立一个名称为Oplionl的单选按钮数组，含八个

单选按钮,它们的标题依次为“Iteml"、“Item2"、“Item3”和其下标分别为

0、1、2和3,程序运行时，为选中状态，如图48—1所示。注意：存盘时

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

窗体上建立一个二级菜单，笫一级含两个菜单项，标题分别为“文件”和"帮助”，名

称分别为file和help。其中“文件”菜单含有四个子菜单，其标题依次为“打开”、“保

存”、"另存为''和"关闭”，名称分别为。pen、save,saveas和close,窗体运行界面

--tOlxj

「i<«i

fg

rn

如图48—2所示。图;3】鼎；、二注意：存盘时必须

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

标准答案：（1）建立控件数组有多种方法，考生可以选择任何一种来建立单选按钮

数组。Value属性用来设置单选按钮的状态，它的值可以是True或False,当设置

为True时，该单选按钮为选中，否则没有选中。杈据题意，新建“标准EXE”工

程，将4个单选按钮控件添加到窗体中，其名称都为OptioM、Index属性分别为

0、。2、3、Caption属性分别为“Iteml"、'Ttem2'2"Item3”和其中Item3

的Value值为True,设置完成，单击》:按钮运行程序，并按要求保存。（2）根据题

意,新建“标准EXE”工程，选择“工具“菜单编辑器”命令，或按“Ctrl+E”组合

键，或单击窗体空白处，在弹出的快捷菜单中选择“菜单编辑器“命令，打.开”菜单

编辑器”对话框，在其中添加以卜菜单项：

标签名称内缩

文件File无

打开Open一位

保存Save一位

另存为SaveAs一位

关闭Close一位

得助Help无

单击“确定”按钮，设置完成，单击

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

知识点解析：暂无解析

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

2、（1）在名称为Forml的窗体上添加一个名称为Labell、标题为“添加项目:”的标

签；添加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的

下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意）；再添加两

个命令按钮，名称分别为Command】、Command2,其标题分别为“添加”、“统

计”。在程序运行时，向Textl中输入字符,单击“添加”按钮后,则将Textl中的内

容作为一个列表项被添加到组合框的列表中；单击“统计''按钮，则在窗体空白处显

示组合框中列表项的个数，如图9—3所示。请编写两个命令按钮的Click事件过

程。注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生

文件夹下，工程文件名保存为sj3.vbp,窗体文件名保存为sj3.frmo（2）在考生

文件夹下有一个工程文件sj4.vbp,其窗体如图9-4所示。该程序用来对在上面

的文本框中输入的英文字母串（称为“明文''）加密，加密结果（称为“密文''）显示在下

面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中

的单选按钮后面的数字n,将“明文”中的每个字母改为它后面的第n个字母（2后

面的字母认为是“a”，“Z”后面的字母认为是"A"），如图9T所示。窗体中已经给

出了所有控件和程序，但程序不完整，请去掉程序中的注释符（即“巧，把程序中的

改为正确的内容。图9-3图9-4注

意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存

盘。

标准答案：(1)本题主要考查命令按钮的Caption和Name属性，下拉式组合框的

CaptionxName、List和ListCount属性，文本框的Text和Name属性，标签的

Caption和Name属性，下拉式组合框的Additem方法以及窗体的Print方法。根据

题意，新建“标准EXE”工程，将一个标签控件、文本框控件、下拉式组合框控

件、2个命令按钮控件添加到窗体中，其中标签控件Caption属性为“添加项

目：”，文木框控件名称为Textl,Text属性为空，下拉式组合框控件名称为

Combol,List属性为“中国古巴英国”，命令按钮控件的名称分别为Command1和

Command?,Caption属性分别为“添加”和“统计”。双击进入代码窗口，编写如下

代码：PrivateSubCommandlClick()Combo1.AddltcmTcxtlEndSubPrivateSub

Command2_Click()PrintCombo1.ListCountEndSub单击学按钮运行程序，并按

要求保存。(2)根据题意，打开本题工程文件，打开代码编辑窗13,去掉程序中的

注释符将问号改为正确的内容，编写如下代码：PrivateSub

Commandl_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,a

AsStringFork=0To2IfOpl(k).ValueThenn=Val(Opl(k).Caption)EndIfNextk

m=Len(Textl.Text)a=H"Fork=lTomc=Mid$(Textl.Text,k,1)c=String(l,

Asc(c)+n)Ifc>"z"Orc>"Z"Andc<na"ThcnC=String(l,Asc(c)-26)EndIfa=a+cNext

kTcxt2.Text：aEndSub单击袋按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,另有两个图片，名

称为笑脸与哭脸。窗体及其控件属性都设置完毕，但缺少程序代码，要求考生编写

适当的代码，以实现下面描述的功能。存盘时不得改变文件名和文件夹。本题描

述如下：在名称为Forml的窗本上有两个命令按钮，两个文本框与两个图片框。其

中图片框控件的AutoSize属性为True,名称分别为Piel与Pic2；两个命令按钮的

名称分别为Commandl与Command2,标题分别为“加I1”与“减1”；两个文本框名

称分别为Textl和Text2,Textl的Text属性为“李明”，Texl2的Text属性为“0”。程

序运行时,“减1”按钮不可用，单击“加1”按钮,Text2内的计数加L“减1”按钮变

为可用,同时图片框中显示笑脸图片。单击“减1”按钮，Text2内的计数减1,当计

数减到0时，Command2不可用，同时图片框中显示哭脸图片。程序运行时的窗体

界面如图14—5所示。图】「注意：考生不得修改程序控件及控件的属

性，最后应把修改的文件按原文件名存盘。

拉式组合框中有两行：“文本文件”、“所有文件”（如图13-1所示），默认的类型是

“所有文件”。③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对

话框。注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放

在考生文件夹中，工程文件名为sjl.vbp,窗体文件名为sjl.frm。（2）在名为

Forml的窗体上绘制两个命令按钮，其名称分别为Cmdl和Cmd2。编写适当的事

件过程，使程序运行后，若单击命令按钮Cmdl,则可使该按钮移到窗体的左上角

（只允许通过修改属性的方式实现）；如果单击命令按钮Cmd2,则可使该按钮在长

度和宽度上各扩大到原来的3倍。程序的运行时的窗体界面如图13—2所示。注

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

窗体文件名为sj2.frm。

■13-2

标准答案：⑴①新建一个名为Forml的窗体。②选择“工程”菜单中的“部件”选

项，弹出“部件”对话框或在“工具箱”上单击右键选择弹出菜单中的“部件"选项,.弹

出”部件对话框”，在对话框的“部件”列表中选择

4lMicroSoftCommonDialogControl6.0”项目，使它前边的方框为选中。③在窗体上

添加一个通用对话框CDI,并将其DialogTitle属性设置为“打开文件”，其Filler•属

性设置为文本文件I*.txt|,所有文件I*.其Filterlndex属性设置为2。④再添

加一个命令按钮名称为Cmdl,Caption为“打开文件”；PrivateSub

Commandl_CIick（）CD1.ShowOpenEndSub⑤最后按照题H要求保存文件即可。

（2）①新建一个名为Forml的窗体。②单击工具箱中的CommandButton控件图

标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为Cmdl

和Cmd2,Caption分别为Cmdl和Cmd2。③打开代码窗口输入如下代码：Private

SubCmdl_Click（）Cmdl.Lc仕=0'将命令按钮放在最左方Cmdl.Top=（T将命令按钮

放在最上方EndSubPrivateSubCmd2_Click（）Cmd2.Height=Cmd2.Height*3'将

Cmd2的高变为3倍Cmd2.Width=Cmd2.Width*3,将Cmd2的宽变为3倍End

Sub④按要求保存文件即完成本题。

知识点解析：暂无解析

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

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

请装入该文件.在窗体上画一个列表框和一个文本框，名称分别为Listl和Textl。

编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将

该项添加到列表框中(内容任意，不少于3个)，如图17—3所示；如果双击Listl的

某一项则将其从列表框中删除，如图17—4所示。提供的窗体文件可以实现上述功

能，但这个程序不完整，请把它补充完整。

1"门出心与

®7图注意：去掉程序中的注

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

他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文

件sj4.vbp,窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数

n；单击“计算”按钮.见计算1!+2!+3!…+n!的值，并将计算结果显示在文本框

中；单击“存盘”按钮，则把文本框中的结果保存到考生文件夹下的。ut4.dat文件

中。程序运行时的窗体界面如图17—5所示。文件中已经给出了所有控件和程

序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编

写''计算”按钮的Click事件过程。»«■注意：不得修改已

经存在的内容和控件属性，在结束程序运行之前，必须用,,存盘”按钮存储计算结

果，否则无成绩。最后将修改后的文件按原文件名存盘。

标准答案：⑴根据题意，将一个ListBox控件和一个Text控件添加到窗体上，

ListBox的名称为Listl,Text的名称为Texil,Text属性为空。双击Listl进入代码

窗口，编写如下代码：PrivateSubListl_DblClick()

Listl.Rcmovchcm(Listl.Listindex)'双击删除选中项EndSubPrivateSub

TextlDblClick。'双击Text调用的函数IfText!.TextO""ThenListl.Addhem

Textl.Text'当Textl中有内容则添加到Listl中EndIfEndSub单击>按钮运行程

序，并按要求保存。⑵本题主要考查Val()函数、InputBox。函数、MsgBox。函

数、命令按钮的Enabled属性以及文件操作。根据题意，编写如下代码：DimnAs

IntegerPrivateSubCommandl_Click()n二Val(InpulBox("请输入整数(8—12)","输入

"))Ifn>12Orn<8ThenMsgBox("数据错误，请重新输入”)

Command?.Enablcd=FalscCommand3.Enablcd=FalscElse

Command?.Enabled=TrueCommands.Enabled=TrueEndIfEndSubPrivateSub

Command2_Click()DimSAsLong,kAsInieger考生应编写的程序s=0Fork=lTo

ns=s+f(k)NextTextl=SEndSubFunctionf(nAsInteger)AsLongs=lFork=2Ton

s=s*kNextf=sEndFunctionPrivateSubCommand3_Click()OpenApp.Path&"\

out4.dat"ForOutputAs#lPrint#l,n,TextlClose#lEndSub单击承可妥钮运行程

序，并按要求保存。

知识点解析：暂无解析

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

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

的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为

Commandl,标题为“移动”；水平滚动条的名称为HScrolll。单击“移动”按钮后，

在弹出的对话框中输入数值。输入一个整数后，单击“移动”，滚动条中的滚动块移

动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示

“输入的数值太大”，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示

3为

EZZJi

“输入的数值太小”，如图1一5所示。图注意：请

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

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

标准答案：本题主要考查滚动条的属性和IF语句的使用。滚动条常用于取代数据

的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的

Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的

取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置"

InpulBox。函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认

为字符串类型。在代码窗口编写如下代码：PrivateSubCommandl_Click（）Dima

AsIntegera=Val（InputBox（"请输入数值"））’通过输入对话框输入数值If

a>HScrolll.MaxThen，如果数值大于滚动条的最大，直CisPrint”输入的数值太大”，

在窗件上显示“输人的数值太大"ElselfaValue=a'如果在范围内，则将滚动条移动

指定的距离EndIfEndSub单击;羯工按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第3套

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

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

名称为Forml的窗体上创建两个名称分别为Optionl和Option2,标签分别为“教授”

和“研究员”的单选按钮，再建立一个名称为Labcll的标签，实现如下功能：当选中

“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士

学位以上”，结果如图7—1所示。注意：存盘时必须存放在考生文件夹下，工程

文件名为sjl.vbp,窗体文件名为sjl.frm。（2）在名称为Forml的窗体上画两个

名称分别为Textl和Te.xt2、内容都为空的文本框，再画一个命令按钮，其名称为

Command]、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在

Textl中输入一个数，单击命令按钮Commandl,判断输入的是否为偶数，如图

7—2所示。要求：不得使用任何变量。

・Form!BL皿为

博士学仪以上BSMBHK-io»«

G❾授冏丽

r那t办[

图77图7-2注意：存盘时必须存放在考

牛文件夹下，工程文件幺为*j2.vbp»窗体文件名为sj2.firn。

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

个Option控件，设置Labell的名称为Labell、Caption属性为空,Option的名称分

别为Oplionl和Option2、Caption属性分别为“教授”和“研究员”。设计完成后，进

入代码窗口编写如下代码：PrivateSubForm_Load（）Optionl.Value=True’初始

化,使运行时Optionl为选择状态Labell.Caption="博士学位以上"'在Labell中显

示"博士学位以上"EndSubPrivateSubOptionl_Click（）Labell.Caplion=”博士学位以

JtHEndSubPrivateSubOption2_Click（）Label1.Caption="硕士学位以上"EndSub

单击W按钮运行程序，并按要求保存。⑵根据题意.新建“标准EXE”工程，在窗

休卜添加两个Text捽件和一个Command捽件.Text的名称分别为Textl和

Text2>Text属性均为空,Command的名称为Command1>Caption属性为"判断

双击Commandl命令按钮，编写如下代码：PrivateSubCommandl_Click（）If

Val（Textl.Text）Mod2=0ThenText2.Text二”是偶数"ElseText2.Text="不是偶数”

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

知识点解析：暂无解析

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

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

的。在窗体上有一个标签数组，名称为Labell,该数组有4个控件元素，标题分别

是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在

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

所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。注意：请

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

能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文

件sj4.vbp,窗体文件sj4.fim,该程序是不完整的。在窗体上有一个名为Textl

的文本框，有两个命令按钮，名称分别是Command1和Command2、标题分别是

“读人数据”和“计算保存”，如图63—4所示。要求程序运行后，单击Command1按

钮，将文本文件in4.txt中的所有数字读到数组a中，并在文本框内显示出来。随

后Command1按钮变为无效。然后单击Command2按钮，求出数组a中的各元素的

立方并赋值回相应的元素，例如，a(l)=2,则新a⑴=a(l)*a(l)*a(l)=8。把计算后的

数组的值全部写入考生文件夹下的文本文件。ut4.txt中，并在文本框中显示出

来，最后Command2按钮也变为无效。

•Feral3凶•，・r«l

『序运行

计算保存I

图63-3图63-4

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

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

夹下。

标准答案：(1)本题主要考查控件数组的创建及属性设置。控件数组是由一组相同

类型的控件组成，建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)。

鼠标的形状由其MousePointer属性设置，该属性值为3时对应文本编辑时的鼠标

形状、为11时对应程序运行时的鼠标形状、为5时对应移动窗体时的鼠标形状、

为7时对应双向箭头的鼠标形状。根据题意，在窗体中添加一个含有4个控件数组

的标签控件，将其Caption属性分别设置为“文本编辑”、“程序运行”、“移动窗体”

和“双向箭头”，并编写如下代码：PrivateSubForrri_MouseMove(ButtonAs

Integer,ShiftAsInteger,XAsSingle,YAsSingle)Form!.MousePointer=0End

SubPrivateSubLabell_MouseMove(IndexAsInteger.ButtonAsInteger,ShiftAs

Integer,XAsSingle,YAsSingle)SelectCaseIndexCase0Forml.MousePoint2r=3

CaseIForml.MouscPointer=l1Case2Forml.MouscPointer=5Case3

Forml.MouscPointer=7EndSelectEndSub单击热按钮运行程序，并按要求保

存。(2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名

称为Textl,命令按钮的名称分别为Commandl和Command2,Caption属性分别为

“读人数据”和“计算保存”，由于不知道读取数据的个数，所以要用到动态数组，动

态数组的用法如下：Dima()asLongReDima(n)asLong具体代码如下：Dimlemp

AsLongDimnumAsIntegerDima()AsLongDimiAsIntegerDimstrAsStringDim

tnipAsStringPrivateSubCommandl_Click()num=0str=""Open"App.Path&\

in4.txtHForInputAs#「打开文件WhileEOF⑴=Fake'EOF判断是否读到文件末尾

Input#1,temp，如果没读到文件末尾则继续读取num=num+l，计数加1,以确定要分

配的数组个数WendClose#1ReDima(num)AsLongOpcn"App.Pathl&\

in4.txl"ForInpulAs#2'打开文件Fori=lTonum'利用For循环读取数据Input#2,

a(i)，读取数据tmp=4)，将数值赋给字符串str=str+tmp+“”，写入字符串，显示在

Textl里面NextiClose#2Textl.Text=str'将Text里显示字符串EndSubPrivateSub

Command2click()si”Fori=lTonum'利用for循环进行计算a(i)=a(i)*a(i)*a(i)1

计算立方NextiOpen"App.Path&\out4.txt"ForAppendAs#3'打开文件Fori=l

Tonum'利用循环写入文件Print#3,a(i)tmp=a(i)str=str+trap+,'"NextiClosc#3

Textl.Text=strEndSub单击热•按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sj5.Vbp,在Forml的窗体中画一个标签，3

个命令按钮和一个计时器。要求程序运行时，单击“开始计数”按钮，就开始计数,

每隔1秒，标签中的数加」.单击“暂停计数”按钮，则停止计数；单击“停止计数，

按钮，则标签中的计数变为0。程序运行时的窗体界面如图12—5所示。

■Forml

7

开出十数

图12-5注意：修改适当的控件属性，并去掉程序

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

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

标准答案：根据题意，将一个标签，一个计时控件和3个命令按钮添加到窗体中，

标签的名称为Labell,Caption属性为0,Timer的名称为TimerI,命令按钮的属性

分别为Command1>Command2和Commands,Caption属性分别为“开始计数”“暂

停计数”和"停止计数"。双击Commandl进入代码窗口，编写如下代码：Private

SubCommandlClick()TimerI.Interval=1000'按开始按键，将把Timeri的间隔设

为1秒EndSubPrivateSubCommand?Click()Timer］.Inlerval=0'按停止按键,将

把Timer1的间隔设为0EndSubPrivateSubCommand3_Click()Timerl.Interval=O'

按停止按键，将把Timerl的间隔设为0Labell.CaDtion="0"'将Labell初始化为0

EndSubPrivateSubTimerl_Timer()Labell.Caption=Val(Labell.Caption)+1'每过一

个周期，Labell的数字和1EndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第4套

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

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

Forml的窗体上画一个名称为Tcxtl的文本框，然后建立一个主菜单，标题为“操

作”，名称为op,该菜单有两个子菜单，其标题分别为“显示''和"退出”，其名称分

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

“显示”命令，则在文本框中显示“等级考试”；如果单击“退出”命令，则结束程序运

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

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

•Fora1二百X

图1-201图i-202Q）在Forml的窗体上画一个列表

框，名称为L1,通过属性窗口向列表框中添加四个项目，分别为“AAAA”、

“BBBB”、"CCCC”和“DDDD”，编写适当的事件过程。程序运行后，如果单击列表

枢中的某•项，则该项就从列表框中消失。程序的运行情况如图1-202所示。注

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

sjt2.frmo

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

Forml中画一个名为Textl的文本框。步骤2：选择【工具】一【菜单编辑器】命

令，打开菜单设计器，如表2・116中的设置建立菜单项。

«2-116

标0名称内缩符号

操作Op0

显示Dis1

退出Exit1步骤3：打开代码编辑窗口，编写“显

示”和“退出”菜单命令的单击事件过程。参考代码：PrivateSubDis_Click（）

Tcxtl.Text=”等级考试"EndSubPriVatcSubExit_Click（）EndEndSub步骤4：按要

求将文件保存至考生文件夹中。第2小题【操宿步骤】步骤I：新建一个“标准

EXE”工程，在窗体Fonnl中加入一个列表框，在属性设置窗口中将其Name属性

设置为L1,在其List属性中添加四个项目，依次为“AAAA”、“BBBB”、“CCCC”

和“DDDD”。注意：每输入完一项后按键换行再输入下一项。步骤2：打开代码编

辑窗口，编写列表框的Click事件过程：参考代码：PrivateSubLl_Cllck（）

LI.RcmovcltcmL1.ListindexEndSub步骤3：按要求将文件保存至考生文件夹

中。

知识点解析：第1小题菜单中所包含的每一个菜单项都可看成是一个命令按钮，

程序运行时，选择某菜单项将触发其Click事件。要实现本题中的功能，应在“显

示''菜单项的Click事件过程中，为文本框的Texl属性赋值为“等级考试”，在“退

出''菜单项的Click事件过程中，结束程序的运行。第2小题列表框控件（ListBox）

用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通

过其Lisi属性设置加入，也可在程序运行时使用Addkem方法加入。在程序运行时

删除列表框中的项目可以使用Removeitem方法，其语法为：列表框.RemoveRem

索引值。其中，"索引值''可以指定插入项在列表框中的位置，从。开始计数。单

击列表框中的某个项目，将触发其Click事件。要实现单击列表框中的某一项，该

项就从列表中消失的功能，只需在Click事件过程中编写删除项目的语句即可。列

表框的Listindex属性可返回当前选择的项目的索引号，因此删除选中项目的语句

为：LI.RemoveitemLI.Listindexo

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

2、⑴在考生文件夹下有一个工程文件sjt3.vbp,其功能是：①单击“读数据”按

钮，则把考生文件夹下in3.dat文件中的0〜999之间的100个整数读入数组a

中；②单击“计算”按钮，则找出这100个整数中厅有水仙花数，并将它们的最大

值与最小值分别显示在文本框Text】、Text2中。（注：当一个数的值等于该数中的

各位数字的立方和时，此数被成为水仙花数，如153=13+53+33,所以153就是一

个水仙花数。）在窗体文件中已经给出了全部控件（如图1-168所示）和“读数据”命令

按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令

按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结

束程序运行前，必须进行“计算”，且必须通过单击窗体右上角的“关闭”按钮结束程

序，否则无成绩。最后，程序按原文件名存盘。图皿68（2）在考生

文件夹下有一个工程文件sjt4.vbpo请在窗体上画一个组合框，名称为Cbl,并输

入三个列表项：“3”、力”、“11”（列表项的顺序不限，但必须是这三个数字）:画一

个名为Textl的文本框；再画一个标题为“计算”、名称为Q的命令按钮，如图1-

169所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字

后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入

Textl中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变

量°注意：考牛不得修改窗体文件中已经存在的程序.在结束程序运行之前,必须

至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。

图1-169

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

sj13.vbp,在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。参考代

码：PrivateSubCommand2_Click()Max=a(l)Min=a(l)Fori=2To100If

isnarc(a(i))=TrueThenIfa(i)>MaxThenMax=a(i)Ifa⑴键运行程序，先单击“读数据”

按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。第2小

题【操作步骤】步骤I：打开考生文件夹下的本题工程文件sjt4.vbp0步骤2：

在窗体Forml中加入一个组合框、一个文本框和一个命令按钮，分别设置它们的相

关属性，其属性及值如表2-96所示。

>2-96

对象属性值

Namecbl

组合机

List3、7、11

NameTextl

文本框

Text

NameCl

按钮

Capucn计算

步骤3：双击窗体Fomil中的“计

算“按钮，打开代码编辑窗口，输入如下代码：参考代码：PrivateSubCl_Click()

DimnAsInteger,kAsInteger,SAsLongn=Val(Cbl.Text)S=0Fork=nTo5000If

k/n=Int(k/n)ThenS=S+kEndIfNextkTextl.Text=SEndSub步骤4；按要求将

文件保存至考生文件夹中。步骤5：按键键运行程序，从列表框中选择一项，单击

“计算”按钮，单击程序右上角的关闭按钮结束程序，

知识点解析：第1小题程序设计思路：声明两个变量max和min,分别用于记录水

仙花数的最大值和最小值，用For循环逐一取出数组a中的100个元素，通过调用

函数isnarc判断其是否为一个水仙花数，若是水仙花数且是第一个找到的水仙花

数，则将其同时赋值给max和rain,否则将其与变量max和rain分别比较大小，

并将与max比较结果中的较大值存入变量max,将与rain比较结果中的较小值存

入变量rain。循环结束后，分别将变量max和min的值显示在两个文本框。第2

小题设计木题代码的思路：单击“计算”按钮时，用For循环语句循环变量(如k值

为1〜5000间的所有整数)的取值逐一除以组合框中当前选择的数值(Cbl.Text),并

将能被该数值整除的整数累加入一个变量(如s)o判断整数A能被整数B整除的条

件表达式为：AModB=Oo最后将循环结束时变量S的值显示在文本框中。

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

3、在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框，名称为

TcxtKTcxt2,都可以多行显示。还有三个命令按钮，名称分别为C】、C2、C3,标

题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat

文件中的50个整数读到数组中，并在Textl中显示出来；“排序”按钮的功能是对这

50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数

保存到考生目录下的oul5.dal文件中。如图1/46所示。在窗体中已经给出了全

部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的？改为正确

的内容，并编写"排序''按钮的Click事件过程，使其实现上述功能，但不能修改程

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

・_________匚।・戈

H至1呼」

图1-146

标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件尔5.vbp,在

代码编辑窗口的指定位置编写以下代码：参考代码：PrivateSubCl_Click()Dimk

AsIntegeroDimchAsStringOpenApp.Path&"\in5.dat"ForInputAs#lch="*

Fork=lTO50Input#1,a%(k%)ch=ch+Str(a(k))+""NextkClose#1

Textl.Text=ch$EndSubPrivateSubC2Click()DimkAsInteger,iAsInteger,j

AsIntegerDimchAsStringFori=lTO49k=iForj=i+lTo50Ifa(k)>a(j)Thenk=j

EndIfNextjj=a(k)a(k)=afi)a(i)=jNextich="“Fork=lTo50ch=ch+Str(a(k))

NextkText2.Text=chEndSub年骤2：按要求将文件保存至考生文件夹中。步骤

3：按键运行程序，先单击“取数”按钮，再单击“排序”按钮，最后单击“存盘”按

钮。

知识点解析：本题的“取数”按钮的单击事件首先利用Open语句打开考生目录下的

in5.dat文件，然后使用For循环结合I叩ut语句将50个整数读到数组中，并在

Textl中显示出来。“排序”按钮的单击事件过程可以采用选择排序算法，其程序设

计思路是：第一趟排序在数组中选出最小的记录a(k),将它与第一个记录a(l)交

换，然后第二趟排序在a(2)~a(n)中找出最小的元素，令其与a(2)交换，以此类推，

第i次排序就是在a(i)〜a(n)中找出最小的元素令其与a(i)交换。这样，n个记录的

文件的直接选择排序可经过n-1趟直接选择排序得到有序结果。

VB机试模拟试卷第5套

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

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

窗体（名称为Forml）上画1个列表框（名称为L1）和1个水平滚动条（名称为HS1,

Min属性为0,Max属性为100,SmallChangc属性为2,MrgeC性nge属性为10）,

编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，

则在列表框中显示“滚动条的当前值是：XX"，如图1—1所示，其中XX是滚动框所

在的位置。存盘时，工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。2.在名称为

Forml的窗体上画一个文体框，其名称为Texll,然后通过属性窗口设置窗体和文

本框的属性，实现如下功能：1）在文本框中可以显示多行文本2）在文本框中显示

垂直滚动条3）文本框中显示的初始信息为“程序设计”4）在文本框中显示的字体为

三号规则黑体5）窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所

示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件

名为sjt2.vbp,窗体文件名为sjt2.frm。

・设*文本修・性；3百

程序设计

二J

图1-1图1一2

标准答案：按以下步骤操作：①启动VisualBasic,在窗体上画1个水平滚动条和

1个列表框。②按F4键，激活属性窗口，在属性窗口中设置滚动条和列表框的属

表1

控件属性设置值

水平滚动.云底HS1

Min0

Max100

Small'

,2

Change

LargcChanghO

性，见表1。逑-----------------------③编写窗体的Click事件过

程；PrivateSubForm_Click（）LI.Additem”滚动条的当前值是:"&HS1.ValueEnd

Sub2.①对象主要属性设置如表2所示。

表2

对象对象名属性名属性值

窗体FormlCaption设置文本框属性

文本框TextlText程序设计

MultiLineTure

ScrollBaxs2

Fon*Name黑体

FontSize三号

②分析：按试题要求在窗体上画

出一个文本框，并分别将它们属性按表2的内容进行设置。MultiLine属性设置为

True,文本框显示多行文本；SerollBar属性设置为2,文本框显示垂直滚动条；设

置Text属性中的内容为初始信息；用FontName和FontSize属性分别设置文本框的

字型和字号；Caption属性设置窗体标题的内容。③编程代码：（无）

知识点解析：暂无解析

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

2、在考生文件夹中有一个工程文件execisel12.vbp］相应的窗体文件名为

execisell2.frm）,请装入该文件。在名为Fomal的窗体上绘制一个列表框（名称为

Listl）和一个文本框（名称为Textl）o编写窗体的MouseDown事件过程。程序运

行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目（内容

任意，不少于3个）；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，

将其从列表框中删除。程序的运行情况如下图所示。提供的窗体文件可以实现上

述功能，但本程序不完整，请补充完整。要求：去掉程序中的注释符“，”，把程序

中的问号"?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最

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

标准答案：

（1）打开题目所给盲体；

（2）单击工具箱中的ListBox控件图标，在窗体上拖拉出一个列表框，在属性窗口设置其名称为Listl；

（3）单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Tex:1，将

Text属性设置为空白；

（4）将注释语句改为：

□Listl.AdditemTextl.Texts

OFori=0ToListl.ListCount-1

□ifListl.List（i）=Textl.TextThen

□Listl.Removeitemi

（5）按要求保存文件即完成本题。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sjt5.vbp,其功能是：①单击“读数据”按

钮，则把考生文件夹下in5.dat文件中的100个0〜999之间的整数读入数组a

中；②单击“计算”按钮，则对这100个整数中的所有水仙花数（当一个数的值等于

该数中各位数字的立方和时，此数被称为水仙花数。例如，153=U+53+33,所以

153就是一个水仙花数）求平均值，并对该平均值数尾取整后显示在文本框Text1

中。窗体中给出了所有控件（如图1-180所示），已给“读数据”按钮的Click事件过

程，请为“计算”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存

在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关

闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

、Fetal•r*

，.两所3

[»+«

图1-180

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

在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。参考代码：Dims

AsLong,nAsIntegerFori=lTo100Ifisnarc（a（i））,2hens=s+a（i）n=n+lEndIfNexti

Textl.Text=Fix（s/n）步骤2：按要求将文件保存至考生文件夹中。步骤3：按键

运行程序，先单击“读数据''按钮，接着单击“计算''按钮，然后单击窗体右上角的关

闭按钮结束程序。

知识点解析•：程序设计思路：声明一个变量s用于记录水仙花数的和，一个变量n

记录水仙花数的个数。用For循环逐一取出数组a中的100个元素，通过调用函数

isnrc判断其是否为一个水仙花数，若是水仙花数则将其加入到累加和s中.同时令

n=n+lo循环结束后，s/n的值就是水仙花数的平均数。

VB机试模拟试卷第6套

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

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

称为Forml、标题为“鼠标光标形状”的窗体上画一个名称为Textl的文本框。请通

过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头

(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状