VB机试模拟试卷21

VB机试模拟试卷第1套

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

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

称为Fonnl的窗体上画一个名称为Textl的文本框，其高、宽分别为400、2000o

运行后的窗体如图1-109所示。请在属性框中设置适当的属性满足以下要求：

①Texll的字体为“黑体”，字号为“四号”：②窗体的标题为“输入”，不显示最大化

按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为

sjtl.vbp,窗体文件名为sjtl.fnrio图l“09（2）在名称为Foiml的窗体

上画一个名称为Imagel的图像框，利用属性窗口装入考生目录下的图像文件

pickbmp,并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按

钮，名称分别为CommandsCommand2,标题分别为“向右移动”、“向下移动工

请编写适当的事件过程，使得在运行时，每单击“向右移动''按钮一次，图像框向右

移动100：每单击“向下移动”按钮一次，图像框向下移动100o运行时的窗体如图

1-110所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘

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

图1-110

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

击工具箱中的。TcxtBox控件图标，在窗体Forml上按下鼠标左键并拖动到一定位

置后松开。画出一个文本框，如图2-3所示。图2・3步骤3：选定窗

体中的文本框，在属性窗口中设置其相关属性，如图2-4所示，属性及值如表2-61

所示。口步骤4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开“字

体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。步骤5：单击窗体无控

件区域，在属性窗口中设置窗体相关属性，属性及值如图2-4所示。步骤6：选择

【文件】一【保存工程】命令，打开“文件另存为“对话框，如图2・5所示。在该对

话框的“保存在”下拉列表中选择考生文件夹，并在“文件名”文本框中输入

sitl.frmo单击“保存”按钮，如图2-5所示，即保存好窗体文件1在接下来的“工程

另存为''对话框中，在“文件名”文本框中输入sjll.vbp,如图2-6所示，并单击“保

存“按钮，即保存好工程文件。第2小题【操作步骤】步骤1：新建一个“标准

EXE”工程，在窗体卜orml中画一个图像框和两个命令按钮，分别设置其相关属

性，属性及值如表2-62所示。步骤2：双击“向右移动”命令按钮，打开代码编辑

窗口，在按钮的Click事件过程中输入如图2-7所示代码。步骤3：双击“向下移

动''命令按钮，打开代佰编辑窗口，在按钮的Click事件过程中输入如图2-8所示代

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

知识点解析：第1小题①用VisualBasic开发应用程序的一般步骤：首先建立用户

界面，然后设置窗体及控件属性，最后编写代码。②添加控件的方法有两种：

是先选中工具箱中要添加的控件，然后在窗体上按下鼠标左键并拖动到一定位置后

松开：二是通过直接双击工具箱中相应控件的图标来添加控件。③设置控件属性

的方法也有两种：一是垄设”阶段通过对象的属性窗口来设置；二是通过程序代码

在程序运行时来设置。④文本框（Text）：通常用于接收用户输入的字符串数据或用

于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。⑤控件的

Height和Width属性用于设置控件在屏幕上的大小（即高和宽）。⑥通过属性设置窗

口中的Font属性可设置控件标题文本的字体、字号、字形等，在程序设计时Font

属性可返回一个Font对象，Font对象包含有格式化文本所需要的信息。⑦窗体的

标题由其Caplion属性设置，窗体的MaxBullon属性、MinButlon属性决定其标题

栏是否显示最大化按钮、最小化按钮，True表示显示，False表示不显示。本题只

需按要求建立程序界面并设置窗体和文本框相关属性即可。第2小题①图像框的

Picture属性可以指定在图像框中显示的图像路径，既可以在属性窗口中进行设

置，也可以在代码中进行设置。②对象的Left属性用于确定对象距离窗体左边框

的距离，改变这个属性值会实现对象的水平移动，同理改变对象的Top属性值可

以实现对象的垂直移动。本题需要按照要求建立相关控件并设置相应属性，然后

在相应事件代码中改变图像框的Left属性值和Top属性值。

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

2、（1）在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包

含了所有控件和部分程序，如图1-183所示。要求如卜：①利用属性窗口向夕J表

框添加四个项目：Visual.Basic、TurboC、C++、Java。④请编写适当的程序完成

以下功能：当选择列表框中的一项和单选按钮Optionl,然后单击“确定”按钮，则

