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

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

（共27题）

VB机试模拟试卷第1套

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

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

称为Forml、标题为“标签”的窗体上画一个名称为LabeH的标签，并设置适当属性

以满足以下要求：①标签的内容为“计算机等级考试”；②标签可根据显示内容自

动调整其大小；③标签带有边框，且标签内容显示为三号字。运行后的窗体如图

1-11所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjU.vbp,窗

■“二."x

的t机等级死

体文件名为sjtl.frm。（2）在名称为Forml的窗体上画一个名

称为Hscro山的水平滚动条,其刻度范围为1—100；再画一个名称为Textl的文本

框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，

使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图1-12所

示。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必

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

■Fu.al=~|色X

图M2

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

Fontal中画一个标签，并设置它的相关属性，其属性和值如表2-8所示。

衰2田

对氨属性值

NameLabcll

Caplion计算机等级考试

标签FontName三号

AutoSizcTrue

BorderStylc1

窗体Caption标签

步骤2：按要求将文件保存至考

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

Forml中画一个命令按钮和一个水平滚动条，在属性设置窗口中设置其相关属性，

表2-9

对儆・性设・值

NameHScrolll

Max100

水平滚动条

Min1

Tablndcx0

NameText!

文本框

Text1

其属性及值如表2.9所示。步骤2：

打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：PrivateSub

HScrolll_Change（）Textl.Text=HScrolll.ValueEndSub步骤3：按要求将文件保存

至考生文件夹中。

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

题控件的Tabindex属性可设置或返回其在当前窗体中的Tab链次序，所谓Tab键

次序是指按键或键时，焦点从一个对象移到另一个的次序。通常在窗体上画控件

时，VB会自动为其分配Tab键顺序（Menu、Timer、Data、Image、Line、Shape等

控件除外），运行时被设置为不可见或无效的控件以及不能接受焦点的控件（如

Frame和Label）仍可保持在Tab顺序中，但用键切换时会跳过这些控件。根据题

意。本题需在滚动条的Change事件过程中编写在文本框中输出滚动条当前Value

值的语句。

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

2、（1）在考生目录卜有一个_L程文件sjt3.vbp,窗洋上有一个命令按钮

Command/标题为“下一个要求：在窗体上建立一个单选按钮数组Optionl,含

4个单选按钮，标题分别为“选项1”、“选项2”、“选项3”、“选项4”，初始状态

下，“选择1”为选中状态。如图1-97所示。窗体文件中已经给出了命令按钮的

Click事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内

容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单

选按钮，再单击命令按钮，则选中第一个单选按钮。注意：不能修改程序中的其

他部分。最后把修改后的文件按原文件名存盘。图1-97(2)在考生文件

夹下有一个工程文件sjt4.vbp,窗体上已经画出所有控件，如图1-98所示。在

Textl文本框中输入一个任意的字符串(要求串的长度*0)，然后选择组合框中的三

个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。窗

体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为

正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名

•ifDB-一,

存盘。图1-98

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

sjt3.vbp,如表2-55在窗体中用“复制”和“粘贴”命令画出包含4个元素的单选数组

表2-55

对象舄性值

NameOption1

Index0

单选按钮1

Caption选项1

ValueTure

NameOption1

单选按钮2Index1

Caption选项2

NameOption1

雌选按钮3Index2

Caption选项3

NameOption1

单选按钳4Index3

选项4

并设置属性。Caption步骤2：打开代码编辑

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

SubCommandl_Click()Fork=0To3IfOptionl(k).ValueThenn=kEndIfNextk

Optionl(n).Value=Falsen=n+lIfn=4thenn=0EndIfOptionl(n).Value=TrueEnd

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

打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口，去掉程序中的注释

符将问号"?”改为正确的内容。参考代码：Sei.ectCaseCombo|.Listindex

tmpStr=Mid(Trim(Textl.Text),3,4)Text2.Text=tmpStr步骤2：按要求将文件

保存至考生文件夹中。

知识点解析：第1小题①控件数组是一组具有共同名称和类型的控件，它们拥有

共同的事件，数组中的每个控件都有唯一的索引号(Index),即下标。②容器(如窗

体和框架)中的单选按钮(OpfionButton)组常用于提供多个选项间的唯一选择，其

Value属性用于设置或返回每个单选按钮的选中状态：值为False表示未选，值

