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

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

第1套

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

1、在名称为Forml的窗体上添加一个名称为L1的标签，标签上标题为“请输入密

码“，添加一个名称为Texll的文本框，其宽、高分别为2000和300,设置适当的

属性，使得在输入密码时，文本框中显示为“*”字符，此外再把窗体的标题设置为

“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所

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

文件名保存为sjtl.frmo!~~"-—

标准答案：【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属

性，如图4.11所示。图4II程序中

用到的控件及属性如表4.7所示。

表4.7

控件M性设置值

NameTextl

Height300

文本枢

Pa*Mw<»nlCluir・

Width2000

NameLI

标爸

(uiption清输入密码

窗体Cuplion——吧也——步骤2：调试并运行程序，效果

如图4.12所示。图4.12步骤3：关闭程序后

按题目要求保存工程和窗体文件。

知识点解析：通过标签的Caption和Name属性设置标题和名称；通过文本框

Name、Height^Pass—wordChai•和Width属性分别设置文本框的名称、高度、显

示，，“字符和宽度；通过窗体Caption属性设置窗体的标题“密码窗口”。

2、在名称为Forml的窗体上添加一个名称为P1的图片框，请编写适当的事件过

程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框“，每

单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。

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

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

sjt2.frmo

标准答案：【操作步骤】步骤I:新建一个窗体，按照题目要求建立控件并设置

其属性，如图4.13所示。图4.13步骤2：

打开代码编辑窗口，在指定位置编写如下代码。参考答案PrivateSub

Form_Click()Forml.Print"单击窗体"EndSubPnVateSubPl_Click()Pl.Print'

单击卤片框“EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

知识点解析：通过图片框Name属性设在图片框的名称，运用图片框Print方法，

使图片框上显示字符，运用窗体Prini方法，使窗体上显示字符。

3、在名称为Forml的窗体上添加两个名称分别为Textl和Text7.的文本框,它们

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

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

平两个滚动条；②程序运行时在Textl中显示输入的字符为程序运行后的窗体

如图所示。-----..———一==——」注意：存盘时必须存放在考

生文件夹下，工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。

标准答案：【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件

并设置其属性，程序中涉及的控件及属性见表4.8和表4.9o

表4.8

控件窗体文本框1

属性CajHionNanwWidthHeightPa»swf>nlChar

设置值两口Textl2400300

*4,9

控件文本枢2

--

M性NomeWidthHeightMultilJncScrollBars

设置值Text!24001200True

―--步骤2：调试并运行程序，关闭

程序后按题目要求存盘。【易错提示】由于ScrollBars属性的设置值较多，易混

乱，请考生牢记4个值分别设置的文本框滚动条属性。

知识点解析：文本框控件的MultiLine属性用于设置文本框是否显示多行文本，值

为True表示是，值为Fake则表示否。ScrollBars属性设置文木框是否有水平或垂

直滚动条，它有0、1、2和3这4个值，。表示没有滚动条（默认值），1表示只有水

平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的

PasswordChar属性常用于设置用某字符（如“*”）屏蔽用户在文本框中键入的内容，

常用于口令输入。

4、在名称为Forml的窗体上添加一个名称为Imagel的图像框，其高、宽分别为

1900.1700,通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框；再

画两个命令按钮控件，名称分别为Cl、C2,标题分别为“放大”、“缩小”，如图所

/Ko要求：①请编写适当的事件过程，程

序运行后，如果单击“放大”按钮，则将图像框的岛度、宽度均增加100;单击“缩

小”按钮，则将图像框的高度、宽度均减少100,要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图

像也自动放大、缩小。注意：存盘时必须存放在考生文件夹下，工程文件名保存

为sjt2.vbp,窗体文件名保存为sjt2.fm。

标准答案：【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置图

像框相应属性，如图4.17所示。

x

SUetdb

O

图4.17步骤2：按照步骤1设置其

他控件相关属性，程序中涉及的控件及属性见表4.10。

表4.10

控件属性设置值

NameImagel

Width1700

图像框Height1900

PicturePic!bmp

StretchTure

NameCl

命令按钮1

Caption放大

NameC2

命令按钮2

Caption缩小

步骤3：打开代码编

辑窗口，在指定位置编写如下代码。参考答案Pri®eSubClCliCk(y当单击”放

大"按钮时.依次将Imagel的高与宽分别加100

Imagel.Height=Imagel.Height+iOOImagel.Width：Imagel.Width+100EndSub

PrivateSubC2CliCk()，当单击“缩小”按钮，则依次将Imagel的高与宽分别减100

Imagel.Height=Imagel.Height-i00Imagel.Width=Imagel.Width—*100EndSub

步骤4：调试并运行程序，关闭程序后按题目要求存盘。

知识点解析：图像框(Image)控件的Picture属性用于在设计阶段时装载在图像框中

显示的图片，它的Stretch(自动伸缩)属性用来设定或入其中的图片是否需要自幼调

整，以适应图像框的大小。图像框的宽和高分别由其Width属性和Height属性设

置。

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

5、在考生文件夹下有一个工程文件sjl3.vbp,窗体中有两个图片框，名称分别为

Pl、P2,其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称

为Cl,标题为“发射”，还有一个计时器，名称为Timcrl。并给出了两个事件过

程，但并不完整，要求：①设置Timed的属性，使其在初始状态下不计时；②

设置Timerl的属性，使其每隔0.1秒调用Timer事件过程一次：③去掉程序中的

注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞

机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图所示。

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名

存盘。

标准答案：【操作步骤】步骤1:按题目要求打开工程文件，设置计时器属性，如

图4.14所示。图4.14步骤2：打开

代码编辑窗口，去掉程序中的注释符将问号改为正确的内容。参考答案(划线

部分是需考生填入的内容)privateSubCl_Slick()Timetl.Enabled=True^^"发

射"按钮.则Timer生效EndSubPrivateSubTimerl_Timer()Statica%a=a+lIf

Pl.Top>P2.Top+P2.HeightThen，判定Pl是否麻虫到P2Pl.MovePl.Left,

Pl.Top-5-a,Pl.Width,PI.HeightElseTimerl.Enabled=False'当PI接触

到P2时Timer事件停止EndIfEndSub步骤3：调试并运行程序，关闭程序后按题

目要求存盘。

知识点解析：工程文件中已建立全部控件，只需编写事件过程即可。Timerl控件的

Interval属性用来控制计时器事件发生的时间间隔，通过题意可知。该属性设置为

100(Interval是以亳秒为单位)。当单击“发射”按钮时开始计时，将计时器控件的

Enabled属性设置为True。如果使航天飞机即Pl停止移动，则将计时器控件的

Enabled属性设置为Falseo

6、在考生文件夹下有一个工程文件sjt4.vbp,运行情况如图所示。程序的功能是

计算下列表达式的值：z=(x+2)人2+(x+3)人3+(x+4)八4+...+(x+N)人N其中N和x的值

通过键盘分别输入到文本框Textl、Text2中。之后如果单击标题为“计算”、名称为

Command1的命令按钮，则计算表达式的值z,并将计算结果显示在名称为Labell

的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要

求去掉程序中的注释符，把程序中的?改为正确的内容。

,|"r-i[sr-“

|I

—)注意：考生不得修改窗体文件中已经存在的程序。程序

中不得使用八运算符。而应使用函数xn进行幕运算，程序至少运行一次，按照下图

输入数据，使x=10,N=5,单击“计算”按钮，计算z的值，并将结果显示在标签

Labell中，否则没有成绩。最后，程序按原文件名存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代

码。参考答案PrivateFunctionxn(aAsSingle,mAslntcgcr)DimiAsIntegertmp=l

Fori=lTomtmp=tmp*a'求a'的结果Nextxn=imo,返回计算结果EndFunctionPrivate

SubCommandlCliCk()DimnAsIntegerDimiAsIntegerDimtAsSingleDimS,X

AsSinglen=Val(Textl.Text)'将数字字符转换为数值X=Val(Text2.Text)'读取n.x

m值7=0Fori=2Tont=x+iz=z+xn(t,iy调用xn函数求t'NextLabell.Caption=z'将

结果显示在La-bellCallSaveResultEndSubPrivateSubSaveResult()Open

App.Path&M\out4.dafTorOutputAS#1Print#1,Labell.CaptionClose#1End

Sub步骤3：按照题目要求调试并运行程序，如图4.15所示。步骤4：关闭程序

后，按照题目要求保存工程和窗体。【易错提示】对于xn(t,i)函数调用的理解，

弄清楚两个变量各代表的函数值的意义，正确调用函数。

r1'"•

BJU二第

ii-cm‘rzziig

图4.15

知识点解析：通过For循环语句实现xn()的某运算；Click事件过程中通过Val〔)函

数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回

值，实现表达式的运算结果；运用Call语句调用SaveResuh函数对结果进行保

存，涉及文件的Open、Close和Outpu1操作，最后将结果保存在文件夹下的

out4.dat文件中。

7、考生文件夹下有一个工程文件sjt3.vbp,其功能是：①单击“读数据”按钮，

则将考生文件夹下in3.dat文件中的100个0-999的整数读入到数组a中；②单

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

值分别显示在文本框Textl、Text2中(注：当一个数的值等于该数中的各位数字的

立方和时，此数被称为水仙花数c如：153=13+53+33.所以"3就是一个水仙花

数)。在窗体文件中已经给出了全部控件(如图所示)和“读数据''命令按钮的事件过

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

大偏为［

木*力

注意：考生不得修改窗体文件中已经存在的控件和

程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上角的“关

闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

标准答案：【操作步骤】步骤1：按照题目要求打开工程文件。步骤2：打开代码

编辑窗口，在指定位置编写如卜代码。参考答案DimiAsIntegerDimmaxAs

Integer,minAsIntegermax=_1min=1000Fori=lTo100Ifisnarc(a(i))ThenI调用

isnarc判断是否为水仙花数Ifmax<=a(i)Thcnmax=a(i)Ifmin>=a(i)Thcnmin=a⑴'

求水仙花数中的最大值与最小值EndIfNextiTextl=maxText2=min步骤3：按照题

口Form!

「a8r

IIQu

图4.18

目要求调试并运行程序，如图4.18所示。步骤4：

关闭程序后，按题目要求存盘。【易错提示】Funciion过程比较复杂，只有了解

了内部函数的用法，才能对水仙花数的判断有一个清晰的思路。对于最值的求解，

则要注意变量初值的处理。

知识点解析：循环遍历数组a,通过调用Function过程判断是否为水仙花数，并通

过If语句对数值进行比较，如果maxV=a⑴。那么max=a⑴，最小值同理。在设置

变量初值时，max=-1,min=1000,目的是方便比较数的大小。因为数组中的数值

最小的是0,最大的是999,所以，让max先等于一1,小于数组中的最小值，在

程序执行过程中，只要有水仙花数，就一定会大于max,这样才会赋值给max,

min=1000也是同样的道理。

8、在考生文件夹下有一个工程文件sjl4.vbpo请在窗体上添加一个组合框，名称

为cbl,并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个

数字)；添加一个名为。Tcxtl的文本框；再添加一个标题为“计算”、名称为。的命

