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

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

（共27题）

VB机试模拟试卷第1套

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

1、注意:下面出现的“考生文件夹“均为c：\wexam\25l60001o⑴在名称为

Forml的窗体上画一个名称为Hl的水平滚动条，请在“属性”窗口中设置它的属性

值，使之满足以下要求：它的最大刻度值为100,最小刻度值为1,在运行时鼠标

单击滚动条上滚动框以外的区域（不包括两边按钮），滚动框移动10个刻度。再在

滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100,运行时的窗

体如图19-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为

sjtl.vbp,窗体文件名为sjll.frm（2）在名称为Forml的窗体上画两个文本框，名称

分别为Textl和Text2,均无初始内容；再建立一个下拉菜单，菜单标题为“操

作”，名称为Ml,此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题

分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜

单项，则把Textl中的内容复制到Texl2中,单击“清除”菜单项，则清除Text2中

的内容（即在Text2中填入空字符串）。程序运行界面如图19-2所示。要求在程序中

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

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

Hsmwl-

图19-1粗19-2

标准答案：滚动条的最大值由Max属性设置，最小值由Min属性设置。鼠标亘击

滚动条上滚动框以外的区域（不包括两边按钮）滑块移动的增量值由LargeChange属

性设置。标签上的标题由C叩tion属性设置，控件的名称由Name属性设置。解题

步骤：第一步：建立界面并设置控件属性。程序外到的控件及其属性见表19-2。

控件属性设置值

NameLI

Label

Caption1

NameL2

Lzbel

Caption100

NameHl

Max100

Hscrollbar

Min1

Largechange10

第二步；调试并运行程

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

编辑器”窗口建立，在窗体上单击右键选择“菜单编辑器”选项可以打开“菜单编辑

器“窗口；文本框的内容由Text属性设置，其形式为：文本框名.Text二要显

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

单项和控件的属性见表19-3。

标题名称内缩符号

操作Ml0

复制Copy1

清除Clear1

TextNameTextl

TextNameText2

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

考代码：OplionExplicitPrivateSubClear_Click()Texl2.Text=""EndSubPrivateSub

Copy_Click()Text2.Text=Text1.TextEndSub第三步：调试并运行程序。第四步：

按题1要求存盘。

知识点解析：暂无解析

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

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

下有一个工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm,请装入该文件，在窗体

上画两个命令按钮，名弥分别为Commandl#Command2,标题分别为“添加项目”

和“删除项目”，再画一个列表框和一个文本框，名称分别为Listl和Textl,如图

21-4所示。编写适当的事件过程。程序运行后，如果单击“添加项目”命令按钮，

则从键盘上输入要添加到列表框中的项目（内容任意，不少于三个）；如果单击“删

除项FT命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除△程序的

运行情况如图21-5所示。提供的窗体文件可以实现上述功能，但这个程序不完

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

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

名存盘。（2）在考生文件夹下有一个工程文件sjtt4.vbp,相应的窗体文件名为

sjt4.frm,其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程序

运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最

大值，并在窗体上显示出来，如图21-6所示。这个程序不完整，请把它补充完

整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，

使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件

名存盘。

图21-4图2)-5图21-6

标准答案：使用Addltem方法向列表框中添加列表项目，其格式为：列

表.Additem项目字符串［，索引值］Additem方法把“列表字符串”的文本内容放入“列

表框”中。如果省略嗦引值”则文本本放在列表框的尾部。“索引值”可以指定插入

项在列表框中的位置，表中的项目从0开始计数，“索引值”不能大于表中的项数减

1。该方法只能单个的项列表框中添加项目。使用Removeltem方法从列表框中删

除列表项0其格式为：列表.Removeltem索引值Removeitem方法从列表框中删除

以“索引值”为地址的项目，该方法每次只能删除一个项目。解题步骤：第一步：

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

控件属性设置值

ListboxNameListl

命令按钮NameCommandl

Picture添加项目

命令按钮NameCommand?

Picture删除项目

文本框

NameTextl第二步：编写程序代

码。程序提供的代码：PrivateSubCommandI_Click()

