国家二级VB机试（上机操作）模拟试卷17

家二级VB机试（上机操作）模拟试卷

第1套

一、基本操作题（本题共7题，每题1.0分，共1分。）

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

（1）在名称为Forml的窗体上用名称为Shapel的控件画一个圆，其直径为1500

（即宽、高均为1500）,并设置适当属性，使窗口标题为“圆”，窗性标题栏上不

显示最大化和最小化按钮（如图1—231所示）。图1・231注

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

sjtl.frmo（2）在名称为Forml的窗体中建立一个弹出式菜单（程序运行时不显

示），名称为file,含两个菜单项，其名称分别为open、save,标题分别为“打

开”、“存盘”。编写适当的事件过程。程序运行后，如果用鼠标右键单击窗体，则

OF-

打开

存盘

弹出此菜单（如图1—232所示）。图1・232注意：程序中不能使

用变量。保存时必须存放在考生文件夹下，工程文件名为sjtZvbp,窗体文件名为

sjt2.frmo

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

Forml中加入一个形状控件，其相关属性设置如表2—114所示。

表2-114

对象属性设置值

NameShapel

形状

Shape3

Width1500

Height1500

NameFormI

Caption圆

窗体

MaxButtonFalse

MinBunon

------------步骤2：按要求将文件

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

程，选择【工具】一【菜单编辑器】命令，打开菜单设计器，如表2—155中的设

a2-115

标题名称内缩符号可见

file0

打开openI7

存盘save1

置建立菜单项。-------------步骤

2：打开代码编辑窗口，编写窗体的事件过程以显示弹出式菜单。参考代码：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)IfButton=2ThenCallMe.PopupMenu(file)EnclIfEndSub步骤3：按要求将

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

知识点解析：哲尢解析

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

2、(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个组合框Combol,

其中已经预设了内容；还有一个文本框Textl和三个命令按钮，名称分别为

CommandKCommand?、Commands,标题分别为“修改”、“确定”、“添加程序

运行时，“确定”按钮不可用，如图1—233所示。

图1-233程序的功能是：在运行时，如果

选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Textl中（可在

Textl中修改），并使“确定”按钮可用；若单击“确定”按钮，则把修改后的Textl

中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击

“添加”按钮，则把Textl中的内容添加到组合框中。所提供的窗体文件已经给出了

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

的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的

文件按原文件名存盘。（2）在考生目录下有一个工程文件sjl4.vbp,窗体中的两

个滚动条分别表示红灯亮和绿灯亮的时间（秒），移动滚动框可以调节时间，调节

范围为1〜10秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自

动变为黄灯，I秒后变为绿灯；绿灯到时后自动变为黄灯，1秒后变为红灯，如此

切换（如图1—234所示）。图1234所提供的

窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把

程序中的?改为正确的内容。提示：在三个图片框picture1、picture2>picture3中分

别放置了红灯亮、绿灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就

使相应的图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为

另一个图片框可见，其他图片框不可见。注意：考生不得修改工程中已经存在的

内容和控件属性，最后,巴修改后的文件按原文件名存盘。

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

sjt3.vbp,在属性设置窗口，设置Command2的Enabled属性值为False。步骤2：

在代码编辑窗口，编写三个命令按钮按钮的单击事件过程。参考代码：

Command2.Enabled=TrueComboI.List（Form1.Combo1.ListIndex）=Textl

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

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

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

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

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

(1)在名称为Forml的窗体上画两个文本框，其名称分别为Textl和Tcxt2,它们

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

口设置适当的属性满足以下要求：①Text2可以显示多行文本，且有垂直和水平两

个滚动条；②运行时在T?tl中输入的字符都显示为“*运行后的窗体如图1—

46所示。图146注意：存盘时必须存放在考生文件夹下，工

程文件名为sjtl.vbp,窗体文件名为sjtl.frm。(2)在名称为Forml的窗体上画一

个图像框，名称为Imagel,其高、宽分别为1900、1700,通过属性窗口把考生文

件夹下的图像文件picLbmp装入图像框；再画两个命令按钮，名称分别为C1、

标题分别为“放大”、“缩小”，如图所示。

C,2,，1-47

图1Y7要求：①请编写适当的事件过程，程序运行后，如

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

图像框的高度、宽度均减少100o要求程序中不得使用任何变量。②通过属性窗

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

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

名为sjt2.frmo

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

Forml中按要求画出控件并设置属性。步骤2：按要求将文件保存至考生文件夹

中。第2小题【操作步骤】步骤1：新建一个“标淮EXE”工程，按要求画出控件

并设置属性。步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。

参考代码：PrivateSubCi_Click()Image1.Width=Image1.Width+100

Image1.Height=Image1.Height+100EndSubPrivateSubC2_Click()Image1.Width=

Image!.Width-100Image1.Height=Image1.Height-100EndSub3：按要求将

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

知识点解析：暂无解析

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

2、（1）在考生文件夹下有一个工程文件sjt3.vbp,其功能是：①单击“读数据”按

钮，则把考生文件夹下in3.dat文件中的0〜999之间的100个整数读入数组a中；

②单击“计算”按钮，则找出这100个整数中所有水仙花数，并将它们的最大值与

最小值分别显示在文本框Tcxtl、Tcxt2中。（注：当一个数的值等于该数中的各

位数字的立方和时，此数被成为水仙花数，如153=丑+53+33,所以153就是一

个水仙花数。）在窗体文件中已经给出了全部控件（如图1—48所示）和“读数

据''命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计

算”命令按钮的事件过程。图1-48注意：考生不得修

改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算且必

须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件

名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合

框,名称为CbL并输入三个列表项：“3”、“7”、“11”（列表项的顺序不限，但必

须是这三个数字）；画一个名为Textl的文本框；再画一个标题为“计算”、名称为

C1的命令按钮，如图1—49所示。请编写适当的事件过程，使得程序运行时，在

组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的

所有数之和，并放入Textl中。最后，按原文件名存盘。

图1-49提示：由于计算结果较大，应使用长整型变

量。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必

须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。

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

sjt3.vbp,在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。参考代

码：PrivateSubCommand2_Click()Max=a(l)Min=a(l)Fori=2To100If

isnarc(a(i))=TrueThenIfa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)