为，Frue表示选中。本题原程序在命令按钮的单击事件过程中，首先利用For循环

语句(循环变量k的初值为0,终值为3)逐一检查单选按钮数组中的每个元素是否

被选中，若选中则用变量n记录下选中单选按钮的索引号，即n=k°循环结束后，

取消对当前选中单选按钮的选择，变量n增1；接着判断增1后的n值是否为4,

若是则将n的值设置为0；最后设置索引号为n的单选按钮被选中。第2小题①

组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框

部分输入信息，也可在列表框部分选择项目，Listlndex属性可返回其当前所选项目

的索引号；②Trim函数用于删除字符串左右两边的空格；③Right。函数用于取出

已有字符串最右边指定个数的字符串；④Left。函数用于取出已有字符串最左边指

定个数的字符串；⑤Mid(字符串，起始位置［，个数1］函数用于从己有字符串中取

出从指定位置开始的含有定个数字符的字符串。本题原程序的中心设计思想是：

将文本框Textl中的字符串按组合框中所选要求进行截取并放入文本框Text2中。

原程序以组合框列表项的索引号(即Listindex属性值)作为SelectCase语句的判断表

达式，故第一个?处应为CombOI.Listindex)组合框中第三项要求截取第3~6个字

符，其实就是从字符串的第三个字符开始，截取4个字符，故Mid函数的第2、三

个参数应为3和4；最后的?处是将截取结果显示在文本框中，故应为tmpStr。

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

3、在考生文件夹下有一个工程文件sjt5.vbpo程序运行时，单击“装入数据”按

钮，则从考生目录下的in5.txt文件中读入所有城市名称和距离，城市名称按顺序

添加到列表框Listl中，距离放到数组a中：当选中列表框中的一个城市：时，它

的距离就显示在Textl中，如图1-175所示；此时，单击“计算运费”按钮，则计算

到该城市的每吨运费(结果取整，不四舍五入)，并显示在Text2中。每吨运费的计

算方法是：距离x折扣x单价。其中：单价为0.3。距离＜500折扣为1500、距离

＜1000折扣为0.981000S距离＜1500折扣为0.951500$距离＜2000折扣为0.92

2000S距离折扣为0.9单击“保存”按钮，则把距离和每吨运费存到文件。ul5.ixt

中。己经给出了所有控件和部分程序，要求：①去掉程序中的注释符，把程序

中?改为正确的内容：②编写列表框的Click事件过程；③编写“计算运费”按钮的

Click事件过程。注意：不得修改已经存在的程序：在退出程序之前，必须至少计

算一次运费，且必须用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文

件名存盘。帮175

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

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

参考代码：n=n+lLisll.Addllemch$步骤3：编写“计算运费”按钮和列表框的单

击事件过程。参考代码：PrivateSubCommand2_Click()P=0.3d=Int(Textl.Text

/500)SejlectCasedCase0discount=lCase1discount=0.98Case2discount=0.95

Case3diScount=0.92CaseElsediScount=0.9EndSelect

Text2=Int(discount*P*Textl)EndSubPrivateSubListl_Click()

Textl=a(Listl.Listlndex+l)EndSub步骤4：运行程序，单出列表框中的某个列表

项，并单击“计算运费”按钮获得一个结果，然后单击"保存''按钮保存计算结果。

步骤5：按要求将文件保存至考牛文件夹中。

知识点解析：根据题意，需要从in5.txt文件中读取数据至列表框和全局数组a

中，应该首先使用Inpul方式打开文件，然后通过循环利用Input语句来完成操

作。由于文件中数据的长度未知，故此使用全局变量n来记录数据的个数，在每一

次循环中，每读出一组数据就令n自增1,然后将每组数据的第一部分放入变量

ch,后一部分放入a(n),接下来调用列表框的Additem方法把变量ch的值加入列

表框。在列表框的单击事件过程中，需要给Textl赋值，由于列表框中的列表项和

数组a中的数据有着一一对应的关系，而a的下标由1开始，列表框中列表项的索

引号从0开始，因此应该是Textl=a(Listl.Lisflndex+l)o在“计算运费”按钮的单击

事件中，只需要使用SelectCase语句进行判断距离在哪个区间内，就按照何种公式

来计算折扣。

VB机试模拟试卷第2套