Textl.Text=InputBox("请输入要添加的项目")'List1.Additem?

EndSubPrivateSubCommand2_Click()

Textl.Text=InpulBox("请输入要删除的项目")Tori=0

To?IfList!.List(i)=?Then,List1.Removeitem?

EndIfNextiEndSub参考代码：PrivateSub

Commandl_Click()Textl.Text=InputBux("请输入要添加的项目")

List1.AddltcmText1.TextEndSubPrivateSubCommand2_Click()

Textl.Text=InputBox("请输入要删除的项目")Fori=0To

List1.ListCount-1IfList1.List(i)=Text1.TextThen

List1.RemoveitemiEndIfNextiEndSub

第三步：调试并运行程序。第四步：按题目要求存盘。(2)文本框里的内

容(包括数字)默认都是当作字符串来处理的，如果要参与数据运算则需先用Val()

函数将其转化为数字(如：Vai(Text1.Text))o这里需要指出的是利用Array对

数组各元素赋值，声明数组的类型只能是Variant。数组的上下界可用LBound函数

和UBound函数分别获得：程序中变量Max保存最大数，最初把数组的第一个元

素赋给Max,然后将其后的元素依次与之比较，如果大于Max的值则与之交换，

后面乂将Max作为标杆，依次类推，最终MAX中的元素就是最大值。在窗体上

打印信息可以通过Print方法来实现，其形式为：［对象］Prim要显示的内容

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

控件属性设置值

命令按钮NameCojninandl

Picture求最大值

文本框NameTextl

文本框NameText2

文本框NameText3

文本框NameText4

见表21-4。第二步：编写程

序代码。程序中提供的代码：OptionBase1PrivateFunctionFindMax(a()As

Integer)DimStartAsIntegerDimFinishAsInteger,iAs

Integer,Start=?(a)Tinish=?(a)5Max=?(start)Fori=StartToFinish'Ifa(i)?MaxThen

Max=?NextiFindMax=MaxEndFunctionPrivateSubCommandl_Click()Dimarrl

Dimarr2(4)AsIntegerarrl=Array(Val(Textl.Text),Val(Text2.Text),Vai(Text3.Text),

Val(Text4.Text))Fori=lTo4'arr2⑴=CInt(?)Nexti,M=FindMax(?)Print”最大值

是：MEndSub参考代码：OptionBase1PrivateFunctionFindMax(a()AsInteger)

DimStartAsIntegerDimFinishAsInteger,iAsIntegerStart=LBound(a)

Finish=UBound(a)Max=a(Start)Fori=StartToFinishIfa(i)>MaxThenMax=a(i)Next

iFindMax=MaxEndFunctionPrivateSubCommand1Click()DimarrlDimart2(4)As

Integerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),

Val(Texl4.Texl))Fori=lTu4arr2(i)=CInt(airl(i))NextiM=FindMax(an2)PrinT最

大值是：”;MEndSub第三步：调试并运行程序。第四步：按题目要求存盘。

知识点解析：暂无解析

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

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

一个工程文件sjt5.vbp,其窗体上有一个文本框，名称为Textl；两个命令按钮，

名称分别为C1和C2,标题分别为“计算”、“存盘”，设计界面如图20-5所示。并

有一个函数过程isprime,其功能是判断参数a是否为素数，如果是素数，则返回

True,否则返回False。请将程序中问号的地方用相应的代码补充完整，使得在运

行时,单击“计算”按钮，则找出小于18000的最大的素数,并显示在Textl中;单

击“存盘”按钮，则把Textl中的计算结果存入考生文件夹下的out5.txt文件中。注

意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按

•Form1.皿凶

计方I存盘I

钮存入out5.txt文件中，否则无成绩。

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

的判断准则就是看是否该数除了1和其本身外别无其他约数（即从2到n-l之间没

有可以将其整除的数）即可，变量flag是用于保留判断数是否是素数的结果的，值

有True和False两个（从程序中可以看出）所以应将其定义为布尔型（Boolean）,并且

