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

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

（共27题）

VB机试模拟试卷第1套

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

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

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

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

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

注意：程序中不得使

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

件名为exeeise22.fnrio

标准答案：

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

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

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

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

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

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

□PrivateSubHS1Chance0

□□Forml.Width=HS1

□EndSub

□PrivateSubVSl_Change0

□□Forml.Height=VSI

□EndSub

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

知识点解析：暂无解析

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

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

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

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

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

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

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

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

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

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

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

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

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

（2）注释语句改为：

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

□Print#1,arr（i）

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

知识点解析：哲无解析

三、综合应用题（本题共I题，每题7.0分，共I分°）

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

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

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

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

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

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

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

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

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

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

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

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

(1)打开题目所给工程文件；

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

PrivateSubCrid2_Click()

Fori=1ToLenCTextl.Text)

SelectCaseMid$(Textl.Text,i,1)

Casea=a+1

Case""B"b=b+1

Casec,Lc=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机试模拟试卷第2套

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

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

称为Forml、标题为“框架”的窗体上画一个名称为Framel,且没有标题的框架。框

架内含有两个单选按钮，名称分别为OpH和叩t2、标题分别为“字体”、“大小”，

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

sjtl.vbp,窗体文件名为sjU.frm。图1-216（2）考生文件夹下的工程文件

sjt2.vbp中有一个由直线Linel、Line2和Line3组成的三角形,直线Line】、Line2

国要求画一条直线Line4以构成三角形的高，且

和Line3的坐标值见表1-10：

该直线的初始状态为不可见。再画两个命令按钮，名称分别是Cmdl、Cmd2,标题

分别为“显示高”、“隐藏高”，如图1-217所示。请编写适当的事件过程，使得在运

行时:单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形

的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修

改已经存在的控件，最后将修改后的文件按原文件名存盘。

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

12-126控件属性设・

对款属性

NameForml

窗体

Caption框架

框架NameFrame1

NameOp!

单选按钮1

Caption字体

NameOp2

单选按钮2

Caption大小

126在窗体上绘制控件并设置属性。

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

本题工程文件sjt2.vbp,在窗体中画一个直线控件和两个命令按钮，并设置其相

«2-127

对象愿性值

NameLme4

XI1600

Y1300

直线

X21600

Y21200

VisibleFalse

NameCmdi

按钮1

Caption0示局

NameCmd2

按钮2

Caption陷藏高

关属性如表2-127所示。步骤2：打

开代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PrivateSub

Cmdl_Click()Line4.ViSibIe=TrueEndSubPrivateSubCmd2_Click()

Line4.Visible=FalseEndSub步骤3：按要求将文件保存至考生文件夹中。

知识点解析：第1小题本题只需按题目要求画出框架和单选按钮，并分别设置其

属性。第2小题Visible(可见)属性用于设置控件或菜单项在程序运行时是否可

见，值为True表示可见，值为False表示不可见。本题的考核要求有两项。

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

2、(1)在考生文件夹下有一个工程文件sjt3.vbp,运行情况如图1-23所示。程序

的功能是计算表达式的值：z=(x-2)!+(x-3)!+(x-4)!+...+(x-N)!其中的N和x值通过键

盘分别输入到两个文本框Texil、Tex12中。单击名称为Command］、标题为“计算

的命令按钮，则计算表达式的值，并将计算结果显示在名称为Labell的标签中。

在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释

符，把程序中的?改为正确内容。要求：程序调试通过后，必须按照如图1-23所示

输入N=5,x=12,然后计算z的值，并将计算结果显示在标签Labell中，否则没有

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

件名存盘。图1-23(2)在考生文件夹下有一个工程文件

sjt4.vbpo窗体上有名称为Labell的标签和名称为Timeri的计时器控件。该程序

的功能是在名称为Labell的标签中循环显示不同的字符串。程序开始运行，在标

签中显示“第一项”(如图1-24所示)，且每隔1秒钟依次显示“第二项”、“第三项，