文本框中显示“xxx笔试当选择列表框中的一项和单选按钮Option2,然后单击

“确定”按钮，则文本框中显示“xxx上机”。其中“xxx”是在列表框中所选择的项

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

窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作（包

括列表框和单选按钮），否则不得分。最后把修改后的文件按原文件名存盘。

图283（2）在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文

件为sjt4.frm。在窗体上有一个命令按钮，其名称为CommandL标题为“计算并

输出“。程序运行后，如果单击命令按钮，程序将i-算500以内两个数之间（包括开

头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数

有多组，程序输出每组开头和结尾的正整数，并用“〜”连接起来，如图1・184所

示。该程序不完整，请壬它补充完整。要求：去掉程序中的注释符，把程序中的？

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

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

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

sjt3.vbp,在窗体上选中列表框，为其Lisi属性输入四个项目：VisualBasic、

TurboC、C++、Java,注意每输入一项后用+键换到下一项输入。步骤2：打开代

码编辑窗口，编写“确定”按钮的单击事件过程。参考代码：IfOptionl.ValueAnd

Listl.Texto^'TlienTextl.Text=Listl.Text&Optionl.CaptionElseIf

Option?.ValueAndListl.Text<>""Then

Textl.Text=Listl.Text&Option2.CaptionEndIfEndIf步骤3：按要求将文件保存

至考生文件夹中。步骤4：按键键运行程序，在列表框中选择一项，并选中一个单

选按钮，单击“确定”按钮，单击窗体右上角的关闭按钮结束程序。第2小题【操

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

去掉程序中的注释符“"将问号”?”改为正确的内容。参考代码：iSum=0

iSum=iSum+jIfiSum=125OThen步骤2：按要求将文件保存至考生文件夹中。

知识点解析：第1小题列表框的Text属性用于返回列表框中选择的项目的内容，

返回值总与列表框的Li$l（Listlndex））性的返回值相同。本题根据是选择“笔试”或

“上机”分为两种情况，若选择“笔试”则在文本框中显示列表框的Text属性值与单

选按钮Opiionl的Caplion属性值的组合内容；若选择“上机”则在文本框中显示列表

框的Text属性值与单选按钮Option2的C叩lion属性值的组合内容。第2小题通

常把循环体内不再含有循环语句的循环叫做单层循环，而把循环体内含有循环语句

的循环称为多重循环。例如在循环体内含有一个循环语句的循环称为二重循环。多

重循环又称多层循环或嵌套循环。程序设计思路：按顺序让1〜500中的每一个数

都与它之后的所有的数逐一相加，在相加过程中若累加和等于或超过1250时，则

停止该组数继续相加，并将和等于1250的该组数的开头和结尾的数按题目要求输

出。原程序使用嵌套For循环完成上述功能，变量iSum用于记录每组数累加时的

和，其初值应为0;表达式iSum=iSum+j用于实现素加功能：当累加和正好等于

1250时，输出该组数的开头和结尾的数，即i和j。

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

3、在考生文件夹中有一个工程文件sjt5.vbp,其功能是：找出矩阵元素的最大

值，并求出矩阵对角线元素之和，窗体外观如图1-165所示。程序运行时，矩库数

据被放入二维数组a中c当单击“找矩阵元素最大值”按钮时，找出矩阵中最大的

数，并显示在标签Label3中。当单击“对角线元素之和”按钮时，计算矩阵主对角

线元素之和，并显示在标签Labcl4中。文件中已给出部分程序，请编写“找矩阵元

素最大值''及“对角线元素之和''两个命令按钮的事件过程中的部分程序代码。注

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

程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。

图M65

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

在码编辑窗ISI的指定位置输入代码：参考代码：PrivateSubCommandl_Click()

====考生编写程序开始=====Max=a(l,1)Fori=lTo4Forj=lTo4Ifa(i,j)>Max

ThenMax=a(i,j)EndIfNextjNextiLabcl3.Caption=Max'===考生编写程序结

束==’不得修改以下部分saveLabel3EndSubPrivateSub

Command2_Click()'===考生编写程序开始=二==sum=0Fori=lTo4

Sum=Sum+a(i,i)NextiLabcl4.Caption=Sum===考生编写程序结束=====，不得

修改以下部分saveLabel4EndSub步骤2：按要求籽文件保存至考生文件夹中。步

