VB机试模拟试卷11

VB机试模拟试卷第1套

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

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

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

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

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

间”菜单中的“上午■令，则在标签中显示午:00〜⑵00"；如果单击“下午”命

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

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

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

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

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

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

行情况如图39—3所示.

・Feral,lD|x|

8:00-1200

SB39-1SB39-2图39-3

注意：存盘时必须存放在考生文件夹下，工程上件名为

sj2.vbp,窗体文件名为

sj2.frmo

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

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

标签名称内缩

时间vbTime无

上午vbTimel一位

下午vbTime2一位

项:设置完成后,单击菜

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

PrivateSubvbTimcl_Click()Label1.Caption="8：00〜12：00"EndSubPrivateSub

vbTimc2_Click()Labcll.Caption=u12：00〜18：00"EndSub单击承:按钮运行程

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

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

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

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

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

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

保存。

知识点解析：暂无解析

二、简单应用题(本题共I题，每题分，共/分。)

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

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

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

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

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

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

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

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

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

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

•Forml3X

潘空|

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

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

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

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

件添加到窗体中，命令夜钮的名称为Command】、Caption属性为“计算”，文本框的

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

写如下代码:PrivateSubCommandl_CIick()DimnAsIntegerDimtotalAsLongDim

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

历。〜n的数IfiMod3=()Thentotal=total+i'如果能被3整除，则相加EndItNexti

Text2.7@乂1=心2「在10'12中显示结果£1111$处单击；，»按钮运行程序，并按要求

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

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

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

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

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