“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完

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

序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

■For«l•tlX

图1-24

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

Sjl3.Vbp,在代码编辑窗口，去掉程序中的注祥符“…，将问号"?”改为正确的内

容。参考代码：tmp=ltmp=temp+ixn=tmpz=z+xn①步骤2：按键键运行程序，在

第一个文本框中输入5,第两个文本框中输入12,然后单击“计算”按钮。步骤3：

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

件中的本题工程文件sj乩vbp,在代码编辑窗口，去掉程序中的注释符“小，将问

号"?”改为正确的内容。参考代码：arr=Array（"第一项“，“第二项“，“第三项“，"

第四项"）StaticiAsIntegerLabel!.Caption=arr（i）i=0步骤2：按要求将文件保存至

考生文件夹中。

知识点解析：第1小题本题原程序中，自定义函数xn的功能是进行m!阶乘运

算，它通过P。!"循环连续m次将循环变量i的值乘以累积变量tmp（第一个?处map

初值应为1）来实现。故自定义函数xn中第两个?处应改为：tmp*i,作为函数返回

值第三个?处应改为：）xno在“计算”按钮的单击事件过程中。根据程序所要计算表

达式的特点，原程序利用一个For循环依次计算表达式中各项的值（（x・i）l）,并称其

累加入变量z。计算表达式中各项的值通过调用自定义函数xn⑴来实现的，其中

I二x-i。故Commandl_Click事件过程中第一个?处应改为：xn（t）o计算结果显示在标

签中。第2小题要呈现本题中的功能，在窗体的Load事件过程中，首先使用

Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器

的Timer事件中，由于需要计算Timer事件的执行次数才能判断出应该显示何种文

字，因此计数变量i应该声明为Static类型的变量，然后把数组的第i项显示在标

签中，接下来令i+1,一旦i超过了3就将其重新置O以便实现循环显示。

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

3、在考生文件夹中有一个工程文件sjt5.vbpo窗体外观如图1-58所示。运行程

序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在Label2标签

中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的

Labcl4控件中。要求：工程文件中已给出部分程序，“读数据”命令按钮的事件过程

不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。请编写,•排序”命

令按钮的事件过程中的部分程序代码。注意：不能修改程序的其他部分和控件属

性。最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件

.F...>=后■

*M*prar-

3曰11•厚i

过程必须至少各执行一次。图1-58

标准答案：【操作步骤】步骤1:打开考生文件夹中的本题工程文件Sj15.Vbp,

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

码：DoWhileNothOHI)s=s&Str(a(i))步骤2：在代旧编辑窗口指定位置编写以下

代码：参考代码：num=UBound(a)Fori=lTonum-1Forj=iTonumIfa(i)>a(j)Then

t=a⑴a⑴=a(j)a(j)=tEndIfNextNext步骤3：按键运行程序，先单击“读数据”按

钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤4：按要

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

知识点解析•：冒泡法的核心思路是按顺序让一个数列中的每一个数都与它之后的

所有的数逐一进行比较，如果该数大于其后面的数。则把这两个位置的数进行交

换。通过这样的循环，最终按照从小到大的顺序排列出该数列。设计思路：在“读

数据”按钮的单击事件中，首先使用D。While当型循环结构从文件中读取全部数

据，并以NoiEOF(文件号)(非文件结尾)作为循环条件，通过Input#语句将打开文

件中的数据逐一读出后赋值给a(i),然后将数组连接起来显示在标签中。在“排序”

按钮的单击事件过程中，原程序利用“冒泡法”对记录数组中的元素从小到大进行排

序。

VB机试模拟试卷第3套

一、基本操作题(本题共/题，每题1.0分，共1分0)

1、(1)请在名称为Form1的窗体上绘制一个名称为H1水平滚动条，请在属性窗口

中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为

100,在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，

滚动框移动10个刻度。再在滚动条下面画两个名称分别为U和L2的标签，并分