EndIfNextText1.Text=MaxText2.Text=MinEndSub步骤2：按VF5>键运行程

序，先单击“读数据”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮

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

步骤1：打开考生文件天下的工程文件sj(4.vbp。步骤2：在窗体Forml中按要求

画出控件并设置属性。步骤3：双击窗体Forml中的“计算”按钮，打开代码编辑

窗口，输入如卜代码：参考代码：PrivateSubCl_Click()DimnAsInteger,kAs

Integer,sAsLongn=Val(Cb1.Text)s=0Fork=nTo5000IfkModn=0Thens=s

+kEndIfNextkText!.Text=sEndSub步骤4：按要求将文件保存至考生文件夹

中。步骤5：按VF5>建运行程序，从列表框中选择一项，单击“计算”按钮，单击

程序右上角的关闭按钮。结束程序。

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sjt5.vbp,其名称为Forml的窗体上已有三个

文本框Textl、Text2>Text3,以及程序。请完成以下工作：①在属性窗口中修改

Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图1一

表1-2

标题名称

绢辑Edit

剪切Cut

复制Copy

50所示；②建立下拉式菜单，见表1—2。_粘贴______吧J③窗体

文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改

为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复

制'‘不可用，否则可以把该文本框中的内容剪切或复制到Text3中：若Text3中无

内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的

内容之后。演注意：不能修改程序中的其他部

分。各菜单项的标题名弥必须正确。最后把修改后的义件按原义件名存盘。

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

中窗体中的文本框Tcxt3,将其Visible属性为False。步骤2：选择【工具】一

【菜单编辑器】命令，打开菜单设计器，按要求建立窗体菜单。步骤3：打开代码

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

which=IThenIfwhich=2ThenText1.Text=Text1.Text+Text3.TextText2.Text=

Text2.Text+Text3.Text步骤4：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

国家二级VB机试(上机操作)模拟试卷

第3套

一、基本操作题(本题共，题，每题i.o分，共1分。)

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

(1)在名称为Forml的窗体上画一个文本框，其名称为Tcxtl,然后通过属性窗

口设置窗体和文本框的属性，实现如下功能：①在文本框中可以显示多行文本；

②在文本框中显示垂直滚动条；③文本框中显示的初始信息为“程序设计”；④文

本框中显示的字体为三号规则黑体；⑤窗体的标题为“设置文本框属性”，完成设

置后的窗体如图1—108所示。图1/08要求：不编写任何代

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

为sjtl.frm。(2)在名称为Fomil的窗体上画两个命令按钮，如图1—109(a)所

示，其名称分别为Cmdl和Cmd2,编写适当的事件过程。程序运行后，如果单击

命令按钮Cmdl,则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实

现)；如果单击命令按钮Cmd2,则可使该按钮在长度和宽度上各扩大到原来的2