令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定

一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，

0

并放入Tcxtl中。最后，按原文件名存盘。提示：由

于计算结果较大，应使用长整型变量。注意：考生不得修改窗体文件中已经存在

的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的

关闭按钮结束程序，否则无成绩。

标准答案：【操作步骤】步骤1：打开本题工程文件，按照题目要求建立控件并设

置组合框控件属性，如图4.19所示。程序中用到的控件及属性见表4.11。

图419

«4.11

控件文本枢组合枢命令按钮

属性NameNameUMNanwCaption

设置值TcxtlcblCl

li.3.7计算步骤2：打开代码编辑窗口，在

代码编辑窗口指定位置编写以下代码。参考答案PriValeSubCIClick()Dimsum

AsLongDimnAsIntegerDimi.AsIntegern=Val(cbl.Text)，读取选中的数字并通

过函数Vai转换为数值Fori=nTo5000,从本身开始循环查找IfiModn=0Then

sum=sum+i判断是否能被该教整除并求和EndIfNextiTextl.Text=sum布Textl中

显示EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【易错提

示】在定义变量时注意，由于数值较大。应定义为长整型变量，防止数值过大溢

出。

知识点解析：本题主要考查组合框的属性及For循环语句的使用。

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

9、在考生文件夹中有一个工程文件sit5.vbp.该程序的功能是从in5.txt文件中