Text).Text=Val(InDutBox("请输入”))+Val(InputBox(”请输入”))，将输入的两个数相

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

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

知识点解析：暂无解析

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

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

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

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

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

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

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

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

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

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

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

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

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

Command?,Caption属性分别为“开始”和“关闭”。双击CommandI进入代码编写窗

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

total=Minus(8,4)OpenApp.Path&Msjs.da【"ForOmputAs#。打开文件准备写入

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

Integer)AsLongDimiAsIntegerDimjAsIntegerDimbAsLongtotal=0IfN>=1

ThenFori=NTo1Step-1b-1Forj-1ToM.b=b*l0NextjIfi=NThen

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

EndIfNextiEndIfCommand1.Enabled=FalseCommandl.Caption："完成"End

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

并按要求保存。

知识点解析：暂无解析

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

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

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

ylc2.vbp,窗体文件命名为ylc2.l¥m。|*|

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

的设置方式都相同。

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

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

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

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

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

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

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

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

=?）ThenHScrolll.Value=HScrollLMax?ElseIf（nCount<=HScrolll.Min）

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

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

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

图18程序运行结果

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

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

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

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

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

口上拖动创建该捽件，命名为HScroHL在属性窗口根据撅目的要求设置Valu?屈

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

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

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

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

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

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

=HScrolll.Min）ThenHScrolll.Vakie=HScrellLMin'信息提示框提示MsgBox（"文本框

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

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

件名为ylc6.frmo

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

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

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

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

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

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

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

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

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

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

图16程序运行结果

标准答案；（l）VisualBa$ic集成环境中，执行“文件”*新建工程”命令，选择“标准

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

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

话”和Englisho（3）在Listl的代码窗口中添加以下代码：PrivateSub

Listi_DblClick（）Listl.Addltem（"谢谢V）EndSub（4）按F5键运行程序。如图16所

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

为ylc4.frm。[*]

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

VB机试模拟试卷第3套

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

1、在名为Forml的窗体上绘制一个垂直滚动条（名称为VSI）和一个水平滚动条（名

称为HS1）。在属性窗口中对两个滚动条设置如下属性：Min2000Max8000

LargcChangc500SmallChangc50编写适当的事件过程，使程序运行后，若移动滚

动条上的滚动框，则可于大或缩小窗体。运行后的窗体如下图所示。

注意:程序中不得使

用任何变量；文件必须存放在考生文件夹中，工程文件名为execise22.vbp,窗体文

件名为exeeise22.frmo

标准答案：

（1）新建一个名为Forml的窗体：

（2）单击工具箱中的HScroHBar控件图标，在窗体上拖拉出一个水平濠动条，在属性窗口设置该水平濠动条名称为

HS1,Max为8000,Mi防2000,UrgeChange为5。0,SmallChange为50；

（3）单击工具箱中的VScroUBar控件图标，在窗体上拖拉出一个垂直濠动条，在属性窗口设置该垂直濠动条名称为

VSI»Max为8000,Minj^2000»LargeChange为500,SmallChange为50；

（4）打开代码窗口输入如下代码：

□PrivateSubHSl_Change0

□□Forml.Width=MSI

□EndSub

□PrivateSubVSl_Change0

□□Forml.Height=VSI

□EndSub

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

知识点解析：暂无解析

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

2、在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm0在名为

Foml的窗体上有一个名为Textl的文本框，有两个命令按钮（名称分别是Cmdl和

Cmd2,标题分别是Read和Save）。要求程序运行后，单击Read按钮，将文本文件

in99.txt中的所有数字渎到数组arr中，并在文本框内显示出来。随后Read按钮

变为无效；然后单击Save按钮，求出数组alt中的各元素的立方并赋值回相应的

元素，例如，arr⑵=2,则令art（2）=an■⑵*arr（2）*arr（2）=8。把计算后的数组的值全部

写入考生文件夹中的文本文件out99.txt中，并在文本框中显示出来，最后Save按

钮也变为无效。本程序不完整,请补充完

整，并能正确运行。要求；去掉程序中的注释符“7把程序中的问号"?”改为正

确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并

在原文件夹中保存修改后的文件。

（1）打开题目所给工程文件；

（2）注释语句改为：

□OpenApp.Path&&"in34.txt"ForInputAs1

□Print#1,arr（i）

标准答案：（3）按要求保存文件即完成本题。

知识点解析：暂无解析

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

3、在考生文件夹中有一个工程文件execise32.vbp（相应窗体文件为execise32.fnn）o

窗体Forml中已经给出了所有控件。其功能是：单击“读入”命令按钮，则把考生

目录下的in32.lxl文件中的所有英文字符放入Texll（可多行显示）：如果单击“统计”

命令按钮，则统计文本框中字母A、B、c、D各自出现的次数，并把结果在文本

框中显示出来，如下图所示；如果单击“保存”命令按钮，则把统计结果存入考生文

件夹下的out32.lxt文件中。文件中已给出了“读入”和“保存”按钮的Click事件过

程。请编写“统计”按钮的。ick事件过程。要求：（1）统计每个字母出现的次数

时，不区分大小写。（2）统计后的每个字母的次数必须存入考生文件夹卜的

oul32.txt文件中，否则没有成绩。在文件中的格式为：字母A出现的次数为xx字

母B出现的次数为xx字母C出现的次数为xx字母D出现的次数为xx注意：不

能修改已经给出的程序部分：在结束程序运行之前，必须单击"保存''按钮，把结果

存入oul32.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

(1万I弄题目所给工程文件r

(2)打开代码窗口输入如下代码：

PrivateSubCrid2_Click()

Fori=1ToLenCTextl.Text)

SelectCaseMid$(Textl.Text,i,1)

Case"a","A"：a=a+1

Case"b","B"：b=b+1

Case"c","C"：c=c+1

Case*d**D*：d=d+1

EndSelect

Nexti

Textl.Text='字母A出现的次数为"&Format(a,*00*)

Textl.Text=Textl.Text&vbCrLf&"字母B出现的次数为"&Format(b,"00")

Textl.Text=Textl.Text&vbCrLfa"字母C出现的次数为"&Format(c,"00")

Textl.Text=Textl.Text&vbCrLf&"字母D出现的次数为"&Format(d,*00*)

EndSub

标准答案：(3)按要求保存文件即完成本题。

知识点解析：暂无解析

VB机试模拟试卷第4套

一、基本操作题（本题共1题，每题i.o分，共［分。）

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

称为Forml的窗体上画一个名称为Listl的列表框，在属性窗口中为列表框添加三

个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为

File,此菜单下含有一个子菜单项，标题为“显示列表框"，名称为Show,初始状态

为选中，运行时的效果如图1-54所示。注意：存盘时，将文件保存至考生文件夹

下，且窗体文件名为sjtl.fim,工程文件名为sjH.vbpoffl1-54(2)新建一

个名称为：Form),标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编