在函数中判断完之后，将flag的值赋给函数过程isprime的名字。文本框用Text属

性来显示计算机结果，其形式为：文本框名丁©*1=要显示的内容将数据写入文件

可用命令Write#或Print#,本程序中用的是后者，其形式为：Pint#文件号，［输出

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

对象属性设置值

文本框NameTextl

NameCl

命令按钮

Cption计算

NameC2

命令按钮

Cption存盘

属性值见表20-5o第二步:

编写程序代码。程序中提供的代码：PrivateFunctionisprime(aAsInteger)As

Boolean*DimflagAs?flag=Trueb%=2DoWhileb%<=Int(a/2)AndflagIf

Int(a/b%)=a/b%Thenflag=FalseElseb%=b%+1EndIf'?isprime=flagEndFunction

PrivateSubClClick()DimiAsIntegeri=18000Doi=i-lLoopUntilisprime(i),

Textl.?=iEndSubPrivateSubC2Click()Open"out5.txt"ForOutputAs#1Print#1,

Text1.TextClose#1EndSub参考代码：PrivateFunctionisprimc(aAsInteger)As

BooleanDimHagAsBooleanflag=Trueb%=2DoWhileb%<=Int(a/2)AndflagIf

Int(a/b%)=a/b%Thenflag=FalseElseb%=b%+lEndIfLoopisprime=flagEndFunction

PrivateSubCl_CIick()DimiAsIntegeri=18000Doi=i-lLoopUntilisprime(i)

Textl.Text=iEndSubPrivateSubC2_Click()Open'*011(5.txt"ForOutputAs#1Print

#1,TextI.TextClose#1EndSub调试并运行程序。第四步：按题目要求存

盘。

知识点解析：暂无解析

VB机试模拟试卷第2套

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

1、(1)在名称为Forml的窗体上绘制一个标签和两个单选按钮。标签的名称为

Labell,初始时内容为空。单选按钮的名称分别为Option】、Option2,标题分别为

“Itcml”和编写适当的事件过程，使得程序运行时Optionl按钮被选中，标

签中显示“选中Iternl”，如图24—1所示。如果单击Oplion2按钮，标签中显示的内

容为“选中程序中不得使用任何变量。注意：保存时必须存放在考生文件

夹下，窗体文件名为sjl.frm,工程文件名为sjl.Vbpo(2)在名称为FOrml的窗

体上，绘制一个形状控件和一个命令按钮。形状控件为圆形，名称为Shapel。命令

按钮为Command1,标题为“变正方形”。编写适当的事件过程，使得程序运行E寸，

单击命令按钮，圆形将隐藏起来，显示正方形。程序中不得使用任何变量。程序运

行时的窗体界面如图24—2所示。

,!□!x|

选中Iteml