读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断

素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4-和Label3中

(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。

I:J-I

二---------....-注意：不得修改原有程序和控件的属性。程序结束运行之

前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后

把修改后的文件按原文件名存盘.

标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：分析并在适当位置

编写程序代码。参考答案DimaAsIntegerDimbAsIntegera=0b=arr(1)Fori=lTo

40,确定素数个数Ifprimc(arr(i))Thcn，判断是否为素数a=a+「素数个数累加

Label3.Caption=a雇标签中显示NextFori=lTo40'查找最小素数If

prime(arr(i))Andarr(i)<=bThen，比较素数大小b=ar〃iy将较小素数赋给b

Labcl4.C叩tion=b在标签中显示Next步骤3：按照题目要求调试并运行程序，效

果如图4.16所示。图4.16步骤4：关闭程序后，按题目要求

存盘。【易错提示】prime。过程的函数返回值确定，调用过程中，变量为数组元

素。

知识点解析：除了1和它本身以外，不再有别的约数，这种整数叫做素数。判别某

数m是否是素数的经典算法是：对于m,依次判别能否被1(1=2,3,4…m—1)整

除，只要有一个能整除，m就不是素数，否则m是素数。本题需统计数据中素数

的个数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数，返

回True则为素数，反之则为非素数，通过对返回值的判断确定索数，并进行个数

统计及查找最小值。

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

个文本框Texll、Text2.Text3,以及部分程序代码，请完成以下工作。①在属性

窗口中修改Texl3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗

体如图所示。②建立下拉式菜单。如下表所示。

③窗体文件中给出了所有事件过程，但不完整，

请去掉程序中的注释符，把程序中的?改为正确的内容，以便实现如下功能：当光

标所在的文件框中无内容时，“剪切”、"复制''不可用，否则可以把该文本框中的内

容剪切或复制到Text3中：若Text3中无内容，则“粘贴”不能用,否则可以把

Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的

其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件，将Text3的Visible属性设

置为False,然后按照题目要求建立菜单并设置其属性，如图4.20所示。菜单属

性如表4.12所示。图4・2。步骤2:打开代码编

辑窗口，去掉程序中的注释符”」，将问号改为正碓的内容。

表4.12

1控件编辑剪切复制怙贴

名称EditCutCopyPaiUe

内缩符号01!1

参考答案（阴影部分是需考生填入

的内容）DimwhichAsIntegerPrivateSubcopyclick。'复制按钮Ifwhich=lThen'当焦

点在。rextl中，将Texil中的内容复制给。rext3Text3.Text=Tcxtl.TextElself

which=2Then伺理，焦点在Texl2中，将Texl2中的内容复制给Texl3

Text3.Text=Text2.TextEndIfEndSubPrivateSubcutClick（y剪切按钮Ifwhich=l

The”当焦点在Textl中，则将内容复制给Text3,并清空Textl内容

Text3.Text=Textl.TextTextl.Text=n"Elselfwhich=2Then'同上

Text3.Text=Text2.TextText2.Text=""EndIfEndSubPrivateSubeditClick（y

编辑Ifwhich=IThenIfTextl.Text='"'ThenCut.Enabled=False

Copy.Enabled=FalseElseCut.Enabled=TrueCopy.Enabled：TrueEndIfElself

which=_2_ThcnIfText2.Text=""ThenCut.Enabled=FalseCopy.Enabled=False

ElSeCut.Enabled=TrueCopy.Enabled=TrueEndIfEndIfIfText3.Text=""

ThenPaste.Enabled=FaIseElsePaste.Enabled=TrueEndIfEndSubPrivateSub

pasteClick（）u粘贴按钮Ifwhich=lThen"当焦点在Textl中则将Text3的内容追加

至UTextl文件末尾Textl.Text二Textl,Text+Text3.TextElselfwhich=2Then，同上

Text2.Text=Text2,Tuxt+Text3.TextEndIfEndSubPrivateSubTextlGotFocusO,

本过程的作用是当焦点在Textl中时，which=lwhich=lEndSubPrivateSub

Text2GotFocus。'本过程的作用是当焦点在Text2中时，which=2which=2EndSub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。【易错提示】对于which

值的判断，贯穿整个程序，因此要明白为什么要设置which值来进行判断。

知识点解析：本题中隐藏的文本框Texl3的功能相当于剪贴板。在文本框（Texll或

Text2）获得焦点触发的Go〔Focus事件过程中，用窗体变量which记录下该文本框序

号（1或2）。在“编辑”菜单的。ick事件过程中，首先根据which的不同值来判断相

应文本框（Textl或Tex⑵的内容是否为空，如果内容为空则设置“剪切”和“复制”菜

单项不可用，否则设置“剪切”和“复制”菜单项可用；其次判断Text3文本框的内容

是否为空，如果内容为空则设置“粘贴”菜单项不可用，否则设置“粘贴”菜单项可

用。

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

第2套

一、基本操作题（本题共2题，每题7.0分，共2分°）

1、在名称为FormL标题为“选课”的窗体上添加一个复选框数组，名称为CH1,共

有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语

文”、“计算机”复选框处在选中状态下，程序运行时的窗体如图所示。请按要求添

加控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名保

存为sjtl.vbp,窗体文件名保存为sjtl.frmo

标准答案：【操作步骤】步骤1：新建窗体,按照题口要求建立控件并设置属性,

如表4.30所示。步骤2：调试并运行程序，关闭程序后按题目要求存盘。

襄4.30

控件网性设置值

史选枢1Caption败学

Caption语文

规选枢2

Value1

复选枢3Caption英语

Caption计算机

复选银4

Value1

山体Caption选课

知识点解析：复选框(CheckBox)常用于提供多个选项间的多重选择，Value的属性

值决定每个复选框的选中状态：O-Unchecked为未选，1-Checked为选中，2-Grayed

为变灰色。选择某复选框后，该复选框将显示7”，而取消选择后7"消失。

2、在名称为Forml的窗体上添加一个名称为HSI的水平滚动条，其刻度值范围为

1-100；添加一个命令校钮，名称为C1,标题为“移动滚动框“。请编写适当的事

件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，

滚动框向右移动10个刻度。程序运行时的窗体如图所示。要求程序中不得使用变

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

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

标准答案：【操作步骤】步骤1：新建一个窗体，按照题目要求建立滚动条控件及

命令按钮控件并设置其属性，如图4.25所示。

程序中用到的控件及属性见表4.31。

打开代码编辑窗口，在指定位

置编写如下代码。参考答案PrivateSubClclick。HSI.Vakie=HSI.Value+10'当

用户单击”移动滚动框”按钮则滚动条的Value加10EndSub步骤3：调试并运行程

序，关闭程序后按题目要求存盘。【易错提示】根据题意，刻度值范围为1〜

100,不要忘记设置水平滚动条的Max和Min属性，

知识点解析：在单击命令按钮触发的Click事件中加入让滚动条的Value属性值加

10的语句，在每次单击命令按钮后，滚动条就向右移动10个刻度。

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

3、在名称为Forml的窗体上添加一个名称为Texll的文本框，再建立一个名称为

Format的弹出式菜单，含三个菜单项，标题分别为-加粗”、“斜体”、“下划线”，名

称分别为Ml、M2、M3o请编写适当的事件过程，在程序运行时，当用鼠标右键

单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文

本的格式，如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存

为sjt3.vbp,窗体文件名保存为sjt3.frm。

标准答案：【操作步骤】步骤1：新建一个窗体，按照题目要求建立名称为“Textl”

的文木框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表

表4.32

标题控件（任意）加机斜体下划城

名标FormatMlM2M3

内,符号0111

4.32。步骤2：打开代码编辑窗口，在

指定位置编写如卜代码。参考答案PrivateSubMlClick。Textl.FontBo1d=True'设

置字体为加粗EndSubPrivateSubM2Click（）Textl.FonthaliC=True'设置字体为斜

体EndSubPrivateSubM3Click（）Textl.FontUnderline=True'为文字加下划线End

SubPiivaleSubTcxllMvuscDown（BulluiiAsInteger,SliiftAsInteger,XAsSin­

gle,YAsSingle）IfButton=2Then，判断是否执行该事件Me.PopupMenuFormat'显

示菜单EndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【易错提示】注意不要混淆鼠标左右键的键值。

知识点解析：PopupMenu方法用来显示弹出菜单，语法格式为：

4、在考生文件夹下有一个工程文件sjt4.vbp,含有Forml和Form2两个窗体，其

中Forml为启动窗体，窗体上的控件如图I所示。程序运行后，在Forml窗体的文

本框中输入有关信息（如“密码''文本框中显示"”字符），然后单击“提交”按钮，弹出

“确认”对话框（Form2窗体），并在Fomi2中显示Forml中输入的信息，如图2所

示。单击“确认”按钮，程序结束，单击“重输”按钮，Form2消失，回到.Forml窗

体。在给出的窗体文件中已经给出了程序，但不完整。要求：①将：Forml的标

题改为“注册”，将Forn】2的标题改为“确认”：②设置适当的属性，使Form2标题

栏右上角的所有按钮消失（如图2所示）；③去掉程序中的注释符，把其中的?改为

正确的内容。注意：不能修改程序中的其他部分，标题等属性的修改只能在属性

窗口中进行。最后将修改后的文件按原文件名存盘。

标准答案：【操作步骤】步骤1:打开本题工程文件，按照题目要求设置属性，如

O

物次IB

图4.26所示。图4.26步骤2：打开

代码编辑窗口，去掉程方中的注释符，将问号改为正确的内容，并在指定位置编写

代码。参考答案(阴影部分是需考生填入的内容)PrivateSubCl_Click()DimkAs

IntegerForm2.Show当单击“提交“按钮时。则显示Form2Foim2.Print

Forml.LI.Caption；Forml.Text!Form2.PrintForml.L2.Caption；

Forml.Text2Form2.PrintForml.L3.Caption；Forml.Text3Form2.Print

Forml.Framel.Caption；"："；，取框架Framel的标题名称"性别"Fork=0

To1IfForml.Opl(k).ValueThen通过下一条语句确定KForm2.Print

Forml.Opl(k).CaptionEndIfNextkEndSubPrivateSubFormLoad。'将Password

Char属性设为+则密码输入后显示*Text2.PasswordChar="*"EndSub，需考生

编写的Fonn2中的代码PrivateSubCI_Click()EndEndSubPrivateSubC2CliCk()

UnloadForm2EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

知识点解析：修改窗体标题是通过设置其C叩lion属性来实现的，ControlBox属性

用于设置控制菜单栏是否在窗体标题栏中显示，为在窗体标题栏中只显示标题信

息、，需将该属性值设置为Faise。文本框的PasswordChar属性可设一置用于屏蔽在文

本框中输入内容的字符，例如“*

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

5、在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标

题分别为“口令”和“允许次数”；一个命令按钮0,标题为“确定”；两个文本框名称

分别为Texll和Texl2。其中Texll用来输入口令（输入时，文本框内容显示“*”），初

始内容为空,Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去

掉程序中的注释符，把程序中的?改为正确的内容，使得程序运行时，在Tcxtl中

输入口令后，单击“确定”，如果输入的是“123456”则在Textl中显示“口令正确”；

如果输入其他内容，单击“确定”后，弹出错误提示对话框（如图所示），并且Text2

中的数字减1。最多可输入3次口令，若3次都输入错误，则禁止再次输入。注

意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

7V口'>MT

标准答案：【操作步骤】步骤1：打开本题工程文件，将文本框Textl的

PasswordChar属性设置为步骤2：打开代码编辑窗口，去掉程序中的注释

符，将问号改为正确的内容。参考答案（阴影部分是需考生填入的内容）Private

SubCl_Click（）IfText.Text="123456”Then，输入的口令与正确的口令相比较

Tcxtl.Tcxt="口令正确"Tcxtl.PasswordChar=""ElseTcxt2.Tcxt=Text2.Tcxt-

1'当密码错误时Text2口的数减1IfTexl2.TexOOThenMsgBox"第“&（3-

Text2.Text）&"次口令错误，请重新输入“ElseMsgBox”次输入错误，请退出”

Tcxtl.Enabled：False'当Tcxtl的Enabled属性为false时则文本不能输入EndIf

EndIfEndSub步骤3调试并运行程序，关闭程序后按题目要求存盘。

知识点解析：本题通过判断文本框Textl输入的密码是否为“123456”执行不同的操

作。每输入一次错误密码，将提示重新输入，直到文本框Tcxt2中的数值为0时-，

则提示错误，并禁用文本框Textl。

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

第3套

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

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

名称为Forml的窗体上画两个名称分别为Framel、Frame2的框架，标题分别为

“字号”、“修饰”;在Frame1中画两个单选按钮，名称分别为Optionl、Option2,

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

一个名称为Checkl的复选框，标题为“下划线”。运行后的窗体如图3—174所示。

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

名为sjtl.vbp,窗体文件名为sjtl.frm。（2）在名称为Fomil的窗体上从上到下画

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

标题为“选中字符数是”°程序运行时，在Textl中输入若干字符，选中部分内容

后，单击“选中字符数是“按钮，则在Tcxt2中显示选中的字符个数（如图3—175所

示）。请编写按钮的Click事件过程。怪3/75要求：不得

使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下,

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

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

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

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

2：打开代码编辑窗口，编写以下事件过程。参考代码：PrivateSub

Commandl_Click（）Text2.Text=Forml.Text!.SclLcngthEnclSub步骤3：按要

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

知识点解析：暂无解析

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

2、（1）在考生文件夹下有一个工程文件sjt3.vbpo程序运行后，单击“读入数据”按

钮，可把考生文件夹下in3.txt文件中的所有英文单词读入，并显示在Textl文本

框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到Listl列表框

中(如图3—176所示)。图3/76在in3.txl文件中每个

单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控

件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正

确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原

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

sjt4.vbp,窗体上已经画出所有控件，如图3—177所示。在运行时，如果单击“开

始按钮，则窗体上的汽车图标每o.1秒向右移动一次(初始状态卜.不移动)；如果

单击“停止”按钮，则停止移动。图3/77请完成以下工作：①

设置适当控件的适当属性，使得汽车图标每0.1秒向右移动一次，而初始状态下

不移动；②请去掉程序中的注释符，把程序中的?改为正确的内容；③为两个命

令按钮编写适当的事件过程。最后以原文件名存盘。注意：不得修改已经给出的

程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。

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

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

容。参考代码：st=St&chc=Mid(st,k,1)word="”步骤2：按要求将文旦保

存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工

程文件sjt4.vbp,将计时器Timerl的Enabled属性设置为False,Interval属性设置

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

确的内容并编写两个命令按钮的单击事件过程。参考代码：PrivateSubCI_Click()

Timerl.Enabled=TrueEndSubPrivateSubC2_Click()Timerl.Enabled=False

EndSubPrivateSubTimerlTimer()Pl.MovePl.Left+20EndSub步骤3：按要

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

知识点解析：暂无解析

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

3、在考生文件夹下有一个工程文件sjl5.vbpo在窗体文件中已经给出了全部控件

及部分程序。程序运行时，在文本框Textl中输入一个大于2的偶数，并单击“分

解为''按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够

分解出的最小的素数（一个偶数有时可以分解为多种素数的组合，例如24可以分解

为5和19,也可以分解为11和13,要求取含有最小素数的组合，如图3—178所

示）。图3/78耍求编写“分解为"按钮事件过程

中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程

IsPrime用来判断一个数是否为素数，如果是，返回值为True,否则返回值为

Falseo注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行

时在文本框中输入23456,单击“分解为”按钮，将结果显示在标签中，否则无成

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

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

在代码编辑窗口的指定位置编写以下代码。参考代码：DimiAsIntegerDimnAs

Integern=Val（Textl.Text）IfnMod2<>0ThenMsgBox”请输入偶数!"ExitSub

EndIfFori=2Ton/2IfISPrime（i）AndIsPrime（n—i）ThenLabel1.Caption=i

Labcl2.Caption=n-iExitForEndIfNext2：按VF5>键运行程序，在文本

框中输入23456,单击“分解为"按钮。步骤3：按要求将文件保存至考生文件夹

中。

知识点解析：暂无解析

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

第4套

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

1、（1）在名称为Forml的窗体上画两个标签（名称分别为Label1和Label）,标题分

别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Tcxt2,初始内容均为空）

和一个命令按钮（名称为Commandl,标题为“显示”）。然后编写命令按钮的Click

事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按

钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变

量。注意：存盘时必须存放在考生

文件夹下，工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。（2）在名称

为Forml的窗体上画一个图片框，其名称为Picturel,一个水平滚动条，名称为

HScroIll,一个命令按钮，名称为Command%标题为“设置属性”，通过属性窗口

在图片框中装入一个图形（文件名为picl.jpg,位于考生目录下），图片框的高度与

图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程，程序运

行后，如果单击命令按钮，则设置水平滚动条的属性如下：Min100Max1500

LargeChange100SmallChange10之后就可以通过移动滚动条上的滚动块来放大或

缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。注

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

sjt2.frrrio1图2

标准答案：（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设

置相应属性，程序中用到的控件及属性如表4.16所示。

*4,16

■控件

M性设置值

Nanw,

标签1

Caplion姓名

标签2

(Option年龄

NameTexll

文本枢

Text

NameText2

文本框

Text

命令按钮CapliiHi

步骤2：打开代码编辑窗

口，在指定位置编写如下代码。参考答案PrivateSubCommandl_Click()

Forrnl.PrintTextI.Text&”,现年”&Text2.Text&”岁"EndSub步骤3：调试并

运行程序，关闭程序后我题目要求存盘。(2)【操作步骤】步骤1：新建一个窗

体，添加控件并设置相应的属性。程序中用到的控件及其属性见表4.17。

表4.17

控件属性设置值

NtMT(rPicturr1

图片框Autc»SizrTuff

PicturePiel.jpg

水平滚动条NanrHScZH

NameCommand1

命令按锐

Caption设置属性

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

指定位置编写如下代码。参考答案PrivateSubConimandl_Click()

HScrolll.Max=1500，设置滚动条的最大值、最小值、最关改变值、最小改变值

IIScrolH.Min=100IlScroll1.LargeChange=100HScrolll.SmallChange=10End

SubPrivateSubHScrolll_Change()Picture1.W