(a)

(b)

倍。程序的运行情况如图1—109(b)所示。图1-109要

求：不得便用任何变量。注意：存盘时必须存放在考牛文件夹下.T程文件名为

sjt2.vbp,窗体文件名为sjl2.frm。

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

Forml中画一个文本框，并设置它的相关属性，其属性及值如表2—37所示。

聂2・37

对象属性值

NameTextl

Text程序设计

FontName黑体

文本框

FontSize三号

MultiLineTrue

ScrollBars3

窗体Caption设置文本框雎步骤2：按要求将文件

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

程，如表2—38在窗体中画出控件并设置其相关属性。

表2・38

对象属性值

NameCmdl

命令按钮I

CaptionCmdl

NameCmd2

命令按钮2

CaptionCmd2

--------------步骤2：打开代码编辑窗

口，编写两个命令按钮的单击事件过程。参考代码：PrivateSubCmdl_Click()

Cind1.Left=0Cindi.Top=0EndSubPrivateSubCmd2_Click()

Cmd2.Width=Cmd2.Width+Cmd2.WidthCmd2.Height=Cmd2.Height+Cmd2.Height

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

知识点解析：暂无解析

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

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

功能是产生30个0〜1000的随机整数，放入一个数组中，然后输出其中的最大

值。程序运行后，单击命令按钮(名称为Commandl,标题为“输出最大值”，如图

1—110所示)，即可求出其最大值，并在窗体上显示出来。这个程序不完整，请

把它补充完整，并能正确运行。图1-H0要求：去掉程

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

序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有

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

个文本框。程序运行后，单击命令按钮，即可计算出1〜1000范围内能被5整除或

能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出

了部分程序，其中计算能被5整除或能被7整除的整数的个数的操作在通用过程

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

FunctionFun()和EndFunction之间填入编写的若干语句。最后把修改后的文件按原

文件名存盘。

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

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

参考代码：arrN(i)=Int(Rnd*1000)Max=arrN(l)IfarrN(i)>MaxThen步骤2：

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

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

码：Fori=1To1000IfiMod5=0OriMod7=0ThenY=Y+1EndIfNextiFun

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

知识点解析：暂无解析

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

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

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

32437658281298573142536475869713243546576879805937程序运行后，单击窗

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

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

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

t5Fxml

笛

器

63尔

C

12旅

3«1湃

5375

IM335*sr

2加*

右

曙

-曾W

327T

正确运行。图】要求：去掉程序中的注释符，

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

分。最后把修改后的文件按原文件名存盘。

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

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

Dimmat%(M,N)OpenApp.Path&"\"&"datain.txt"ForInputAs#1Input#1,

j)Ifi=jThenPrintTab(5*j);mat(i,j);步骤2：按要求将文件保存至考生文件夹

中。

知识点解析：暂无解析

国家二级VB机试(上机操作)模拟试卷

第4套

一、基本操作题(本题共I题，每题L0分，共［分0)

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

(1)在名称为Forml、标题为“框架练习”的窗体上画一个名称为Framel、标题为

“字体”的框架控件；在框架中画两个单选按钮，名称分别为Option】、ption2,标题

分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图1-36所示。

因17。注意：存盘时，将文件保存至考生文件夹下，且窗体文

件名为sjtl.frm,工程文件名为sjtl.vbp。(2)在名称为Forml窗体上，画一个名

称为Imagcl的图像框，在其中显示考生文件夹下的图片“pic2.jpg”，并设置适当属

性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚

动条，名称分别为HScrolH、VScrolll,它们的刻度范围都是1〜3。如图1一37