别显示1和100.运行时的窗体如图44-1所示。注意：存盘时必须存放在考生文

件夹下，工程文件名为sjl.vb,窗体文件名为sjl.frm。(2)在窗体上画两个文本

框，名称分别为Textl和Text2。请设置适当的控件属性，并编写适当的事件过

程，使得在运行时。如果在Textl中每输入一个字符，则显示一个“*”，同时在

Texl2中显示输入的内容，如图44—2所示。程序中不得使用仟何变量。

图44-1图44-2注意：存

盘时必须存放在光盘相应目录下，工程文件名为m2.vbp,窗体文件名为

sjt2.firn。

标准答案：（1）根据题意，新建“标准EXE”工程，将一个滚动条控件和两个标签控

件添加到窗体中，滚动条的名称为Hl,Min属性为1,Max属性为100,

LargeChange属性为10,两个标签的名称分别为L1和L2,Caption属性分别为“1”

和100o设置完成后，且击按钮运行程序，并按要求保存。（2）建立界面并设置控

件属性。程序用到的控件及其属性见下表。双击“工具箱”中的文本框控件在窗体

上建立2个文本框，用鼠标分别拖动它们的边框到合适的大小，然后再用鼠标将它

们分别调整到合适的位置。并按下表分别设置它们的属性。

控制偈性设置值

Name

文本框Textl*

PasswordChar

文本框CopyTcxt2

编写程序代码。PrivateSubTextl_Change（）Text2.Text=Textl.TextEndSub然

后，调试并运行。最后，按题目逐求存盘。

知识点解析：暂无解析

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

2、（1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,在窗体上画一个

名称为Textl的文本框和两个名称分别为Command1和Command2标题分别为

“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，

则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大

写字符串A；如果单击“小写a”命令按钮，也弹出对话框，输人要显示的个数，根

据输入的数值在文本框中显示相应数量的小写字符串ao程序运行时的窗体界面如

312£i

H入今世

图5—3所示。图N

注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及弋码

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

夹。（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,在窗体上有一

个名称为HScrolll的水平滚动条（Min为400,Max为2000）和三个名称分别为

Command1>Command2WCommand3>标题分别为“减200”、“显示”和“力口200”的

命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单

位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“力口200”命令按

钮，则滚动块向右滚动200单位。程序运行时效果如图5—所示。

8•00hvml

41I•|

Jj」........

MJP]L0I8P200I

图51注意：请在有“?”的地方正确内容，然后删除“?”及代码

前的所有注释符（即号），但不能修改其他部分。编写程序使程序运行时满足下列

的条件。存盘时不得改变文件名和文件夹。

标准答案：（1）本题主要考查考生对For循环、文本框内容的显示和InputBox。函数

的理解。Inpu,Box（）函数用于显示一个输入框，提示用户输入一个数据，该函数返

回值默认为字符串类型，其常用语法格式为：InpulBox（Prompl［,Title］，

Default］）o其中.Prompt字符串为输入框上显示的提示文本；Title字符串在输入框

的标题栏.i：显示；Default字符串为输入框的缺省文本。根据题意，将一个文本

框控件和两个命令按钮添加到窗体中，文本框的名称为Texll、Text属性为空，命

令按钮的名称分别为Commandl和Command?Caption属性分别为“大写A”和“小

写a"。双击Commandl进入代码窗口，补充后的代码如下：PrivateSub

Commandl_CIick（）DimaAsIntegerDimstrAsStringDimiASInteger

a二Val（Inpu〔Box（"输入个数"））'读取输入的个数str="MFori=lToastr=str+"A”'循环

写入大写字母“A”NextiTcxtl.Text=str，在Tcxtl中显示结果EndSubPrivateSub

Command2_Click（）DimaAsIntegerDimstrASStringDimiAsInteger

a=Val（InDutBox（"输入个数"））'读取输入的个数slr=,MFori=lToaslr=slr十“a"，循环

写入小写字母"a”NexliTexU.Text=str'在Texll中显示结果EndSub单击*'按钮