写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标

题为“等级考试”，提示信息为“请输入”，默认值为，Basic"。如图1-55所示。注

意:存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm,工程文件

名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。

图1-55

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

Forml中画一个名为Listl的列表框，在其List属性中添加三个项目，依次为“北

京”、“上海”和“天津”，注意每输入完一项后按键换行再输入下一项。。步骤2：

新建一个“标准EXE”_L程，选择【工具】一【菜单编辑器】命令，打开菜单设计

器，如表2-28中的设置建立菜单项。

*228

标题名称是否复选内爆符号

文件file否0

显示列表框Show是1

件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，将窗体

Forml的Caption属性设置为“使用输入对话框步骤2：打开代码编辑窗口，编

写以下事件过程；参考代码；PrivateSubForm_Click()InputBox”请输入“，”等级

考试”，“Basic”EndSub步骤3：按要求将文件康存至考生文件夹中。

知识点解析：第1小题本题只需按要求画出控件和菜单并设置其相关属性即可。

第2小题InputBoxq()函数用于显示一个输入框，提示用户输入一个数据，该函数

返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt【，Title][,

Default.］)o其中，Prompl字符串为输入框上显示的提示文本；TiUe字符串在输

入框的标题栏上显示；Default字符串为输入框的缺省文本。本题需在窗体的Click

事件过程中，编写一行InputBox语句，其中Prompt参数值为“请输入"，Title参数

值为“等级考试"，Default参数值为"Basic”。

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