骤3：按键键运行程序，分别单击“找矩阵元素最大值”按钮和“对角线元素之和”按

钮。

知识点解析：位于矩阵左上到右下主对角线上的元素具有行号等于列号的特点，位

于n*n矩阵右上到左下对角线上的元素具有行号与列号之和为n+1的特点。【审

题分析】“找矩阵元素最大值”按钮单击事件过程设计思路：用变量Max记录数组a

中第一个元素的值。然后通过嵌套For循环让数组a中的每一个元素逐一与变量

Max比较大小，当有数组元素的值大于变量Max时，将其赋值给变量Max,循环

结束时变量Max的值即为矩阵中最大的数，将其显示在标签Labcl3中。♦、对角线

元素之和''按钮单击事件过程设计思路：通过For循环将数组元素a(i,i)累加入变

量Sum(初值为0)中，循环结束时将其显示在标签Label4中。

VB机试模拟试卷第2套

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

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

名称为Forml的窗体上放置一个名称为Drivel的DriveListBox控件，一个名称为

Dirl的DirListBox控件和一个名称为Filel的FileListBox控件。程序运行时，可以

对系统中的文件进行浏览；当双击Filel中的文件名时，用MsgBox显示文件名（不

显示路径名）。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹

下，窗体文件名为Sjtl.frm,工程文件名为sjtl.vbp。2.在名称为Forml的窗体

上放置一个名为Textl的文本框控件和一个名为Timerl的计时器控件，程序运行

后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间

的变化而改变。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹

下，窗体文件名为sjt2.frm,工程文件名为sjt2.vbp,如图1—1所示。

图1一1

标准答案：①在窗体上建立好控件后，先设置控件属性，再编写事件过程C②

文件系统控件有3种：驱动器列表框（DriveListBox）,目录列表框（DirListBox）和文

件列表框（FileListBox）。3个文件系统控件必须协调工作才能构成一个文件管理系

统，当用户在驱动器列表框中选择一个新的列表框或在当目录列表框Path的属性

改变都触发Change事件，将三者（利用本题中3个对象的名称）实现同步的代码

为：File1.Path=Dirl.Path,Dirl.Path=DriveI.Driveo双击触发DblClick事件弹出

MsgBox显示文件名，其格式为：MsgBox提示［，按钮儿标题］。③解题步骤：第

一步：建立界面并设置控件属性。程序中用到的控件及其属性见表1。表1标题

表1

标题属性设置值

DriveListBoxNameDrivel

DirListBoxNameDirl

FileListBoxNameFilel

属性设置值DriveListBoxNameDrivel

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

码：OptionExplicitPrivateSubDirl_Change()Filel.Path=

Dirl.PathEndSubPrivateSubDrivel_Change()Dirl.Path=

Drivel.DriveEndSubPrivateSubFilel_dblclick()MsgBox

Filel.FileNameEndSubPrivateSubForm_Load()Dirl.Path=

Drivel.DriveFilel.Path=Dirl.PathEndSub第三步：调试并运行程

序。第四步：按题目要求存盘。2.①在窗体上建立好控件后，先设置控件

的属性，再编写事件过程。②时钟控件作用是以一定的时间间隔激发计时器

事件(Timer)而执行相应的程序代码，其Interval属性决定时间间隔的长短，以亳秒

为单位，所以要实现每一秒文本框的时间改变只要使该属性设置为1000即可，要

使程序运行后取得当前时间可用Time函数取得，程序用到的Str函数将其中的内

容转化为字符串。③解题步骤：第一步：建立界面并设置控件属性。程

序中用到的控件及其属性见表2。

表2

标题属性设置值

TextNameFextl

NameFimerl

Timer

Interval1000

表2标题属性设置值TextNameTextl

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

Form_Load()Text1.Text=Str(Time)EndSubPrivatesubTimerl_Timcr()Textl.Text=

Str(Time)EndSub第三步：调试并运行程序。第四步：按题百要求存盘。

知识点解析：暂无解析

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

2、创建名称为Forml的窗体，在窗体上画一个图片框。在图片框的右侧画一个垂

直滚动条，其Min属性为100,Max属性为2000,LargcChangc属性为120,

SmallChange属性为30。在图片框中装入图片，图片框的宽度与图形宽度一致，高