运行程序，并按要求保存。（2）滚动条常用于取代数据的键盘输入，通过调整滚动

条滑块的位置即可改变其Valtie属性的值。滚动条的Max属性、Min属性限定了

滚动条所能表示的最大值和最小值，即Value属性值的取值范围.在程序中改变

Value属性的值，滚动条滑块会随之移动到相应位置。根据题意，将一个水平滚动

条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScrolH、Min属性为

400、Max属性为2000.命令按钮的名称分别为Command］、Command2和

Commands,Caplion属性分别为“减200”、“显示”和“加200”。双击Command1进

入代码窗口，编写如下代码：PrivateSubCommandl_Click()IfHScrolll.Value-

200Value'在窗口上显示HScrolll的当前值EndSubPrivateSubCommand3_Click()

IfHScroll1.Value+200>HScrol11.MaxThen，如果移动后大于最大值

HScrolll.Vaiue=HScrolll.皿'则HScrolll的值为最大值Else'否则

HScrolll.Vakie=HScrolll.Value4-200?HScrolll的值加200EndIfEndSub单击;津"

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

知识点解析：暂无解析

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

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

的文本框.两个命令按钮，名称分别为Commandl和Command2,命令按钮上分别

显示“读入”和“排序”(如图70—5所示)。程序运行时单击“读入”按钮，将文件

in5.dal中的数据读人数组a中，单击“排序”则把数组a中的数值按照升序排列，

CSSDMB一—凶|

女3686第TUBTOT

陷17t-T773790614

KS8W87191!

KOM2WOW6

并显示在文本框中。图70-5注意：请在有“?”号的地方填入

正确的内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部

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

标准答案：(1)本题主要考查了从文件中读取数据和数据的排序。要从文件中读取

数据，首先要打开文件，在读文件的时候要用到EOF函数判断文件是否已读完。

本题补充后的代码如下：Dima()AsIntegerDimnumAsIntegerPrivateSub

Comniandl_Click()DimstrAsStringnum=0str=""Open"App.Path&\in5.dat"For

InputAs#「打开文件准备读取WhileEOF(l)=Falsc，查看是否读到文件尾Input#1,

str，读取文件num=num+1，计数WendClose#1，关闭文件ReDima(num)，动态分配数

组空间DimiAsIntegerstr=H"Open"App.Path&\in5.dat"ForInputAs#lFori=1

Tonum「利用For循环Input#1,a⑴，逐个读取数据str=str+CStr(a⑴)将数组写

入字符串中NextiClose#1Textl.Textstr，将字符串显示在Textl中EndSubPrivate

SubCommand2Click()DimtexAsStringFori=lTonum'升序排列temp=a(i)Forj=l

ToiIfa(j)>tempThen，读取的数据比原位置的数据大Fork=iToj+1Step-1a(k)=a(k-

1)'数据向后偏移一个Nextka(i)=tempExitForEndIfNextjNextitex=nnFori=lTo

40tex=rex+CStr(a(i))+""NextiTextl.Texl=lex'在Texll中显示排序后的结果

Open"App.Path&\out5.txt"ForOutputAs#2Print#2,TextLTextClose#1EndSub

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

知识点解析：暂无解析

VB机试模拟试卷第4套

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

1、（1）在名称为Forml的窗体上画一个名称为Checkl的复选框数组，它含4个复选

框，它们的标题依次为“Iteml"、'Ttem2"、“Item3”和其索引号分别为0,

1,2,3o初始状态下，“Iteml”和为选中状态。程序运行后的窗体界面如图

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

文件名为sjl.frm。（2）在名称为Forml的窗体上画一个名称为VScrolH的垂直滚动

条,其刻度值范围为1~200；画一个命令按钮,名称为Command］、标题为“向下

移动请编写适当的事件过程，使得程序运行时，每单击命令按钮一次（假定单击

次数少于10次），滚动块向下移动20个刻度。程序运行时的窗体界面如图19—2