2、(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sit3.frm。其

功能是产生20个。〜1000的随机整数，放入一个数组中，然后输出这20个整数的

平均值。程序运行后，单击命令按钮(名称为Commands标题为“输出平均值)

即可求出其平均值，并在窗体上显示出来(如图1・136所示)。这个程序不完整，请

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

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

件按原文件名存盘。图M36(2)在考生文件夹下有一个工程文件

sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本

框。程序运行后，单击命令按钮，即可计算出0〜200范围内能被3整除的所有整

数的和，并在文本框中显示出来。在窗体的代码窗口中，己给出了部分程序，其中

计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。

要求：请勿改动程序中的任何内容，只在FunctionFun。和EndFunction之间填入编

写的若干语句。最后把修改后的文件按原文件名存盘。

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

sjt3.vbp,在代码编辑窗口，去掉程序中的注释符“？将问号”?”改为正确的内

容。参考代码：arrN(i)=Int(Rnd*1000)Sum=0Sum=Sum+arrN(i)Aver二Sum/20步

骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考

生文件下的本题工程文件sjt4.vbp,在代码编辑窗口，编辑Fun函数的内容。参

考代码：Sum=0Fori=0TO200IfiMod3=0ThenSum=Sum+iEndIfNexti

Fun=Sum步骤2：按要求将文件保存至考生文件夹中。

知识点解析：第1小题生成。〜1000范围内随机整数的表达式为：Int(Rnd*1000).

为求出30个随机整数的平均值，可首先预设累加和变量Sum=O,然后通过For循

环语句逐一将数组中的各元素累加到Sum中，循环结束后Sum的值除以数组长度

即得到平均值。第2小题判断整数A能被整数B整除的条件表达式为：AMod

B=0o本题原程序要求编写的Fun过程首先预设累加变量Sum=0,然后通过For循

坏逐一判断循环变量是否能被3整除。每找到一个能被3整除的数，则将这个数加

到累加变量Sum中。

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

3、在考生文件夹下有一个工程文件sjl5.vbp,相应的窗体文件为sjl5.frm,此外

还有一个名为datain.txt的文本文件，其内容如下：

32437658281298573142536475869713243546576879805937程序运行后，单击窗

体，将把文件daiain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列

的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图

1-124所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它

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

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

*Foral］而,X

»U:

Wa

M

Mn

n

*E

原文件名存盘。图224

标准答案:【操作步骤】步骤1：打开本题对应工程文件sjt5.vbp。步骤2：打

开代码编辑窗口，去掉程序中的注释符将问号？'改为正确的内容。参考代

码:DimMat%(M,N)OpenApp.Path&"\"&"in5.txt"ForInputAs#lInput#l,

Mat(i,j)Sum=0Sum=Sum+Mat(3,j)步骤3：按要求将文件保存在考生文件夹

中o

知识点解析：本题原程序的大致设计思路是：程序运行后单击窗体，则打开数据文

件in5.txt并从中读取数据，依次存入二维数组Mat(下界为1,上界为5)的各元素

中，故第一个?处是定义数组，应改为：Mal%(M,N)；第两个?处是指明打开文件

的方式，应改为：Fori叩ut第三个?处是将数据文件中的数据读入并赋值给数组元

素，应改为：Input#%j)o然后用一个嵌套的For循环将数组Mat中的数

据在窗体上按5行、5列的矩阵形式在窗体上显示出来，接着再用一个For循环将

数组Mat中第1维下标为3的数组元素arr(3,j)的值累加到变量Sum,故第4个？

处是应改为：O,第5个?处是应改为：Sum=Sum+Mat((3,j)。最后将Sum的值在

窗体上显示出来。

VB机试模拟试卷第5套

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

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

Forml的窗体上画一个名称为Piel的图片框，然后建立一个主菜单，标题为“命

令”，名称为Com,该菜单有两个子菜单，其标题分别为“输出”和“删除”，名称分

别为Pri和Del,编写适当的事件过程。程序运行后，如果单击“命令”菜单中的“输

出''命令，则将图片框显示出来；如果单击“删除”命令，则隐藏图片框。程序的运

行时的窗体界面如图11一1和图11一2所示。

♦Form!•Forml

命令命令

图11-1图11-2

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

sjl.frnio程序中不得使用任何变量。(2)在窗体上画一个列表框，名称为Listl,通

过“属性”窗口向列表框中添加3个项目，分别为“足球..「篮球”和“排球”。编写适当

的事件过程，使程序运行后，每次单击列表框中的任何一项，则总在最后面添加一

项“体育活动程序运行界面和运行效果分别如图11-3和图11—4所示。

皿旦BEEOfcxi

篮FT

拜际

工育活动

图11-3图11-4

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

sj2.frmo程序中不得使用任何变量。

标准答案：⑴根据题意，新建“标准EXE”工程.将一个图片控件添加到窗体中,

其名称设为Piel,按“Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项：

标签名称内缩

命令Com无

输出Pri一位

删除Del一位

设置完成后.双击输出命

令进入代码窗口，编写如下代码：PrivateSubDcl_Qick()，单击删除命令事件

Piel.Visible=FalseEndSubPrivateSubPri_Qick()'单击输出命令事件

Piel.Visible=TrueEndSub单击•按钮运行程序，并按要求保存。(2)根据题意,

新建“标准EXE”工程，将一个List控件添加到窗体中，其名称为List】。在其List

属性中按题目要求输入项目，每输完一个后按“Ctrl+Enter”组合键换行，输入下一

个元素，最后按回车键结束输入，双击List,进入代码编写窗口.编写如下代

码：PrivateSubListl_Click（）Lisll.Additem”体育活动”'添加选项EndSub单击.

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

知识点解析：暂无解析

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

2、（1）在窗体上画两个单选按钮，名称分别为Opl和Op2,标题分别为“黑体”和

“楷体，，；一个文本框，名称为Textl,字体为宋体，字号为四号字；有一个命令按

钮，名称为C1,标题为“切换”。要求程序运行后，在文本框中输入“等级考试”，

并选择一个单选按钮，如图55—4所示。在单击“切换”按钮后，会根据所选的单选

按钮来切换文本框中所显示的汉字字体,如图55—5所示。

图55-4图55-5

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

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

sj4.frmo请在名为Forml的窗体上绘制一个名称为Textl的文本框和一个名称为

CmdK标题为“大小写转换”的命令按钮，如图55—6,55—7所示。

图55-6图55-7

如图55—6,55—7所示，在程序运行时，单击“大小写转换”按钮，可以把Textl中

的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“大小写

转换“按钮的Click事件过程，但不完整，清去掉程序中的注释符仆“，把程序中的

问号，？，改为正确的内容。注意：不能修改程序的其他部分。最后，按原文件名并

在原文件夹中保存修改后的文件。

标准答案：（1）本题主要考查单选按钮和文本框的综合应用。单选按钮和切换按钮

是通过它们的Caption属性来设置的，当单击“切换”时触发它的Click事件来使文

本框的内容改变。文本框的字体设置通过它的Font属性来实现。窗体的控件及其

属性已经建好，只需编写事件过程空缺的代码即可。①程序中用到的控件及其属

性见下表：

控件属性设置值

小选按钮NameOp]

单选按钮Caption黑体

中选按钮NameOp2

单选按钮Caption精体

文本框NameTextl

命令按钮NameCl

命令按钮Caption切换

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

码如下：OptionExplicitPrivateSubCl_Click()IfOplThen

Tcxtl.Font=Opl.CaptionEndIfIfOp2ThenTextl.Font="楷体_GB2312"EndIf

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

②单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口

设置该文本框名称为Tcxtl。③单击工具箱中的CommandButton控件图标，在窗

上拖出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl,Caplion属性为

“大小写转换”。④将注释语句改为：n%=Asc(',a")-Asc(,'A")b$=String(l,

Asc(b$)+n%)Textl.Tcxt=a$⑤按要求保存文件即完成本题。

知识点解析：暂无解析

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

3、在名称为Forml的窗体上有一个Label控件和两个命令按钮，数据文件

person),dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型