一、基本操作题(本题共I题，每题7.0分，共［分°)

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

称为Fonnl的窗体上画一个标签，其名称为Label然后通过属性窗口设置窗体和

标签的属性，实现如下功能：①窗体标题为“设置标签属性"；②标签的位置为：

距窗体左边界500,距窗体顶边界300；③标签的标题为“等级考试''；④标签可

以根据标题的内容自动调整其大小；⑤标签带有边框。程序的运行情况如图1-

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

程文件名为sitl.vbp,窗体文件名为sjtl.frm。图卜134(2)在名

称为FormI的窗体E画一个命令按钮和一个水平滚动条，其名称分别为Commandl

和HScrolll,编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要

求设置水平滚动条的属性：Max二窗体宽度Min=0LargcChange=50

SmallChange=10而如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置

值。程序的运行情况如图1-135所示。要求：不得使用任何变量。注意：存盘时

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

rai-i35

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

Forml中画一个标签，并设置它的相关属性，其属性及值如表2-75所示。

«2-75

对公鼠性值

NameLabel!

Caption等级考试

Top300

标签

Left500

AutoSizeTrue

BordcrStylci

宙体设置标签属性

Caption步骤2：按要求将文件保存至考生

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

Forml中画一个命令按钮和一个水平滚动条，在属性设置窗口中设置其相关属性,

»2-76

对象属性设置值

水平滚动条NameliScrolll

NameCommandl

命令按钮

Caption

其属性及值如表2-76所示。-------------—0㈣----步骤2：

打开代码编辑窗口，分别编写命令按钮的Click事件过程和水平滚动条的Change

事件过程。参考代码：PriVateSubCommandl_Click()

HScroIll.Max=Fermi.WidthHScrolIl.Min=0HScroll1.LargeChange=50

HScrolll.SmallChange=10EndSubPriVateSubHScrolll_Change()Print

Me.HScrolll.ValueEndSub步骤3：按要求将文件保存至考生文件夹中。

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

题根据题意，本题需在命令按钮的单击事件过程中编写设置水平滚动条相关属性

的语句，在滚动条的Change事件过程中编写在窗体上输出滚动条当前,Value值的

语句。

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

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

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