(•lieml

图24-2注意：保存

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

标准答案：(1)根据题意，新建“标准EXE”工程，将一个标签和两个单选按钮控件

添加到窗体中，标签的名称为Labell、Caption属性为空，单选按钮的名称分别为

Optionl和Option2、Caption属性分别为“Iteml”和双击窗体进入代码窗

口，编写如卜代码：PrivateSubForm_Load()'初始化Label1.Caption="选中

"+Optionl.CaptionEndSubPrivateSubOptionl_CIick()'选中Iteml

Labell.Caption="选中"Optionl.CaptionEndSubPrivateSubOption2click()'选中

Item2Labell.Caption—'选中"+Option2.CaptionEndSub单击窝:按钮运行程序，

并按要求保存。(2)根捱题意，新建“标准EXE”工程，将一个命令按钮和一个

Shape控件添加到窗体中，命令按钮的名称为Commandl、Caplion属性为“变正方

形"，Shape的名称为Shapel、Shape属性为3。双击Command1进入代码窗口，编

写如下代码：PrivateSubCommandl_CIick()Shape!.Shapc=l'单击变正方形，

Shapcl变为正方形EndSub单击法:按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

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

的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签，两个名

称分别为Tcxtl和Tcxt2的文本框控件和两个名称分别为Commandl和Command?

的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加

和。本题要求刚启动工程时，“计算”和“清空”按钮均为灰色，可以在Textl文本框

内输入任意自然数（n值太大时，运算时间将很长，建议不超过9位）。在输入数的

同时“计算”变为可用；当计算完成后.“计算”变为不可用；当输入为非数值时，累

加结果为0。单击“计算”可以在Text2中显示累加和，且该框内的文字不可修改；

同时“计算”变灰。"清空”变为可用。单击“清空”，输入框和显示框均被清空，同时

“计算”和“清空”变为不可用。如图56-3所示。注意：请在有“?”号的地方填入正

确内容，然后删除“?”及代码前的所有注释符（即号），但不能修改其他部分。存

盘时不得改变文件名和文件夹。（2）在考生文件夹中有文件sj4.vbp及其窗体文件

sj4.frm,窗体已经设十好，要求考生用If语句编写程序，使得程序运行。窗体上

有两个复选框，名称分别为Checkl和Chcck2。标题分别为“ItclTH”和“Itcrn2"；两

个单选按钮，名称分别为Oplionl和Option2。标题分别为“选择”和“其他”；一个名

称为Labell、Caption属性为空的标签；一个名称为Command］、标题为“显示”的命

令按钮，一个名称为Tcxtl的文本框，Text属性为空。要求程序运行后，对选中

Optionl时checkl和Check2可用，Textl也可用,当选中Option2的时候，TextlnJ

用，Checkl和claeck2不可用，然后单击显示按钮.可在窗体.上显示相应的信息，

如选中Optionl,则显示选中复选框的信息，选择Option2则显示Tcxtl中的信息。

程序运行时的界面如图56—4所示。

CESSEDjjnjjsi

求1到用户8A救之间的历lter»*3

有加之和，并将结♦显示

出来.

「|ltem3

r

EEi

图56-3图56r注意：不得使

用任何变量。存盘时不得改变文件夹和文件名。

标准答案：(1)根据题意，将一，个'Label控件、两个Tex［控件和两个Command控

件添加到窗体上，Label的Caption属性为“求1到用户输入数之间的所有偶数之

和,并将结果显示出来。”,Text的名称分别为Textl和Text2、Text属性分别为空

和Text2,Text2的Enable属性为False,Command的名称分别为Commandl和I

Command?>Caption属"生分别为“计算”和“清空双击Commandl命令按钮，编写

如卜代码：PrivateSubCommandl_Click()DimaAsIntegerDimtotalAsLongDimi

AsIntegera=Val(Textl.Text)，将Textl中的数据读入，放到a中total=0Fori=lTo

a，利用For循环逐个判断IfiMod2=0Then，当判断是偶数时total=total+i'则相加

EndIfNextiText2.Text=total'将结果写入Text2中

Commandl.Enabled=False'Commandl不可用EndSubPrivateSubConimand2一

Click()Textl.Text=""'Textl清空Text2.Text=""'Text2清空Commandl.Enabl

ed=FalseCommandl不可用Command2.Enabled=False5Command?不可用EndSub

PriyateSubTextl_Chanoe()Commandl.Enabled^rue'Commandl可用

Command?.Enabled=TrueCommand2可用EndSub单击*‘按钮运行程序，弃按

要求保存。(2)按要求设计好窗体后，双击Command1命令按钮打开代码窗口，补

充完整后的代码如下：PrivateSubCoinmandl_Click()DimstrAsStringstr=""If

Option!.Value=TrueThen'如果选择的是OptioMIfChcckl.Value=lThen'则判断选

中的复选按钮str=str+Checkl.Caplion'如果选中Checkl,则显示［temlEndIfIf

Check2.Value=lThen'如果选中Check2str=str+Chsck2.Caption'则显示Item2

EndIfCisPrintstr'在窗体上打印出来臼se,”如果选择的是Option2CisPrint

Text!.Text'则显示Texil的内容EndIfEndSubPrivateSubOptionl_Click()'单击

Option!Textl.Enabled=False,Textl不可用Checkl.Enabled=True5Checkl可用

Chcck2.Enablcd=TrucrChcck2可用EndSubPrivateSubOption2_Click()

Textl.Enabled=TrueCheckl.Enabled=FalseCheck2.Enabled=FalseEndSub单击

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

知识点解析：暂无解析

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

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

的。在窗体上有一个名为Listl的列表框，列表框中有若干列表项，如图40—6所

示，通过属性窗口设置列表框的MulliSelect属性值为1,一个名为Textl的文本

框，还有两个命令按钮，名称分别是Command1和Command2,标题分别是“全选”

和“存盘”。要求在程序运行时，单击command1按钮则将Listl中的全部列表项选

中，然后单击Command2按钮，将Listl中的全部列表项写入Textl中，并写入文本

文件out.txt中，并将out.txt保存在考生文件夹下。

图456注意：请在有“?”的地方填入正确内容，然后删除

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

名和文件夹。

标准答案：本题主要考查列表框的使用。列表框用于在很多项目中作出选择的操

作。列表框的ListCount属性表示表项的数量，列表项的排列从0开始，最后一项

的序号为ListCount-1o使用列表项的Selected属性来表示列表框中哪些项被选中，

该属性实际上是个数组，各元素与列表框中的项相对应，其取值为True或

False,为True时表示选择了该项，为False表示未选择。根据题意，将两个命令

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

Commandl和Command?NCaption属性分别为“全选”和“存盘”，列表框的名称为

Listl,文本框的名称为Texil。补充后的具体代码如下：PrivateSubCommandl

Click()DimiAsIntegerDimstrAsStringstr=""Fori=0ToLisll.ListCount-1

Listl.Selecte&i)=True，洛所有的列表项都选中str=str+Listl.LisKi)，将选中的文本