数据定长为12；按“开始”按钮后，从考生文件夹下的pcrsonl.dat中读出所有数据

并写人考生文件夹下的person.dat文件中；执行完毕，“开始”按钮变成“完成”，

•HHD

精温g线产

-I

且无效(变灰)，如图39—6所示.图39-6注意：去掉程序中的

注释符”巾，把程序中的“?”改为正确的内容。考生的工程文件以文件名sj5.vbp存

盘，窗体文件以文件名sj5.frm存盘。

标准答案：本题要利用EOF()函数判断是否到文件末尾。根据题意，将一个标签控

件和两个命令按钮添加到窗体中，标签控件的Caplion属性为“从源文件./

personI.dat中读人数据，保存到目标文件./person.dal中”，命令按钮的名称分

别为Commandl和Command?,Caption分别为“开始”和“保存”，设置完成后双击

Cornmandl进入代码编写窗口，具体代码如下：PrivateTypeperson'结构体声明n

AsIntegernamAsString*12"ham为12个字符salaryAsIntegerEndTypeDim

per()AspersonDimhumAsIntegerPrivateSubCommandI_Click()DimtrapAsperson

Diminum=0Open"App.Pathg&/personl.dat"ForInputAs#l，打开文祥准蓍读人

WhileEOF(l)=Falsc'EOF判断是否读到最后Input#l,trap.n,trap.nam,

imp.salary，读取结构体的各个元素num=num+l，计数加1WendClose#1ReDim

per(num)Asperson'重新声明结构体Open"App.Path&/personl.dat'TorInput

As#l'打开文件准备读入Fori=lTonunf循环读取Input#l,pcr(i).n,

per(i).nam,per(i).salary'向数组中读取数据NextiClose#1

Commandl.Enabled=False'Commandl可用Commandl.Caption="完成

"'Commandl标示改为完成EndSubPrivateSubCommand2_Click()DimiAsInteger

Open^App.Pathg&/person.dal'TorAppendAs#l'打开文件准备写入Fori=lTo

num'循环写入Print#1，per(i).n,per(i).nam,per(i).salary'写入数据Nexti

Close#1EndSub单击学之按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第6套

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

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

名称为Forml的窗体上建立一个名称为Commandl、宽度为1600、高度为600、标

题为“输出”的命令按钮，编写适当的事件过程，要求程序运行后，如果单击“输出”

命令按钮,则在窗体上显示“HelloWorld!”,如图28—1所示。程序中不能使用任

何变量，直接显示字符串。注意：保存时必须存放在考生文件夹下，窗体文件名

为sjl.frm,工程文件名为sjl.vbp0(2)在名称为Forml的窗体上建立两个名称分

别为Commandl和Comma.nd2、标题分别为“上午”和吓午”的命令按钮，以及一