度任意，如图4所示。编写一个事件过程，程序运行后，移动滚动条上的滚动块可

以放大或缩小图片框。程序中不得使用任何变量。注意：存盘时必须存放在考生

文件夹下，工程文件名为yJc2.vbp,窗体文件名为ylc2.fYm。

图4程序运行结果

标准答案：（l）VisualBasic集成环境中，执行“文件”一“新建工程''命令，选择”标准

Exe'o创建窗体FormL（2）在工具箱中选择图片框控件，在窗体中拖动鼠标建立

一个图片框，其名称为Picture］。在属性窗口中设置图片框属性，装入图片。调整

图片和图片框宽度保持一致。（3）在工具箱中选择垂直滚动条控件，在图片框右侧

创建垂直滚动条，在其属性窗口设置其Min属性为100,Max属性为2000,

LargeChange属性为120,SmallChange属性为30。双击按钮弹出代码窗口，编写

事件过程如下：PrivateSubVScrolil_Change（）Picturcl.Hcight=VScrollLValueEnd

Sub（4）按F5键运行程序。如图4所示。（5）执行“文件，一“保存工程”命令，将工程

文件命名为ylc2.vbp,窗体文件命名为ylc2.frmo

知识点解析：（1）文本框控件操作是上机考试基本操作中最常见的考点。Visual

Basic中可以通过文本框的属性窗口很方便地修改其各项属性，常考的属性包括是

否可见、文本输出等。其中文本输出除了通过属性窗口中修改，还可以通过编写代

码修改。（2）图片的装入可以通过修改图片框中属性窗口中的Picture属性输入，图

片框的修改可以通过在弋码中将属性值赋给Picture控件的各属性来进行。

VB机试模拟试卷第3套

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

1、在名称为Forml的窗体上添加两个名称分别为Framel>Frame2的框架，标题分

别为，，字号，，、“修饰，，；在Frau⑹中添加两个单选按钮，名称分别为Opliunl、

Option2,标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在

Frame2中添加1个名称为Checkl的复选框，标题为“下划线”。程序运行后的窗体

界面如图61—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存

为sjl.vbp,窗体文件名保存为sjl.frm。（2）在名为Forml的窗体上绘制一个文本

框，名为Texll,无初始内容；再绘制一个图片框，名为Piel。请编写Texll的

Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输

出一行文本框中的完整内容。运行时的窗体如图61—2所示。

图6】-1图61・2注意：程

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

窗体文件名为sj2.frm。

标准答案：（1）根据题意，新建“标准EXE”工程，在窗体上添加2个框架，2个单选

按钮和1个复选框，2个框架的名称分别为Frame!fUFrame2,Caption属性分别为

“字号”和“修饰”，2个单选按钮的名称分别为Optionl和Option2,Caption属性分别

为“10号字，，和“20号字”，复选框名称为Check】，Caption属性为“下画线”。单击

*：按钮运行程序，并按要求保存。（2）①新建一个名为Forml的窗体。②单击工

具箱中的PictureBox控件图标，在窗体上拖拉出一个图片框，在属性窗口设置该图

片框名称为Piel。③单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文

本框，在属性窗口设置该文本框名称为TextL设置其Text属性为空白。④打开

代码窗口输入如下代码：PrivateSubText!一Change。，将文本框内容显示在图片框

中EndSub⑤按要求保存文件即完成本题。

知识点解析：暂无解析

二、简单应用题（本题共1题，每题分，共［分C）

2、（1）在考生文件夹中有一个工程文件sj3.vbp和一个窗体文件sj3.fnn。窗体上

有一个名为Textl的文件框，一个标题为“计算”、名称为Commandl的命令按钮和

一个组合框。请在名为Combol的组合框中输入3个列表项：“5”、“9”和“13”（列表

项的顺序不限，但必须是这3个数字），程序运行情况如图36—3所示。请编写适

当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，

则计算4000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文

件名存盘（提示：由于计算结果较大，应使用长整型变量）。注意：不得修改窗体文

件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体

右上角的关闭按钮结束程序，否则无成绩。（2）在考生文件夹中有一个工程文件

sj4.vbp及窗体文件sj4.frmo在名为Fonnl的窗体上有一个圆和一条直线（直线的

名称为Linel）构成一个钟表的图案；有两个命令按钮，名称分别为Command1加