写入一个变量里面，最后一起输出NextiTextl.Text=strEndSubPrivateSub

Command?Click()OpenApp.Path&"\Out.txt"ForOutputAs#1'打开文件Dimi

AsIntegerFori=0TOListl.ListCount-1Print#1,Listl.Lis^i)'将每一项都写入到文

件中NextiClose#1EndSubPrivateSubFormLoad()Listl.Additem"足球”'向歹J表

中添加选项Listl.Addhem"篮球"Listl.Additem”排球"EndSub单击按钮运行

程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第3套

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

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

称为Forml的窗体上画两个文本框，其名称分别为Tcxll和Text2,它们的高、宽

分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适

当的属性满足以下要求：①Tcxt2可以显示多行文本，且有垂直和水平两个滚动

条；②运行时在Texll中输入的字符都显示为运行后的窗体如图1-166所

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

名为sjtl.frm。图（2）在名称为Form1的窗体上画一个图像框，

名称为tmagcl,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图

像文件picl.bmp装入图像框；再画两个命令按钮，名称分别为G、C2,标题分

别为“放大”、“缩小”，如图1-167所示。要求：①请编写适当的事件过程，程序

运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”

按钮，则把图像框的高度、宽度均减少100o要求程序中不得使用任何变量。②

通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也

自动放大、缩小。注意：存盘时必须存放在考生文件夹下，工程文件名为

sjt2.vbp,窗体文件名为sjt2.fnrio图1/67

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

Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表2-94所示。

表2-94____________

对象属性值

NameText1

Width2400

文本框I

Height300

PasswordChar・

NameText2

Width2400

文本框2Height1200

MultiLineTrue

ScrollBars3

窗体Caption—四—先聘3格再乘想5件像衣奉袋牛

文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-95

在窗体中画出控件并设置其相关属性。

袅2-95__________

对饮属性值

NameImagcl

StretchTrue

图像框Picturepicl.bmp

Width1700

Height1900

NameCl

命令按钮1

Caption放大

NameC2

命令按钮2

Caption-----&-----步骤2：打开代码编辑窗U,编写

两个命令按钮的Click事件过程。参考代码：PrivateSubCl_Click()

Imagel.Width=Imagel.Widlh+100Image!.Height=Imagel.Hei.ght+100EndSub