所示。要求程序中不得使用变量，事件过程中只能写一条语句。

•Forml.ini-Si^EBB.■ADiJiJ

「Z-EM|

r।-------*

图191图19-2注意：

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

sj2.frm。

标准答案：（1）本题主要考查在窗体中添加控件数组及设置复选按钮控件

（CheckBox）的Value属性。控件数组是一组具有共同名称和类型的控件，它们拥有

共同的事件，数组中的每个控件都有唯一的索引号（Index）,即下标。添加控件数组

的方法是：先通过工具箱建立第一个控件，然后对该控件进行“复制”、"粘贴”操

作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动

从0开始编号。复选按钮组可用于提供多重选择，每个复选按钮的选中状态由其

Value属性值决定：0-UnChecked为未选；1-Checked为选中：2-Grayed为禁用（即

灰色）。根据题意，新建“标准EXE”工程，将一个复选按钮控件添加到窗体中，再

选中、复制、粘贴，在弹出的对话框中单击“是“，即创建一个控件数组，设置其

Index属性分别为0、1、2、3,Caption属性分别为Tteml“、"Item2"、“Item3”和

“heml”和的值为1,“Item2”和的属性为0,单击■按钮运

行程序，并按要求保存。（2）本题主要考查滚动条（HScrollBar）控件的画法、属性设

置及简单事件的编写。滚动条多用于取代数据的键盘输入，通过调整滚动条滑块

的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所

能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性

的值，滚动条滑块会随之移动到相应位置。根据题意，新建“标准EXE”工程，将

一个垂直滚动条控件和一个命令按钮添加到窗体中，垂直滚动条的名称为

VScrollKMin属性为1、Max属性为200,命令按钮的名称为Commandl、Caption

属性为“向下移动双击命令按钮进入代码窗口，编写如下代码：PrivateSub

Commandl_Click（）VScrolll.Value=VScrolll.Value+20'每按一次按键，则VScroll

的数值加20EndSub单击;宾:按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在窗体上设置两个标签，名称分别为Label1与Labcl2、标题分别为“当前时

间为：”和空；要求当单击窗体时，Label2显示当前时间。请编写相应的程序代码

来完成这个功能。程序运行时的窗体界面如图21—3所示。注意：要求考生在编

写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3.vbp

与sj3.frm。（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程

序是不完整的。本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生

一个。或1的整数，相当于一次投币，1代表正面，O代表反面。在窗体上画3个

名称分别为TextlsText2和Text3的文本框与一个名称为Command1的命令按钮，

其中Commandl的标题为“开始”。文本框分别用于显示用户输入投币总次数、出现

正面的次数和出现反而的次数。程序运行后，在文本框Textl中输入总次数，然后

单击“开始”按钮，按照输人的次数模拟投币，分别统计出现正面、反面的次数，并

显示结果。如图21―4所示。

•fwml

•Foral-101x|总灿［67-

正面叵-

当前时何力：

反而用一

1624:38

■21-3图21-4

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

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

标准答案：(1)本题主要考查计时器控件和简单事件编程。计时器控件用以实现在

规定的时间间隔触发其Timer事件，执行有关事件过程代码来完成对应功能。

Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为亳秒。Enabled

属性控制计时器是否开始启用，True为启用，False为不启用；Time。函数用于返

回系统当前时间。根据题意，新建“标准EXE”工程，将两个标签添加到窗体中，

名称分别为Labcll和Label2,Caption属性都为空，设置完成后双击Forml,进入

代码窗口，编写如卜代码：PrivateSubForm_Click()Label2.Caption=TimeEnd

Sub单击步按钮运行程序，并按要求保存。(2)Rnd()函数用于产生0〜1之内的随

机数。根据题意，将3个标签、3个文本框控件和一个命令按钮添加到窗体中，标

签的Caption属性分别为“总次数”“正面”和“反面”，文本框的名称分别为Textk