大于500的所有整数之和。程序运行后，单击命令按钮(名称为Command1,标题为

“输出大于500的整数之和”)，即可求出这些整数的和，并在窗体上显示出来(如图

1-123所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程

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

序中的其他部分。最后壬修改后的文件按原文件名存盘。图123

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

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

100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的弋码

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

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

FunctionFun。和End.Function之间填入编写的若干语句。最后把修改后的文件按

原文件名存盘。

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

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

容。参考代码：arrN(i>Int(Rnd*1000)Sum=0IfarrN(i)>500Then

Sum=Sum+arrN(i)步骤2：按要求将文件保存至考生文件夹中。第2小题【操作

步骤】步骤1：打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口，编辑

Fun函数的内容。参考代码：Sum=0Forit0To100IfiMod7<>OThenSum；

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

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

为求出20个随机整数中大于500的整数之和，可首先预设累加和变量Sum=0,然

后通过Foi•循环语句逐一判断数组中的各元素是否大于500,若大于则累加到Sum

中，循环结束后输出Sum的值。第2小题判断整数A能被整数B整除的条件表

达式为：AModB=0o本题原程序要求编写的Fun过程首先预设累加变量Surn=0,

然后通过For循环逐一判断循环变量是否能被7整除。每找到一个不能被7整除的

数，则将这个数加到累加变量Sum中。

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

3、在考生文件夹下有一个工程文件sjl5.vbp,其窗体上有三个标签、三个文本框

和两个命令按钮，均使用默认名称。程序的功能是：①如果单击“读数据”命令按

钮，则把考生文件夹下in5.dal文件中两组已按升序方式排列的数(每组30个数)

分别读入数组A和B,并分别将它们显示在Textl、Text2中；②如果单击“合并”

命令按钮，则将A、B两个数组合并为另一个按升序方式排列的数组C,并将合并

后数组C中的数据依升序方式显示在Text3中。窗体中给出了所有控件(如图1-66

所示)以及“读数据”命令按钮的Click事件过程，请完善“合并”命令按钮的Click事

件过程，使其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程

序运行之前，必须进行合并操作，且必须通过窗体右上角的“关闭”按钮结束程序，

否则无成绩。最后，程序按原文件名存盘。图卜66

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

步骤2：编写“合并”按钮的单击事件过程。参考代码：PrivateSub

Command2_Click()'考生编写程序开始ia=l；ib=l；ic=lDoWhileia<=30And

ib<=30Ifa(ia)

知识点解析：数组便用相同的名字引用一系列变量，并用数字索引来识别它们.

数组有上界和下界，数组的元素在上下界内是连续的。VisualBasic对每一个索引

值都分配空间，所以不要不切实际地声明一个太大的数组。在很多情况下，使用数

组可以缩短和简化程序，因为可以利用索引值设计循环，高效处理多种情况。根

据题意，要求实现两个数组的有序合并，可以设置三个变量ia、ib、ic用于标设当

前分别在三个数组中的当前元素下标，初值均为1；接下来进行循环，分别比较

a(ia)和b(ib)的大小，若a(ia)

VB机试模拟试卷第3套

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

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

称为Forml的窗体上画两个命令按钮，其名称分别为cl和C2,标题分别为“命令按

钮『和"命令按钮2”，通过属性窗口设计适当的属性，使得程序运行后，“命令按

钮2”隐藏。编写适当的事件过程，如果单击“命令按钮1"，贝广命令按钮2”出现，

“命令按钮1”隐藏：而如果单击“命令按钮2"，则“命令按钮1”出现，“命令按钮2"

隐藏。程序的运行情况如图1-105所示。注意：程序中不得使用变量。存盘时必须

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

图M05(2)在名称为Forml的窗体上画一个列表框，其名称为

LI；一个水平滚动条，其名称为HS【，SmallChange属性为2,LargcChange属性为

10,Min属性为0,Max属性为100,编写适当的事件过程。程序运行后，如臭把

滚动框移到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是

“xx”，其中xx是滚动框所在的位置，如图1-106所示。注意：程序中不要使用变

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

sj!2.frmo

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

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

*2-59对象星性设置

对做星恒值

NameCl

命令按钮I

Caption命令按钮1

NameC2

命令按钮2Caplicn命令按钮2

VisibleFalse步骤2：打开代码编辑窗口，编写如下

事件过程。参考代码：PrivateSubCLClick()C2.Visible二TrueCl.Visible=False

EndSubPrivateSubC2_Click()Cl.Visible=TrucC2.Visiblc=FaIseEndSub步骤

3：按要求将文件保存五考生文件夹中。第2小题【操作步骤】步骤1；新建一个

“标准EXE”工程，如表2-60在窗体中画出控件并设置其相关属性。

*2-60

水平滚动条

LargeChangc

SmallChangc步骤2：打开代码编辑窗口，编写窗

体的Click事件过程。参考代码：PrivateSubForm_Click()LI.AddFtem

Str$(Forml.HSI)EndSub步骤3：按要求将文件保点至考生文件夹中。

知识点解析：第1小题本题要求在程序运行后，C2按钮隐藏，故应首先在设计窗

体的时候设置C2的Visible属性值为False；在单击Cl按钮后，C2按钮出现而。

按钮隐藏，应在C1的单击事件过程中，设置C2的Visible属性值为True,。的

Visible属性值为False；在单击C2按钮后，C1按钮出现而C2按钮隐藏，应在C2

的单击事件过程中，设置C1的Visible属性值为True,C2的Visible属性值为

False。第2小题列表框的列表项既可以在设计阶段通过其Lisi属性设置加入(注

意：每输入完一项后按键换行再输入下一项)，也可在程序运行时通过Addhem方

法加入，其语法为：列表框名.Addltcm项目字符串［,索引值］。其中，“索引值”

可以指定插入项在列表框中的位置，表中的项目从0开始计数。如果省略“索引

值”，则文本被放在列表框的尾部。本题只需按要求画出控件并设置相关属性，然

后在窗体的单击事件中使用列表框的Addltcm方法将滚动条的Value值加入到列表

框中即可。

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

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

窗体上有一个名称为Command］、标题为“计算”的命令按钮：两个水平滚动条，名

称分别为HscroHl和Hscroll2,其Max属性均为100,：Min属性均为1；四个标

签,名称分别为Labell、.Label2.Label3和Label%标题分别为“运算数1”、“运

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

为Option1,标题分别为和“/"，如图l-83(a)所示。程序运行后,移

动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按

钮，然后单击计算按钮，相应的计算结果将显示在Label4中，程序运行情况如图

1-83所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序

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

的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文

•Forol

(a)

件。图卜83(2)在考生文件夹下有一

个工程文件sjt4.vbp,相应的窗体文件为sjt4.Gm。在窗体上有一个命令按钮，

其名称为Command,标题为“输入/显示”；此外还有一个文本框，其名称为

Tcxtl,初始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入

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

文本框中输出该月份所在的季节。例如输入5,将输出“5月份是夏季"，如图1一

84所示。程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的?改

为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文

件名保存工程文件和窗体文件。图弘

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

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

容。参考代码：IfOptionKi)二TrueThenSelectCaseopt

Label4.Captien=str(Hsbl.Value)&""&opt&Str(Hsb2.VaIue)&"="&Str((ResuIf)步

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

生文件中的本题工程文件sjl4.vbp,在代码编辑窗口，去掉程序中的注释符“党

将问号改为正确的内容。参考代码：LoopUntiln>0.Andn<13SelectCasen

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

知识点解析：第1小题本题其实就是根据所选运算符计算两个水平滚动条产生值的

结果。题目原程序利用一个For循环语句逐一判断单选按钮数组中各元素是否选

中，若选中则用变量。pi记录下所选项的标题；接下.来则根据。pl可能出现的不同

值，用SeleciCase语句分别做出处理：最后将运算表达式及结果显示在标签

Label4±o第2小题本题原程序利用一个Loop循kfjdkO环语句使得输入月份，

只有当输入的月份为1〜12之间的整数时才是合法的输入；接下来使用SelectCase

语句分别对月份n做出处理：最后再使用SelectCase语句根据不同的季节m的值

进行输出。

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

3、在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为

TextKText2的文本框，其中Textl可多行显示。请画两个名称为Command1、

Command2,标题为“产生数组”、“查找”的命令按钮。如图1-43所示。程序功能如

下：①单击“产生数组”按钮，则用随机函数生成10个0〜100之间(不含。和100)

互不相同的数值，并将它们保存到一维数组a中，司时也将这10个数值显示在

Textl文本框内；②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个

数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不

存在于数组中”；否则显示该数在数组中的位置。要求：请去掉程序中的注释符，

把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存

在的控件和程序。最后任修改后的文件按原文件名存盘。

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

在窗体上画两个命令按钮，属性及其值如表2-23所示。

Command1

命令按钮I

产生数组

Command!

命令按钮2

步骤2：在代码编辑窗口，去掉程

序中的注释符将问号"?”改为正确的内容。参考代码：a(i)=Fix(Rnd*99+l)

Forj=lToi-1i=i-lIfa(i)=numThenIfi>10Then步骤3：按要求将文件保存至考生

文件夹中。

知识点解析：Rnd()函数用于产生一个小于1但大于或等于O的随机数值，为了生

成某个范围内的随机整数，可使用以下公式：Int((upperbound-

lowerbound+1)*Rnd+lowerbound)这里，upperbound是随机数范围的上限，而。

lowerbound则是随机数范围的下限。本题在“生成数组”按钮的单击事件过程中，

通过：For循环生成10个0〜100之间(不含。和100)互不相同的随机数，并存入数

组a,其中生成函数的表达式应为：Fix(Rnd*99+l)0为防止生成相同的随机数值，

每新生成一个随机数后，都通过For循环让其与之前生成的i.一个随机数逐一比

较。若新生成的随机数已存在，则将当前循环变量i的值减1,重新为数组元素a⑴

生成随机数。在“查找”按钮的单击事件过程中，通过FOr循环让数组a中的元素逐

一与用户在输入对话框中输入的数相比较，若条件表达式a(i)num成立，则表示找

到相同的数，并在文本框Tcxt2中显示相关信息。若没找到相同的数，循环结束后

循环变量i>10,则在Text2文本框内显示该数“不存在于数组中”。

VB机试模拟试卷第4套

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

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

称为Forml的窗体上画一个名称为Labell、标题为“列表框的使用”的标签。再画一

个名称为.Listl的列表框，列表中含有5个表项，表项内容分别为“北京”、“山

西,,、“辽宁,,、“浙江,，和“广东并且可以在列表中同时选择多个表项。运行后的

窗体如图1-39所示。要求：存盘时必须存放在考生文件夹下，工程文件名为

sjtl.vbp,窗体文件名为sjtl.frm。图L39（2）在名称为。Fonnl的窗体上

画一个名称为Imagel的图彳象框，其高、宽分别为2000、3000,且不随图片大小而

变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为

CmdKCmd2,如图1-40所示。需编写两个命令按钮的Click事件过程，使得当单

击“显示图片”按钮时，将当前文件夹下的图片文件“图片jpg”显示在图像框中：而

如果单击“隐藏图片”按钮，则清除图像框中的图片,要求：程序中不得使用变

量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件

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

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

在窗体Forml中加入一个列表框和一个标签，并分别如表2-20设置它们的相关属

«2-20

对象・性值

NameListl

列表框List北京、山西、辽宁、浙江、广东

MultiScIcct1

NameLabel!

标签

性。-----------Caption------------------W-*用-------步骤3：按要求将文件保

存至考生文件夹中。第2小题【操作步骤】步骤I：新建一个“标准EXE”工程,

如表2-21在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编

写两个命令按钮的单击事件过程。参考代码：PrivateSubCmdl_Click（）

Imagel.Picture=LoadPicture("图片.jpg")EndSubPrivateSubCmd2_Click()

*2-21

对象属性值

NameImagel

StretchFalse

图像框

Height2000

Width3000

NameCmdl

命令按钮1

Caption显示图片

NameCmd2

命令按钮2

Caption陟理图片

Imagel.Picture=LoadPi.cture（）EndSub

步骤3：按要求将文件保存至考生文件夹中。

知识点解析：第1小题列表框的MultiSelect属性用于设置是否可在列表项中做多

个选择，值为0（缺省设置）表示不允许做多项选择，值为1表示允许做简单多项选

择，值为2表示允许配合使用Shifi键、Ctrl键做多项选择。本题的考核要求有两

项：①通过列表框的List属性设置题中指定的列表项；②通过设置MultiSelect属

性设置列表框是否允许选择多项。第2小题①为图像框控件指定图片有两种方

法：一是在设计阶段通过Piclure属性设置；二是在程序运行时通过LoadPicture（）

图片加载函数加载，其语法为：图片框.Picture=LoadPicture（"图像文件路径”），

App.Path,可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用

法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框

及图像控件中的图形。②Strech（自动伸缩）属性用来设定图像框是否需要自动调整

大小，以适应载入图像框中的图片的大小，值为True时表示自动调整。本题需分

别在两个命令按钮的Click事件过程中，用LoadPicture。函数为图像框加载或清除

图片。

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

2、(1)考生文件夹下的工程文件sjl3.vbp中有一个菜单、两个标签和两个文本

框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单(如图1-213所示)。

当选中“计算100以内自然数之和”菜单项时，将计算100以内自然数之和并放入

Textl中；当选中“计算7!”菜单项时，将计算7!并放入Tex【2中。在给出的窗体文

件中己经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为

正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的

控件和程序，最后将程序按原文件名存盘。图1・213(2)考生文件夹

下的工程文件sjl4.vbp中有如图1・214所示的控件。程序功能如下：程序运行

时，在Textl中输入一个商品名称，在Text7.中输入一个数量，单击“计算”按

钮，则会在列表框中找到该商品的单价，乘以数量后显示在Text3中(如图1-214所

示)；若输入的商品名称是错误的，则在Text3中显示“无此商品”(为方便编程，列

表框中的每个单价均为4位(含小数点))。请将事件过程中的注释符去掉，把?改为

正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的

控件和程序，最后将程序按原文件名存盘。阳

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

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

容。参考代码：IfButton=2ThenPopupMenumypopmenuFork=nTO1Step-1

Tcxt2=fact(7)步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步

骤】步骤1：打开考生文件夹下的本题工程文件sji4.vbp,在代码编辑窗口，去

掉程序中的注释符将问号改为正确的内容。参考代码：Fork=lTo

Listl.ListCount-1namc=Lcft(Listl.List(k),n-1)pricc=Val(Right(Listl.List(k),4))

Text3="无此商品”步骤2：按要求将文件保存至考生文件夹中。

知识点解析：第1小题①鼠标事件分点击事件和状态事件。点击事件有单击事件

(Click)和双击事件(DblQick),不区分左右键；状态事件有按下事件(MouscDown)、

移动事件(MouseMove)和弹起事件(MouseUp)。状态事件涉及ButtonsShift两个参

数：BuRon参数是一个整数，值可能为1(左键)、2(右键)或4(中间键)：Shift参数也

是一个整数，用来代表用户是否按下键(值为1)、键(值为2)、键(值为4)或这些键

的组合。②弹出式菜单是显示于窗体之上，独立于菜单栏的浮动式菜单。

PopupMenu方法可在对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。

要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见

（即Visible）属性值设置为False,然后在‘窗体的MouseDown（或MouseUp）事件过程

中，判断该事件的Button参数值是否为2,若是则执行窗体的PopupMenu方法来

显示菜单。在相应菜单项的Click事件过程中，可以调用fact函数来计算71,fact

函数是一个求阶乘的函数，通过For循环依次累乘实现。第2小题本题程序运行

时，在文本框中输入商品名称，当单击命令按钮的时候，首先判断该商品是否在列

表框中存在。由于列表框中的每一项都是商品名称十空格+单价的组合，因此在循

环判断列表框的每一项时，首先找到列表项里面空格的位置，然后取出空格之前的

字符就是商品名称，和文本框中输入的数据进行对比，如果一致则说明有此商品，

那么取出列表项的后4个字符即商品单价进行操作，并且在退出循环的同时令旗帜

变量flag变为Tme。当循环结束后，如果flag变量的值为True则证明有此商品，

将单价*数量的值显示在文本框中，否则在文本框中显示“无此商品”。

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

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

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

32437658281298573142536475869713243546576879805937程序运行后单击窗体，

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

阵形式显示出来，并输出矩阵右上.左下对角线上的数据，如图1-70所示。在窗

体的代码窗口中，己给出了部分程序，这个程序不完整，请把它补充完整，并能正

确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上

述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

图1-70

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

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

码：DimMat%（M,N）OpenApp.Path&"\"&"in5.txt"For_InputAs#lInput#l,

Mat（i,j）Ifi+j=6Then步骤3：按要求将文件保存在考生文件夹中。

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

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

中，故第一个?处是定义数组，应改为：N）?第两个?处是指明打开文件

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

元素，应改为：Inpul#l,j）o然后用一个嵌套的For循环将数组Mat中的

数据在窗体上按5行、5列的矩阵形式在窗体上显示出来；由于右上到左下对角线

上的元素具有行号与列号之和为6的特点，可以接着再用一个For循环将数组Mat

中满足i+j=6的元素输出,故第4个?处应改为Ifi+j=6Theno

VB机试模拟试卷第5套

一、基本操作题（本题共I题，每题上0分，共J分0）

1、在名为Forml的窗体上建立一个名为Labi的标签：两个名称分别为Cmdl和

Cmd2,标题分别为“显示广.和“显示2”的命令按钮。编写适当的事件过程，使程序

运行后、若单击“显示广命令按钮，则在标签卜显示字符串Cmd；如果单击”显示

2”命令按钮，则在标签上显示字符串Cmd2。如下图所示。

注意:不要使用任何变量，直接显示字符串；文件必

须存放在考生文件夹中，窗体文件名为execise62.frm,工程文件名为

execise62.vbpo

标准答案：

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

（2）单击工具箱中的CommandButton控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别

为Cmdl和Cmd2,标题分别为“显示1"和"显示2"；

（3）单击工具箱中的Label控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为Labi；

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

□PrivatebubUmdl_UlickO

OOLab1.Caption—"Cmdl"'设置Labi显THCmdI

□EndSub

□PrivateSubCmd2_Click0

ODLabl.Caption="Cmd2"'设置L&bl显小Cmd2

□EndSub

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

知识点解析：暂无解析

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

2、有一个工程文件y1c6.vbp。请在窗体上画一个文本框，其名称为Texll；画一个

命令按钮，名称为Commandl,标题为“确定”。再画5个单选按钮，名称分别为

option1>Option2^Option3>Option4和Option5,标题分别为“飞机"、"火车"、

“汽车”、“自行车”和“步行”,如图26所示。

・Fnral（□叵区

图26程序运行结果编写适当事件过程。选中一个单选按

钮，并单击“确定