(a)所示。要求如下：①定义两个窗体级变量：length、high,并用写窗体的

Form_Load事件过程，使length、high分别等于图像框的宽、高；②编写适当的

事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框初始尺寸的倍

数改变图像框相应方向的尺寸。例如：HScrolll的滚动块在刻度值为2的位置时，

图像框的宽为初始宽度的2倍。如图1一37(b)所示。对于垂直滚动条也相同。

(a)

,d

2rHIM

(b)

图L37注意：存盘时，将文件保存至考生文件夹下，且

窗体文件名为sjt2.frm,工程文件名为sjt2.vbp0要求程序中的两个变量必须是

lengthshigh,此外不能再使用其他变量，除FormJLoad事件过程外，其他每个事

件过程中只能写一条语句。

标准答案：笫1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画

出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。第2小

题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置肩

性。步骤2：打开代码编辑窗I」，分别编写滚动条的Change事件过程和窗体的

Load事件过程。参考代码：Dimlength,highPrivateSubForm_Load()length=

ImageI.Widthhigh=Image1.HeightEndSubPrivateSubHScrolll_Change()

Image1.Width=HScrollLValue*lengthEndSubPrivateSubVScrolll_Change()

ImageI.Height=VScrolli.Value*highEndSub步骤3：按要求将文件保存至考生文

件夹中。

知识点解析：暂无解析

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

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

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

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

放入Texll中；当选中，计算7!”菜单项时，将计算7!并放入Text2中。在给出的窗

体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把？

--------———:

■哪I

xtlhOOiU内刍的SNKJ

一端________________________[

改为正确的内容，以实现上述程序功能。图1-38注意：考生

不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。-2)

考生文件夹下的工程文件sjt4.vbp中有如图1—39所示的控件。程序功能如下：程

序运行时，在Textl中输入一个商品名称，在Text2中输入一个数量，单击“计算”

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