Text2和Text3,Caption属性为空，命令按钮的名称为Command】、Caption属性为

“开始"。双击Command1进入代码窗口，编写如下代码：PrivateSub

Conimandl_Click()DimaAsIntegerDimiAsIntegerDimblAsIntegerDimb2As

Integerbl=0b2=0a=Val(Textl.Text)'通过Textl获得总的次数Fori=lToaa=RndO'

取随机数Ifa=lThenbl=bl±l'当随机到1时，则bl加1Elseb2=b2+l，当随机到0

时，则b2加1EndIfNextiText2.酗尸bF在Text2中显示1的个数Text3.Text

b2,在Text3中显示0的个数EndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sj5.vbp,其窗体上有4个标签Labcll、

Lable2、Label3和Label%标题分别为“用户名”、“密码”、“剩余次数”和“5”；一个

命令按钮Command］、标题为“登录”：两个文本框名称分别为Textl和Text2,其中

Textl用来输入用户名，Tcxt2用来输入密码(输入时，显示“*”)，无初始内容。程

序给出了Command1的事件过程，但不完整，要求去掉程序中的注释符“小，把程

序中的“?”改为正确内容，使得在运行时,在Textl中输入用户名，Text2中输入密

码后，单击“登录”按钮，如果输入的用户名和密码都是“abed”时，则在Textl中显

示“登录成功”；如果输入其他内容，单击“登录”后，弹出如图35—5所示的错误提

示对话框，并且Label4中的数字减1。最多可输人5次口令，若5次都输入错误，

则禁止再次输入。注意：不能修改程序中的其他部分。最后把修改后的文件按原

文件名存盘，运行结果如图35-5所示。图35-5

标准答案：在文本框里显示的内容通过Text属性设也，其格式为：文本框

名.Text二显示的内容。要使文本框内容显示为“*"，需将PasswordChar属性设置

为“*MsgBox函数的珞式为：MsgBox提示L按钮］［,标题］根据题意，将4个

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

Label2、Label3和Label4,Caption属性分别为“用户名”、“密码”、“剩余次数”和

“5”，文本框的名称分另!为Textl和Text2、Caption属性都为空,Text2的

Passwordchar属性为“*"，命令按钮的名称为Commandl,Caption属性为“登录工

补充后的具体代码如下：PrivateSubCommandlClick()IfTextl.Text="abcd"And

Text2.Text="abcd"ThenMsgBox("登录成功“)ElseMsgBox("登录失败”)

Labcl4.Caption=Val(Labe14.Caption)-1EndIfIfVal(Labcl4.Caption)=0Then

Textl.Enabled=FalseText2.Enabled=FalseCommandl.Enabled二FakeEndIfEnd

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

知识点解析：暂无解析

VB机试模拟试卷第5套

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

1、(1)在Forml的窗体上画一个名称为I.abell的标签，然后建立一个主菜单，标

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

其名称分别为Pri和Close。编写适当的事件过程，使程序运行后，如果单击“命

令''菜单中的“输出”命令，则在标签中显示“模拟考试”；如果单击“关闭”命令，则

结束程序运行。程序运行时，单击“输出”命令的效果如图40-1所示。注意：存盘

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

在窗体上画一个列表框，名称为Lisll,通过“属性”窗口向列表框中添加5个项目，

分别为“足球”、“篮球”、“排球”、“乒乓球”和“羽毛球”，单击列表框中的一项，则

该项就从列表框中删除。程序的运行情况如图40-2和图40-3所示。

EXSSHK«iDixiCBSKt-inix)

W毛印

图40-1S40-2图40-3

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

sj2.frnio

标准答案：（1）根据题意，新建“标准EXE”工程，将一个标签添加到窗体中，其名

称设为LabelKCaption属性为空，按“Ctrl+E”组台犍打开菜单编辑器，在其中添加

标签名称内缩

命令Com无

输出Pri一位

关闭Close一位

相助vbHelp无

如下菜单项：单击“确定”