Command?,标题分别为“开始”和“暂停”：还有一个名为Timerl的计时器。程序运

行时，钟表指针不动，单击开始按钮，则钟表上的指针(即Linel)开始顺时针旋转

(每秒转6,一分钟转一圈)；单击暂停按钮，则指针暂停旋转。运行时的窗体如

图36—4所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一

次；编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不

得修改己有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一

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

图36-3图36-4注意：保

存时必须存放到考生文件夹下，工程文件名为$j4.vbp,窗体文件名为sj4.frmo

标准答案：⑴组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组

合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可以在

设计阶段通过其Lisi属性加入，加入时注意每输入完一项后按“Ctrl+Enter”组合键

换行再输入下一项，也可以通过代码设置，Addhem方法用来向组合框中添加一个

表项，其格式为：组合框.Additem列表项［索引］。题目给出的源程序中已给设计

好窗体，只需在Combol的List属性中添加“5”、“9”和“13”三个列表项,添加完成

后，双击Command)进入代码窗口，补充后的代码如下：PrivateSub

CoiTimandl_Click()IfCombO1.Text=5Thendivide(5)ElselfCombO1.Text=9Then

divide(9)Elsedivided3)EndIfEndSubPrivateSubdivide(XASInteger)DimiAs

IntegerDimtempAsLongFori=lTO4000IfiModx=0Thentemp=temp+iEndIf

NextiTextl.Text=lempEndSub单击泼按钮运行程序.并按要求保存。(2)本题

主要考查计时器控件和形状控件和用法。计时器的Interval属性用于设置每次触发

计时器的Timer事件的时间间隔，单位为亳秒。Enabled属性控制计时器是否开始

启用，True表示启用，False表示不启用。形状控件用来绘制各种形状，其值有6

种，0表示矩形，1表示正方形，2表示椭圆，3表示圆形，4表示圆角矩形，5表

示圆角正方形。根据题意，将计时器的Interval属性设为1000,双击Command1

命令按钮，进入代码窗口，源程序给出的代码如下：DimlenthAsInteger,qAs

IntegerConstPI=3.14159PrivateSubFormLoad()lenth=Linel.Y2-Linel.Y1q=90

EndSubPrivateSubTimcrl_Timcr()q=q-6Lincl.Yl=Lincl.Y2-lcnth*Sin(q*PI/180)

Linel.Xl=Linel.X2+lenth*Cos(q*PI/180)EndSub补充后的命令按钮事件如下:

PrivateSubCommandlClick()Timerl.Enabled=TrueEndSubPrivateSub

Command2_Click()Timerl=FalseEndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

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

的。在名称为Fom"的窗体上有一个文本框，名称为Textl、MultiLine属性为

True、ScrollBars属性为2；两个命令按钮，名称分别为Commandl和Command2、

标题分别为“读取”和“排序保存”，如图18—5所示,程序运行后，如果单击“读取”

按钮，则读入in.txt文件中的50个整数，放入一个数组中(数组下界为1)；如果

单击“排序保存”按钮，则对这50个整数按从小到大的顺序进行排序，把排序后的

全部数据在文本框Textl中显示出来，然后存人考生文件夹的。ut.txl文件中。(考

生文件夹下的标准模块mode5.has中的writedata过程可以把指定个数的数组元素

存入out.txt文件。)图此5注意：请在有“?”的地方填入正确内容，

然后删除“?”及代码前的所有注释符(即—号)但不能修改其他部分。文件必须存放

在考生文件夹下，窗体文件名为si5.frm,工程文件名为si5.vbp,排序结果存入

out.txt文件中，否则没有成绩。

标准答案：根据题意将一个文本框控件和两个命令按钮添加到窗体中，根据题意的

要求设置属性，即文本框的名称为Textl,MultiLine属性为true,滚动属性为2,

而两个命令按钮的控件的Caption属性分别为“读取”和“排列保存”，名称为

Commandl^0Command2,将mode5.has模板加入到工程中(右键单击工程名,然

后选择进入modules(模板)，选择mode5.has),模板的代码如下：Sub

putdata(a()AsInteger,nAsInteger)DimsFileASStringsFile="\out.txt"Open

App.Path&sFileForOutpu!As#lFori=lTonPrint#1,a(i)；NextiClose#1EndSub