39所示)；若输入的商品名称是错误的，则在Tex【3中显示“无此商品”(为方便编

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

掉，把?改为正确的内容，以实现_L述程序功能。

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

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

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

参考代码：IfButton=2ThenPopupMenumypopmenuFork=nTo1Step-1Text2=

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

1：打开考生文件夹下的工程文件sjt4.vbp,在代码编辑窗口，去掉程序中的注释符

将问号“?”改为正确的内容。参考代码：Fork=1ToList1.ListCount-1name

=Left(Listl.List(k),n-1)price=Val(Right(List1.List(k),4))Text3="无此商品"步骤

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

知识点解析：暂无解析

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

3、考生文件夹下的工程文件sjl5.vbp中的窗体如图1-40所示。考生文件夹下的

随机文件in5.dat中有20条记录，每条记录含姓名和三个分数（均为100以内的正

整数）。在程序中已经定义了类型Rccordtypc,此类型变量可以存放一条记录。要

求如下：①请为“计算最大最小值''按钮编写Click事件过程，其功能是：读取文件

中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量

maxval,minval中（这两个变量已经给出，不得修改）。②运行程序，单击“计算

最大最小值''按钮后再单击“存盘”按钮。图170注意：

考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次

单击”计算最大最小值”、“存盘”按钮，否则无成绩。最后，程序按原文件名存盘。

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

在代码编辑窗口的适当位置编写代码。参考代码：PrivateSubCommandl_Click（）

DimsAsRecordtypeOpen"in5.dat"ForRandomAs#1Len=Len（s）maxval=0minval

=300Fork=1To20Get#1,,ssumval=s.al+s.a2+s.a3Ifsumval>maxvalThen

maxval=sumva!2i-l（i为彳了号）Ifsumval<minvalThenminval=sumvalNextk

Close#1EndSub步骤2：运行程序，单击“计算最大最小值”命令按钮，然后单击

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

知识点解析：暂无解析

国家二级VB机试（上机操作）模拟试卷

第5套

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

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

（1）在名称为Forml的窗体上画一个图片框，名称为P1,高为1800,宽为

1700,通过属性窗口把图形文件picl.bmp放到图片框中（如图1—1所示）。注

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

sjtl.frmo-(2)在名称为Forml的窗体上画两个

文本框，名称分别为Textl、Text2,都显示垂直滚动条和水平滚动条，都可以显示

多行文本；再画一个命令按钮，名称为CI,标题为“复制”(如图1—2所示)。

请编写适当的事件过程，使得在运行时，在Textl中输入文本后，单击“复制”按

钮，就把Textl中的文本全部复制到Text2中。程序中不得使用任何变量。

闵卜2注意：存盘时必须存放在考生文件夹下，工程

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

标准答案：笫1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画

出控件并设置属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操

作步骤】步骤1：新建一个“标准EXE”工程。按要求画出控件并设置属性。步骤

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

CI_Click()Text2.Text=Textl.TextEndSub步骤3：按要求将文件保存至考生文件

夹中。

知识点解析：暂无解析

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

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

窗体上有一个命令按钮，其名称为Command］，标逸为“添加”：有一个文本框，名

称为Textl,初始内容为空白；有一个列表框，名称为Listl。程序运行后，在文本

框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单

击“添加”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加

到列表框中，如图1—3所示。该程序不完整，请补充完整。

图1・3要求：去掉程序中的注释符，把程序中的。改

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

文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp,其中的窗

体中有一个组合框和一个命令按钮(如图1—4所示)。程序的功能是在运行时，

如果在组合框中输入一个项目并单击“添加”按钮，则搜索组合框中的项目，如果没

有此项，则把此项添加到列表中；如果有此项，则弹出提示“已有此项”，然后清除

输入的内容。图17要求：去掉程序中的注释符，把

程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，

也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。

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

sjt3.vbpo步骤2,打开代码编辑窗口.夫掉程序中的注释符将问号“?”改为TF

确的内容。参考代码:SI=Text1.TextDoWhileMid(Sl,II,1)<>MMAndII_<

=Len(Sl)List1.AdditemS2S2=,H,步骤3：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt4.vbp。步骤

2：打开代码编辑窗口，去掉程序中的注释符“巾，将问号"?”改为正确的内容。参

考代码：Fori=OToCbl.ListCount-1IfCbl.List(i)=Cbl.TextThen

Cb1.AdditemCbl.Text

知识点解析：暂无解析

三、综合应用题(本题共［题，每题分，共/分。)

3、在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一

个文本框，名称为Textl,能显示多行；再画一个命令按钮，名称为C1标题为“存

盘编写适当的事件过程，使得在加载窗体时，把in5.txt文件的内容显示在文本

框中，然后在文本的最前面手工插入一行汉字“计算机等级考试”(如图1—5所

示)。最后单击“存盘”按钮，把文本框中修改过的内容存到文件out5.txt中。

gForml

段

一

降

面

本

不

算

麓

金

子-

内

有

已

存

盘

图1・5注意：只能在最前面插入文字，不能修改原有

文字。文件必须存放在考生文件夹下，以sjt5.vbp为文件名存储工程文件，以

sjt5.frm为文件名存储窗体文件。

标准答案：【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并

设置属性。步骤2：打开代码编辑窗口，编写相应事件过程。参考代码：Private

SubCl_Click()Open"out5.txt"ForOutputAs#1Print#1,Textl.TextClose#1EndSub

PrivateSubForm_Load()Open"in5.txt"ForInputAs#1Textl.Text=""DoWhileNot

EOF(1)LineInput#1,a$Textl.Text=Text1.Text+aS+Chr(l3)+Chr(l0)LoopClose

#1EndSub步骤3：按VF5＞键运行程序，在文本的最前面手工插入一行汉字：

“计算机等级考试”，然后单击“存盘”按钮保存结果。步骤4：按要求将文件保存至

考生文件夹中。

知识点解析：暂无解析

国家二级VB机试(上机操作)模拟试卷

第6套

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

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

(1)在名称为Forml的窗体上画一个水平滚动条，其名称为HScrolll,Min属性

为0,Max属性为100,LargeChange属性为5,SmallChange属性为2,然后再画

一个文本框，其名称为Textl,初始内容为空白，编写适当的事件过程。程序运行

后，在文本框中输入0F00之间的一个值，然后单击窗体，则滚动条的滚动框移

到相应的位置，程序的运行情况如图1—288所示。

图1-288要求：程序中不得使用任何变量。

存盘时必须存放在考生文件夹卜，_L程文件名为sjll.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上画一个标签，其名称为Labell,标题为“程序设

计”，AutoSize属性为True；然后再画一个列表框，通过属性窗口输入5个项目，

分别为10、16、20、24、36,如图1—289(a)所示，编写适当的事件过程。程序

运行后，如果用鼠标选中列表框中的某个项目，则把标签中字体的大小设置为与该

项目相同。程序的运行情况如图1—289(b)所示,

(b)

图1-289要求：程序中不得使用任何变量。存盘时必

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

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

中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表

表2・154

控件属性值

NameText1

文本框:

Text

NameHScrolll

Min0

水平滚动条Max100

SmallChange2

LargeChange5

2—154所示。步骤2：

打开代码编辑窗口，输入如下代码：参考代码：PrivateSubForm_Click()

HScrolll.Value=Val(Textl.Text)EndSub步骤3：按要求将文件保加至考生文件夹

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

列表框和一个标签，按表2—155设置其相关属性。

表2・155

对象属性值

NameListl

列表框

List10、16、20、24、36

NameLabel1

标签Caption程序设计

AutoSizeTrue

步骤2：在打开的代码

编辑窗口中，编写列表框的单击事件代码。参考代码：PrivateSubLisll_Click()

Label1.FontSize=Val(Listl.Text)EndSub步骤3：按要求将文件保存至考生文件夹

中0

知识点解析：暂无解析

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

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

在窗体上有一个命令按钮，其名称为Command］，标题为“移动”：有一个文本框，

名称为Textl,可以多行显示；此外还有一个列表框，其名称为Listl。程序运行

后，会在列表框中显示几行文字，如图1—290(a)所示。如果单击命令按钮，则

把列表框中的文字移到文本框中，如图1—290(b)所示。该程序不完整，请把它

补充完整(程序中的vbCrLf表示回车换行符)。

OForTllIoH日〕—

惹

树

工

4水

移

O风

S£动

大

(a)

Fornl

狷

树

木

雪

m几

下

,度

仕

人

天

图1-29°要求：去掉程序中的注释符，把程序中

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

来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件

sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有一个标签(名称为Labell)、

个计时器(名称为Timerl)和两个命令按钮(名称分别为Command1和

Command?),如图1-291(a)所示。程序运行后，其初始界面如图1-291

(b)所示。此时如果单击“开始”命令按钮，则可使标签每隔0.2秒闪烁一次;如

果单击“停止”命令按钮，则标签停止闪烁。该程序不完整，请把它补充完整。

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

其他部分。最后用原来的文件名保存工程文件和窗体文件。

标准答案：第1小题【操作步骤】步骤1：打开本题工程文件尔3.vbp,在代码编

辑窗口中，去掉程序中的注释符揩问号"?''改为正确的内容。参考代码：Fori

=0ToList1.ListCount-Is=s&Listl.List(i)&vbCrLfListl.ClearTextl.Text=s步

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

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

将问号“?”改为正确的内容。参考代码：Form_Load事件中的程序：

Timer1.Enabled=FalseTimer1.Interval=200Commandl_Click事件中的程序:

Timer!.Enabled=TrueCommand2_Click事件中的程序：Timer!.Enabled=False步

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

知识点解析：暂无解析

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

3、在名称为Forml的窗体上画三个命令按钮（名称分别为Commandl、

Command2和Command3,标题分别为“显示”、“统计”和“保存”），然后画一个文

本框（名称为Textl,MultiLine属性设置为True,ScrollBars属性设置为2）,如

图1—292（a）所示。程序运行后，如果单击“显示”命令按钮，则读入in5.txt文件

中的文本，并在文本框中显示出来，如图1—292（b）所示；如果单击“统计”命令

按钮，则统计文本框中ASCII码大于等于70、小于等于100的字符的个数，并把

结果在文本框中显示出来，如图1—292（c）所示（注意，图中所显示的统计次数

是随便写的，不是实际的统计结果）；如果单击“俣存”命令按钮，则把统计结果存

入考生文件夹下的out5.txt文件中g

0Formljo『ET

Infdskaxlg>nTdurwday,

BritishPrimelinisterTonyBlair