按钮，完成菜单设计，垄对应事件窗□中编写如下代码：PrivateSub

CloseClick。,单击关闭命令的处理函数UnloadMeEndSubPrivateSubPri_Click（）'

单击输出命令的处理函数LabelI.Caption="模拟考试"EndSub单击;•按钮运行程

序，并按要求保存。（2）本题考查用Removehem方法删除列表框中指定的项目。

其格式为：列表框.Removeitem索引值。Removellem方法从列表框中删除以“索

引值”为地址的项目，该方法每次只能删除一个项目。Listlndex属性是已被选中的

表项的位置。如果没有诜中任何项，Listindex的俏将设置为-1。根据题意，新建

“标准EXE”工程，将一个List控件添加到窗体中，其名称为Lisll,在其List属性

栏中输入元素，每输入一个后按“Ctrl+enter”组合键换行输入下一个元素，当输入

完成后，按回车键。双击List进入代码编写窗口，编写如下代码：PrivateSub

Listl_Click（）Listl.RemovehemListl.Listindex'removeitem的参数是索引号End

Sub单击热•'按钮运行程序，并按要求保存。

知识点解析：暂无解析

二、简单应用题（本题共［题，每题1.0分，共［分c）

2、（1）在名称为Forml的窗体上画两个图片框，名称分别为Pl、P2,高度均为

1900,宽度均为1700。通过属性窗口把图片文件picl.bmp放入Pl中，把图片文

件pic2：jpg放入P2中；再画一个命令按钮，名称为C1,标题为“交换图片”（如图

1-208所示）。编写适当的事件过程，使得在运行时，如果单击“交换图片”按钮，则

在Pl中显示pic2.jpg,在P2中显示picl.bmp。程序中不得使用任何变量，也不

能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为

sjt3.vbp,窗体文件名为sjl3.frmo图卜208(2)在考生文件夹

下有一个工程文件sjt4.vbp,请在窗体上画两个复选框，名称分别为Chi、Ch2,

标题分别为“程序设计”、“数据库原理“；然后画一个文本框，名称为TexU；再画

一个命令按钮，名称为。，标题为“确定”(如图1-209所示)。请编写适当的事件过

程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照下表的要求把结果

显示在文本框中。存盘时，工程文件名为sjl4.vbp,窗体文件名为sjt4.frm。注

意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上

角的关闭按钮。在结束程序运行之前，必须进行产生表1-9一个结果的操作。

豪1-9

程序设计数据库原理在文本框中显示的内容

不选不选我选的课是

选中不选我选的课是程序设计

不选选中我选的课是数据库原理

选中选中我选的课是程序设计数据陈原理

图1-209

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

Forml中如表2-122画出所列控件并设置其相关属性。

*2-122

对象属性值

NamePl

Picturepicl.bmp

图片框1

Width1900

Height1700

NameP2

Pictureptc2.bmp

图片柩2

Width1900

Height1700

NameCl

命令按钮

Captin邰髓—步骤2：打开代码编辑窗口，编写命令

按钮的Click事件过程：参考代码：PrivateSubCI_Click()Piel.Picture=LoadPi

cture(App.Path+\pic2.bmp")Pic2.Picture=LoadPicture(App.Path+H\

picl.bmp”)EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操

作步骤】步骤I：打开考生文件中的本题工程文件尔3.vbp,如表2-123在窗体中

画出控件并设置属性。步骤2：在代码编辑窗口，编写“确定”按钮的单击事件。

参考代码：PrivateSubCI_Click()Tcxtl.Text="我选的课是“IfChi.ValueThen

Textl.Text=Textl.Text+Chl.CaptionEndIfIfCh2.Value=lThen

Textl.Text=Textl.Text+Ch2.CaptionEndIfEndSub步骤3：按要求将文件俣存

*2-123控件属性设置

对象属性值

NameChi

复选枢1

Caption程序设计

NameCh2

复选框2

(aption数据库原理

NameTextl

文本框