PriVateSubC2_Click（）Image!.Width=Imagel.Width一100

Imagel.Height=Imagel.Hei.ght-100EndSub步骤3：按要求将文件保存至考生

文件夹中。

知识点解析：第1小题文本框控件的MultiLine属性设置文本框是否能以多行显示

文本，值为True表示允许，值为False表示不允许；ScrollBars属性设置文本框是

否有水平或垂直滚动条，它的值为；0表示没有滚动条（默认值），1表示只有水平

滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置O以外的值时

MultiLinc属性值必须为True。本题只需按要求画出控件并设置其相应属性即可。

第2小题①为图像框控件指定图片有两种方法：一是在设计阶段通过Piclure属性

设置；二是在程序运行时通过LoadPictm。图片加载函数加载，其语法为：图片

框.Picture=Loadicturc（"图像文件路径）App.Pa由可返回当前工程文件所在的文

件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的

Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch（自动伸缩）属

性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值

为True时表示自动调整。程序运行时要改变图像框的大小，可通过修改其W疝h

和。Height属性值来实现。

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

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

签；画一个名称为Textl的文本框，没有初始内容；画一个名称为Combol的下拉

式组合框，并通过属性窗口输入若干项目（不少于三个，内容任意）；再画两个命令

按钮，名称分别为Commandl、Command?,标题分别为“添加”、“统计”。在运行

时，向Texll中输入字符，单击“添加”按钮后，则Texll中的内容作为一个列表项

被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个

数，如图1-144所示。请编写两个命令按钮的Click事件过程。注意：程序中不得

使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为

«■

*nofct

sjI3.vbp,窗体文件名为sjt3.frm。图E44（2）在考生文件夹下有一

个工程文件s.4,vbp,其窗体如图1-145所示。该程序用来对在上面的文本框中输

入的英文字母串（称为“明文”）加密，加密结果（称为“密文”）显示在下面的文本椎

中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮

后面的数字n,把明文口的每个字母改为它后面的第n个字母（“z”后面的字母认为

是“a”，“Z”后面的字母认为是"A"），如图1-145所示。窗体中已经给出了所有控件

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

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

存盘。图145

标准答案：第1小题【操作步骤】步骤1：新建•个“标准EXE”工程，如表2・81

在窗体中画出控件并设置其相关属性。

表291__________________

对象属性值

NameLabel!

标签

Caption添加项目1

NameTextl

文本枢

Text

NameCombo1

组合框Style0

List任意

NameCommand!

命令按钮】

Caplion添加

NameCommand2

命令按钮2

Caption_______至t________先骤7,打开代码编城窗口.编写斯

个命令按钮的Click事件过程。参考代码；PrivateSubCommandl_Click()

CombO1.AdditemTextl.TextEndSubPrivateSubCommand2_Click()Print

CombO1.ListCountEndSub步骤3：按要求将文件保存至考生文件夹中。第2小

题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp,在代码编辑

窗口，去掉程序中的注释符将问号“?”改为正确的内容。参考代码：

n=Val(Opl(k).Caption)Fork=lTomc=Mid$(Textl.Text,k,1)a=a+c步骤2：

按要求将文件保存至考生文件夹中。

知识点解析：第1小题①组合框(ComboBox)将文本框与列表框的特性组合在一

起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。可通过修

改组合框的Style属性值来改变其显示类型，值为0-DropdownCombo时，表示下

拉式组合框，包括一，个下拉式列表和一，个文本框，可以从列表选择或在文本框中输

入；值为1-SimpleComb。时，表示简单组合框，包括一个文本框和一个不带下拉

的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部

分；值为2-DropdownList时，表示下拉式列表，这种样式仅允许从下拉式列表中

选择。②组合框的列表项既可以在设计阶段通过其List属性设置加入(注意：每输

入完一项后按键换行再瑜入下一项)，也可在程序运行时通过Addllem方法加入，

其语法为：组合框名.Additem项目字符串［,索引值］。其中，“索引值”可以指定

插入项在列表框中的位置，表中的项目从0开始计数。如果省略“索引值”，则文本