个标签，标签名称为label,capflon属性为空。编写适当的事件过程，要求程序运

行后，如果单击“上午”命令按钮，在窗体上显示“上午9：00-12：00”；如果单击

“下午”命令按钮，在窗体上显示“下午12：00〜18：00"。程序中不能使用任何变

量，直接显示字符串。程序运行结果如图28—2所示。

・.Forml-lolX|•Forml-101x|

HeloWakf上午g：oo-i2：oo

上午下午

图28T图28-2

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

sj2.vbpo

标准答案：⑴命令按钮的高度由Height属性设置，宽度由Width属性设置，单击

命令按钮触发Click事件；在窗体上打印信息通过Print方法来实现。根据题意，

新建“标准EXE”工程，将一个命令按钮添加到窗体中，其名称为Command1、

Caption属性为输出,Height属性为600、Width属性为1600。双击命令按钮进入

代码窗口，编写如下代码：PrivateSubCommand!Click()Print”HelloWorld!”End

Sub单击袋按钮运行程序，并按要求(2)单缶命令按钮触发Click事件，命

令按钮的标题由其Caption属性设置：在窗体上打印信息通过Print方法来实现。

根据题意.新建“标准FXF”T程.将两个命令按钮和--个标签添加到窗体中,将

两个Command的名称分别设为Command1和Command2>Caption属性分别设为

“上午，，和“下午，，，标签的名称为Labell、Caption属性为空，设置完成后双击

Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()

Forml.CisPrinl”上午9：00—12：00"EndSubPrivateSubCommand?Click()

Forml.CisPrint”下午12：00—18：00"EndSub单击,按钮运行程序,并按要求

保存。

知识点解析：暂无解析

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

2、(1)在窗体上绘制一个名称为Textl的文本框和一个名称为cmdl、标题为“计算”

的命令按钮，如图4-3所示。程序运行后，单击“计算”命令按钮，通过在对话框

输入整数12,放入整型变量a中，然后计算a!(提示：运算结果应放入Long型变

量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out.txt中c考

生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdala,

考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为

sj3.frm,工程文件名为sj3.vbp。

考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Forml的窗

体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框,

窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件

已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复

选框，则对文本框中的文字进行相应的设詈，如图4-5所示。

图।'窗体上的控件已经绘制出，但没有给出主要程序内

容，请编写适当的事件过程，完成上述功能。注意：不能修改己经给出的程序部

分和已有的控件：在结束程序运行之前，必须选中一个单选按钮和至少一个复选

框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无

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

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

序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数

InputBox来实现（通过VisualBasic系统本身提供的）。本题主要是考查循环语句的

应用.计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结

果进行保存。①建立界面并设置控件属性。程序中用到的控件及其属性见下表：

控件属性设置值

文本框NameTextl

命令按钮NameCmdl

命令按钮Caption计算

②声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定，

题目要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长

整型。（例如：DimtempAsLong）③打开工程资源管理器，在其空白处右键添加模

块mode.bas（此文件已在考生文件夹里），模块代码如下：OptionExplicitSub

putdata（t_FilcNamcAsString,T_StrAsVariant）DimsFilcA8StringsFilc=n\

"&t_FileNameOpenApp.Path&.sFileForOutputAs#lPrint#I,T_StrClose#IEnd

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

代码如下：PrivateSubCmdlClick()DimaASIntegerDimtempAsLongDimiAS

Integera=Val(InputBox('请输入"))temp=1Fori=lToVal(a)teinp=temp*iNexti

Text).Text=tempputdata"out.txt",Textl.TextEndSub⑤调试并运行程序。⑥

按题目要求存盘。(2)①打开题目所给工程文件。②打开代码窗口输入以下代

码:PrivateSubCmdlClick()IfOptl.Value=TrueThenTextl.Font="宋体"Else

Text).Font="隶书"EndIfIfChkl.Value=lThenTextl.FontUnderIine=TureElse

Textl.FontUnderline=FalseEndIfIfChk2.Value=lThenTextl.FontIlalic=True

ElseTextl.FontItalic=FalseEndIfEndSub③按要求保存文件即完成本题。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.