双击Commandl,进入代码编写窗VI,采用边读取边排序的方法，一旦读取的数

比某个位置n的数大，则n之后的数将向后移一个数，而将新读取的数放到n的位

置上，代码如下：OptionExplicitDimi(lTo50)AsIntegerPrivateSub

Commandl_Click()DimjAsIntegerOpenApp.Path&"\in.txt"ForInputAs#lFor

i=lTO50Input#1,i(j)Textl.Textm=TextI.Text&i(j)&Space(5)NextjClose#1End

SubPrivateSubCommand2_Click()DimjAsIntegerDimkAsIntegerDimternpAs

IntegerDim[lagASBooleanForj=lTo50flag=FalseFork=lTo50-jIfi(k)temp

flag二TrueEndIfNextkIfNotflagThenExitForEndIfNextjTextl.Text=""Forj=l

To5()Textl.Text=fextl.Text&.i(j)&Space(5)Nextjputdatai,50EndSub单击

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

知识点解析：暂无解析

VB机试模拟试卷第4套

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

1、注意：下面出现的“考生文件夹“均为C:\wexam\25l60002。请根据以下各小题

的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Forml的窗体上

建立1个名称为Opl的单选按钮数组，含3个单选按钮，它们的标题依次为“选择

1”、“选择2”和“选择3”，其下标分别为0、1和2,初始状态下，“选择2”为选中

状态。运行后的窗体如图26-1所示。注意；存盘时必须存放在考生文件夹下，工

程文件名为sjtl.vbp,窗体文件名为sjtl.frm。（2）在窗体上建立1个二级菜单，第

一级含两个菜单项，标题分别为“编辑”和“帮助”，名称分别为edit和help。其中

“编辑”菜单含有3个子菜单，其标题依次为“剪切”、“复制”和“粘贴”，名称分别为

cut、copypaste,如图26-2所示。注意：存盘时必须存放在考生文件夹下，工

程文件勿为sjt2.vbp,窗体文件名为sjt2.frmo

图26-2

设置控件的属性。建立控件数组由多种方

法，考生可以采取任何一种来建立单选按钮数组。要使“选择2”为选中状态，则应

该将该控件的Value属性值设置True。Value属性月来表示单选按钮的状态，它的

值可以是True或False,当设置为True时，该单选按钮为选中，否则没有选中。

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

表26-1

控件属性设置值

,lameOpl

单选按钮Caption“选择r

Index0

NameOpl

Caption"选择2"

单选按钮

Index1

ZaluePrue

iameOpl

单选按钮Caption"选择3"

Index2

表26-1。第二步：调试并运行程

序。第三步：按题目要求存盘。(2)在VisualBasic中，菜单通过“菜单编

辑器”窗口来建立。解题步骤:第一步：建立界面并设置对象属性。

表26-2

控件属性设置值

名称Edit

菜单

标题"编辑"

名称Cut

菜单标题"剪切"

为缩符号1

名称Copy

菜单标题"复制’

为缩符号1

名称Paste

菜单标题"粘贴"

为缩符号1

各称Help

菜单

标题'帮ar

程序中用到的控件及其属性见表26-2o第

二步：调试并运行程序。第三步：按题目要求存盘。

知识点解析：暂无解析

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

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

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

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

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

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

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

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

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

■厂7-x厂寸-「

计■I

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

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

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

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

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

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

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

■Foral•'tlX

图1-24

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

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

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

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

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

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

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

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

考生文件夹中。

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

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

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

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

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

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

t=x-io故Commandl_Click事件过程中第一个?处应改为：xn（t）0计算结果显示在标

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

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

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

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

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

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

3、在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用

过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称

为Command］、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为

Optionl和Oplion2、标题分别为“求100到250之间能被5整除的数的个数''和"求

300到400之间能被6整除的数的个数”，如图62—5所示。

■Fonnl

6m02WW区

anr®

r次300到皿发BtGS*谢京

的个■

图62-5请编写适当的事件过程，使得在运行时，选中一个单

选按钮，再单击”计算显示”按钮，就可以按照单选按钮后的文字要求计算，弁把计

算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存

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

窗体右上角的关闭按钮来完成。在结束程序运行之前，必须至少要进行一种计算，

否则不得分。

标准答案：根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加

到窗体中，文本框的名祢为Texll,单选按钮的名称：分别为Optionl和Oplion2,

Caption分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能

被6整除的数的个数”，命令按钮的名称为Command],Caption属性为“计算显