被放在列表框的尾部。③ListCounl属性用来返回组合框中当前的列表项总数。本

题需按要求设计程序界面，并编写“添加”和“统计”命令按钮的Click事件过程。第

2小题Strings(个数，字符)函数用于返回含指定个数字符的字符串。程序设计思

路：在“加密”按钮的单击事件过程中，首先利用For循环语句逐一判断单选按钮组

中各个元素是否选中，若选中则用变量n记录下该单选按钮所代表的数值；接着再

次利用For循环语句和Mid函数逐一为文本框中的每一个字符“加密”，若“加密”后

得到的字符在ASCH表中值大于“z”，则重新取比其小26的字符；最后将“加密”后

的字符串显示在文本框Text2中o

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

3、在考生目录下己有一个工程文件sjt5.vbpo运行程序后，分别从两个文件中读

出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将

a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”

按钮时.调用find过程分别找出a、c数组中元素的最大值,并将所找到的结臭分

别显示在Textl、Tcxt2中。在给出的窗体文件中已经有了全部控件，但程序不完

整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程

序，实现程序的功能。注意：不能修改程序的其他部分和控件属性。最后把修改

后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执

行一次。

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

打开代码编辑窗口。在指定位国编写代码。参考代码：PrivateSubfind(x()As

Integer,tAs'=====以下为考生编写的程序=========Max=x(1)Fori=2To

UBound(x)IfX(i)>MaxThenMax=x(i)EndIfNextt.Text=Max=====考生编写

的程序结束=========EndSubPrivateSubCommand?Click。=========以卜为考

生编写的程序二=二二=二==Fori=lToUBound(a)C(i)=a(i)+b(i)Next======考生编写

的程序结束===========OpenApp.Path&"\out51.txt"ForOutputAs#lFori=0

To9Print#1,C(i)NextClose#1EndSub步骤2：按要求将文件保存至考生文件夹

中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后

单击“找最大值”按钮。

知识点解析：本题中自定义过程fmd的功能是找出数组参数x()中的最大值，并且

将其放入文本框参数I中。其基本思路为：首先利用Ubound函数获得数组的长

度，然后假设数组的第一个数为最大值，再由数组的第二个数直到最后一个数进行

循环，在循环中对数组元素和最大值进行比较，二者中较大的数存入最大值变量，

循环结束后将最大值显示在I中。在“合并数组”按钮的单击事件中，利用For循环

依次将a、b数组中同下标的元素相加并且放入数组c中。

VB机试模拟试卷第4套

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

1、（1）在名称为Forml的窗体上画一个框架、一个文本框、一个命令按钮。框架的

名称为FrameL标题为“框架”。文本框在Frame1框架中，名称为Text1、标题为

“模拟试题”。命令按钮的名称为Commandl、标题为“屏蔽”。编写适当的事件过

程，当程序运行时，如果单击Commandl命令按钮，框架就会被屏蔽（即不可用）。

程序中不得使用任何变量。程序运行时的窗体界面如图21—1所示。注意：保存

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

在名称为Forml的窗体中，画一个组合框。组合框的名称为Combol,初始内容为

空，有“Iteml"、“Item2”和“Item3”3个可供选择项。编写适当的事件过程，使得程

序运行时.，选择组合框中的某一项，就会弹出一个对话框，内容为“选择了（该

项广。程序中不得使用任何变量。程序运行时的窗体界面如图21—2所示。

■一凶

8921-1SB21-2

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

sj2.vbpo

标准答案：（1）本题考查控件的画法和框架控件的使用。框架控件（Frame）是一个容

器控件，常用于将界面上的控件分组，框架内的控件将随框架一起移动或隐藏。框

架的Caption属性设置其显示的标题，Enabled属性设置框架及其内部控件是否响

应用户操作，值为False时将被屏蔽。需注意的是向框架中加入控件时一定要在框

架区域内画，而不能通过双击加入。根据题意，新建“标准EXE”工程，将一个框

架控件和一个命令按钮添加到窗体中，框架的Caplion属性为“框架”，命令按钮的

名称为Commandl、Caption属性为"屏蔽"，再在Frame中放入一个文本框控件，名

称为Textl、Text属性为“模拟试题双击Command1进入代码向窗口，编写如下

代码:PrivateSubCommandl_Click（）Framel.Enabled=FaIse'将框架设为不可用

EndSub单击出按钮运行程序，并按要求保存。（2）本题考查对组合框控件和消息

框函数的掌握及简单的事件编程。组合框（ComboBox）将文本框与列表框的特性组

合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目i组

合框的列表项可以在设计阶段通过其List属性加入，加入时注意每输入完一项后

按“Ctrl+Enter”组合键换行再输入下一项；组合框的Text属性用于设置或返回其文

本框部分显示的文本。MsgBox。函数用于显示提示信息，并可返回一个代表用户

点击了哪个按钮的Imeger类型值，其常用语法为：MsgBox（prompt［,buttons］（，

title|)o其中，prompt参数为消息框的提示信息，buttons参数用于控制消息框中按