示“，设置完成后，双击Commandl进入代码窗口，补充后的具体代码如下：

PrivateSubConimandl_Click（）DimrainAsInteger'下限DimmaxAsInteger'上限

DimiAsInteger'循环计数DimmumAsInteger'个数DimtmpAsInteger'除数If

OptionI.Value=TrueThen'选中Oplionl时min=100max=250tmp=5Else'选中

Option2时rain=300max=400tmp=3EndIfnum=0Fori=minTomax'利用循环来逐

个判断IfiModtinp=OThennum=num+l，如果能被除数整除，则个数加1EndIf

NextiTextl.Text=hum'在Textl文本框中显示出来Open"App.Path&\

oul5.txt'TorOutputAs#lPrint#1,Textl.TextClose#】EndSub单击津/按钮运行

程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第5套

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

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

称为Forml的窗体上画一个名称为Combol的组合框，其宽度为1200,其类型如图

1-95所示（即简单组合框）。要求如下：①请按图中所示，通过属性窗口输入“北

京“、“上海”、“广州”、"深圳”。②设置适当的属性，使得运行时，窗体的最大化

按钮和最小化按钮消失。注意：存盘时必须存放在考生文件夹下，工程文件名为

■ForalX

sjtl.vbp,窗.体文件名为sjtl.frm。E图1-95(2)在名称为Forml的窗体上回.

两个文本框，名称分别为Textl、Text2,再画两个命令按钮，名称分别为

Command】、Command?,标题分别为“左”、“右”,如图1-96。要求：编写适当的

事件过程，使得程序运行时，单击“左”按钮，则焦点位于Textl上；单击“右”按

钮，则焦点位于Text2二。注意：程序中不得使用变量，事件过程中只能写一条

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

sjt2.frnio图L%

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

Forml中画一个组合框，在属性设置窗口中设置其相关属性，属性及其值如表2-53

«2-53

MB属性设・值

NameCombo1

Width1200

Style1

组合框

北京

上海

List

广州

深圳

NameForml

窗体MaxButtonFalse

所示。MinButton——更—步骤2：按要求将文件保存

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

窗体Forml中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如表

a2-54

对叙属性值

文本框1NameTextl

文本框2NameText2

NameCommand1

命令按钮1

Caption左

NameCommand!

命令按钮2

Caption右

2-54所示。程序界面如图2-2所示。图2：步骤

2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代

码。步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2,从“事件”下拉

列表选择Click,编写以下事件过程。参考代码：PriVateSubCommandl_Click（）

Textl.SetFocusEndSubPriVateSubCommand2_Click（）Text2.SetFocusEndSub

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

知识点解析：第1小题①窗体的MaxButton属性、MinButton属性决定其标题栏是

否显示最大化、最小化位钮，True表示显示，False表示不显示。②组合框的列表

项既可以在设计阶段通过其List属性设置加入（注意：每输入完一项后按键换行再

输入下一项）。也可在程序运行时通过Addltcm方法加入，其语法为：组合框

名.Addllcm项目字符串［,索引值］。其中，“索引值”可以指定插入项在列表框中

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

部。本题只需要在窗体上画出相应控件并设置其属性即可。第2小题①焦点是接

收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。②对象

的Seffocus方法用于将焦点移到指定的对象上。本题其实就是在两个命令按钮的

单击事件过程中，通过使用Seffocus方法使对应文本框获得焦点。

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

2、（1）在考生文件夹下有一个工程文件sjt3.vbpo程序运行时，单击窗体则显示如

图1-173所示的图案。诗去掉程序中的注释符，把程序中的？改为正确的内容。注

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

•Foral曾叵因

“♦J"

（2）在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个

矩形和一个圆，程序运行时，单击“开始”按钮，圆可以纵向或横向运动（通过选择

单选按钮来决定），碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停

止运动，如图1-174所示。可以选择单选按钮随时改变运动方向。已经给出了所有

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

容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件

名存盘。图124

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

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

容。参考代码：Fori=lTo5Forj=lTo2*i-lForj=lToi+1Forj=lTo9-2*i步骤

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

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

问号”'改为正确