钮的数目、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容，

根据题意，新建“标准EXE”工程，将一个ComboBox控件添加到窗体中，其名称

为Combol、Style为2,在Lisi属性中添加以下3项“Iteml“、和双

击Combol进入代码窗口，编写如下代码：PrivateSubCombol_Click()MsgBox("选

择了"+Combol.List(Combol.Listindex))，弹出对话框EndSub单击窗按钮运行

程序，并按要求保存。

知识点解析：暂无解析

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

2、(1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有一个单选按钮数组，名

称为Optionl,含4个单选按钮，它们的Index属性分别为O、1、2和3,标题依次

为“ItemF、”Itera2"、"Item3”和再画一个名称为Textl的文本框。窗体文

件中已经给出了Oplionl的Click事件过程，但不完整，要求去掉程序中的注释符

把程序中的"'改为正确的内容，使得在运行时单击“heml”或“Item2”单选按钮

时，在Textl中显示“选择Iteml”或“选择Item2v,单击“Item3”或单选按钮

时，在Textl中显示“Item3被选择”和“Item4被选择”“程序运行界面如图35一3所

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

(2)在考生文件夹下有一个工程文件sj4.vbp,Forml窗体中有一个文本框，名称为

Textl,两个框架，名称分别为Framel和Frame2、标题分别为“科目”和“难易”；在

Framel中有两个单选按钮Optionl和Option2,标题分别为“数学”和“语文”；在

Frame2中有两个单选按钮Option3和Option%标题分另U为“困难”和“简单”；一个

命令按钮，名称为Commandl,标题为“输出”。程序运行界面如图35—4所示。

图35-3图35-4请编写

适当的事件过程，使得在运行时，在Framel和Frame2中各选一个单选按钮，然后

单击“输出”按钮，输出“我觉得数学困难”、“我觉得数学容易”、“我觉得语文困难”

和“我觉得语文容易”之一。

标准答案：(1)程序中需要检测单选按钮的状态，这可以通过Value属性来实现。

如果单选按钮被选中，则其Value值为1；否则Value值为d当建立控件数组

时，系统给每个元素赋一个唯一的索引号(Index),通过属性窗VI的Index属性，

可以知道该控件的索引号是多少。标签和单选按钮的标题均由各自的Caption属性

设置。根据题意，将一组Oplion放到对话框中，包含4个单选按钮，Index分别为

0、1、2和3,Caption分别为“Itemr'"Item2'"Ttem3¥「Item4"，一个文本框控件，

名称为Texll,Text属性为空。补充后的具体代码如卜：PrivateSub

Optionl_Click(IndexAsInteger)IfIndex=lOrIndex=0ThenTextl.Text="选择

"+Optionl.Itcm(Index).CaptionElseTextl.Text=OptionLItcm(Index).Caption+”

被选择“EndIfEndSub单击♦按钮运行程序，并按要求保存。(2)程序中需要检

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

为1,否则Value值为0。在文本框中显示内容通过Text属性实现。根据题意，将

2个框架控件、4个单选按钮控件、1