vb上机考试试题

第1套上机考试试题

一、基本操作题

图1T

»•4

图1一2

二、简单应用题

下面出现的“考生文件夹”均为c：\wexam\2006000l,

1.在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm,该程序是不完整的，请

在有，？，号的地方填入正确内容，然后删除“?”及所有注释符（即“"号），但不能修改其他部分。

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

本题描述如下：

在窗体上有一个列表框，名称为Listl；一个文本框，名称为Textl；一个命令按钮，名

称为CL标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为Iteml、

Item2、Item3和Item4»如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到

文本框中，如图1—3所示。

-ISJ，

图1-3

2.在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm,该程序是不完整的，请

在有“？’号的地方填入正确内容，然后删除“?”及所有注释符（即号），但不能修改其他部分。

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

在窗体上有三个复选框，名称分别为Chi、Ch2和Ch3,标题分别为“体育”、“音乐”和“美

术”，还有一个命令按钮，名称为cl,标题为“显示”。要求程序运行后，如果选中某个复选

框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框,

单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图1—4所示。

LMJ...

图1-4

三、综合应用题

下面出现的“考生文件夹”均为c：\wexamk20060001«

在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm,该程序是不完整的，请在有

“?”号的地方填入正确内容，然后删除“?”及所有注释符（即""'号），但不能修改其他部分。

本题描述如下：在名称为Forml的窗体上有两个单选按钮，名称分别为Optl和opt2,

标题分别为“100〜200之间素数”和“200〜400之间素数”；一个文本框，名称为Textl；两个

命令按钮,其名称分别为Cmdl和Cmd2,标题分别为“计算”和“存盘”,如图1—5所示。程

序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所

有素数之和，并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入。ut.txt文件

中，该文件必须放在考生文件夹中(在考生文件夹中有标准模块mode.bas,其中的putdata

过程可以把结果存入指定的文件，而isprime函数可以判断整数X是否为索数，如果是素数，

则函数返回True,否则返回False,考生可以将该模块文件添加到自己的工程中)。

图1—5

注意：必须把素数之和存入考生文件夹下的。ut.txt文件中，否则没有成绩。保存程序

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

第I套参考答案与解析

一、基本操作题

名称内缩符号

标题

文件vbFile0

打开vbOpen1

关闭vbClose1

退出vbExit1

帮助vbHelp0

(3)按要求设计含有“文件”和“帮助”的菜单栏。

(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。

(5)设计完成之后，按规定方式存盘。

2.【解析】单击命令按钮触发Click事件，命令按钮的标题由其Caption属性设置；在

窗体上打印信息通过Print方法来实现。

【解题步骤】

⑴建立界面和控件并设置控件属性。程序中用到的控件及其属性见表1—2。

表1—2

属性设置值控件属性设置值

控

件

NameCmd1NameCmd2

按钮Caption喜欢按钮Caption不喜欢

(2)编写程序代码。

参考代码：

PrivateSubCmdl_Click()

Print“数理化”

EndSub

⑶调试并运行程序。

⑷按题目要求存盘。

PrivateSubCmd2_Click()

Print“政史地”

EndSUb

二、简单应用题

1.【解析】本题考查的是列表框控件List的使用。向列表框中添加项目可以用Additem

方法，也可以在属性窗口中进行。

但题目中要求是程序运行后自动添加，所以利用代码实现。

(1)首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frmo

(2)在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表1-3。

表1一3

属性设置值控件属性设置值

控件

列表框NameListlNameC1

文本框NameTextl命令按钮Caption豆制

(3)进入代码窗口，得到如下程序代码：

OptionExplicit

PrivateSubCl-Click(>

axAsInteger

•For1•?ToListl.LlatCount-1

IfListl.Selecced(i):TrueThen

'?=Listl.List(i>

EndIf

Nexti

EndSub

PrivateSabFom^LoadI)

Listi.Additem”temr

Liscl.Addlten*Ic«n2"

Listl.Addltem,icemS"

Listl.Addltent-iLem”

EndSub

(4)For语句循环变量的起始值为0。

(5)列表框的Text属性为最后一次选中的表项的文本

(6)修改这两处的代码。

参考代码如下：

OptionExplicit

PrivateSubCl_Click(l

DimiAsInteger

For1-0ToL18tl.LifltCntjn»:-1

trListL.Selected(l)•Ir」《?Then

Text1.Text«L:at1.Listt11

KndIf

Nexc1

EndSub

FrivaceSubFonn_LoadI)

Liat1.AddItem-Iteml-

Llstl.Addicem•Itemi"

Listl.AtMItern

Liscl.Addltem":

EndSub

(7)调试并运行。

(8)按题目要求存盘。

2.【解析】本题主要考查复选框的使用。单击命令按钮触发Click事件，程序中需要检

测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1,

否则Value值为0。

(1)在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性见表1-4。

表1-4

属性设置值

对•象

NameCh1

复选按钮Caption体育

NameCh2

夏选按钮Caption音乐

NameCh2

复选按钮Caption美术

标签Caption爱好

NameC1

按钮Caption显示

(2)打开代码窗口，程序提供的代码如下：

OptionExplicit

PrivatesubCl_ClickO

,DinsAs?

s"我的食好足・

IfChi.Value-1Then

ss*Chi.Captinn

EndIt

IfCh2.VdiJt-1Thun

。：s♦Co2.Caption

EnaIf

ItCh3.Value=1Then

6-fa♦Ch3.C?aption

EndIf

,Print?

End

(3)读懂程序，分析代码。

①通过语句S="我的爱好是"可知S为字符串，所以应改为：DimsAsString

②由语句：s=s+Chx.Caption可知输出的变量为S,所以应改为：PrintS

(4)编写程序代码，整理后可得如下参考代码：

OptionExplicit

PrivateSubCl.ClickO

Dun8AsString

8・"城•的食好是・

ItChi.Value=1Then

s-s♦Chi.Caption

EndIf

IfCh2.Value・1Then

a7••Ch2.Caption

EndIf

IfCh3.Value1Then

a•s•Ch3.CaprIon

EndIf

Piints

EndSub

(5)调试并运行

三、综合应用题

【解析】本题主要考查的知识点有文本框及选项按钮的使用，在程序代码设计中用到了循环结构设计的思想。素数

的判断准则为看该数除了1和其本身之外，还有无其他约数，若有，表示该数不是素数，否则该数为素数。

文本框用Text属性来显示计算结果；命令按钮的标题通过Caption属性来设置，单击命令按钮触发Click事件；为

了检测单选按钮是否被选中，可以通过检测Value属性来实现，当Value的属性为True时，表示单选按钮被选中，否

则未被选中。

(1)建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见表1-5.

表1-5

属性设置值

控件

NameOp1

单选按钮Caption100~200之间素数

NameOp2

单选按钮Caption200〜400之间素数

续表

属性设置值

控件

文本框NameTextl

NameCmd1

命令按钮Caption计算

NameCmd2

命令按钮Caption存盘

(2)打开代码窗口，得到程序提供的代码如F：

,标泡模块代码

OptionExplicit

Subputdata(t-FileNa:ncAsString,T_StrAs

Variant)

DimsFileAsString

sFile-*\•&t-FileName

OpenApp.Path&sFileForOutputAs•.

Print11,T_Str

Closefl

EndSub

Functionisprime(t_IAsInteger)AsBoolean

DimJAsInteger

isprime=False

ForJ-2ToJI/2

Ift_IModJ=0Then

ExitFor

NextJ

IfJ>t_I/2Then

isprime«True

EndFunction

,亩体代婚

PrivateSubCmdl_Click()

DimiAsInteger

DimtempAsLong

,comp=?

IfOpt2.ValueThen

For1=200To400

,Ifiaprime(?)Then

temp=temp♦i

EndIf

Next

Else

Fori=100To200

Ifisprimefi)Then

lemp:ternp♦i

EndIf

Next

EndIf

•Text1.?=temp

EndSub

PrivateSubCmd2_ClickO

putdata•\out.txt•,Textl.Text

EndSub

(3)分析代码,找出答案。

①temp用来存放累加和，所以必须初始化，即：temp=0

②Textl显示temp的值,所以使用Textl的Text属性，即：Textl.Text=temp

(4)整理代码，标准模块代码内没有错误，得到窗体参考代码如下:

PrivateSubCMdl.ClickO

DiniAsInteger

DintempAsLong

temp•0

ItOpL2.ValueThen

For1«200To400

Itisprimet11Then

temp«t«wp♦1

EndIf

Next

Else

For1-100To200

fisprimeii}Than

temp•temp♦1

findIt

Next

EndXt

Text1.Text=centp

EndSub

PrivateSubCtnd2_Click<)

putdat*TextI.Text

EndSub

(5)调试并运行程序。

(6)按题目要求存盘。

第2套上机考试试题

图2-1

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

2.在名称为Forml的窗体上建立一个水平滚动条，名称为HS1,其最大值为100,最小

值为0。要求程序运行后，每次移动滚动框时，都执行语句Forml.PrintHSl.Value,如图2-2

所示（程序中不能使用任何变量）。

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

二、简单应用题

EXSSMHHIMMK-3耳

图2—2

下面出现的“考生文件夹“均为c：\wexam\20060001«

1.在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm,该程序是不完整的，请

在有，？，号的地方填入正确内容，然后删除“?”及所有注释符（即号），但不能修改其他部分。

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

本题描述如下：

在窗体上有两个单选按钮，名称分别为Opl和Op2,标题分别为“黑体”和“楷体”；一个

文本框，名称为Textl,字体为宋体，字号为四号字；有一个命令按钮，名称为C1,标题为

“切换”。要求程序运行后，在文本框中输入“等级考试”，并选择一个单选按钮，如图2-3所

示。在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图

2-4所示。

图2-3

单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图2-4

所示。

2.在窗体上建立一个名称为Textl的文本框和一个名称为Cmdl、标题为“计算”的命令

按钮，如图2-5所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12,放入

整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，

并把结果存入文件。ut.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保

存文件的过程putdata,考生可以直接调用。

.LsJ

图2-4

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

三、综合应用题下面出现的“考生文件夹“均为c：\wexam\2006000h

在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm,该程痔是不完整的，请在有

“?”号的地方填入正确内容，然后删除"?”及所有注释符（即号），但不能修改其他部分。

本题描述如下：

在名称为Form1的窗体上有一个文本框，名称为Textl,MultiLine属性为True,ScroUBars

属性为2；两个命令按钮，名称分别为Cmdl和Omd2,标题分别为“读入数据”和“计算保存”，

如图2-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整

数，放入一个数组中（数组下界为1）,同忖在文本框中显示出来：如果单击“计算保存”按钮，

则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Textl中显示出

来，同时把结果存入考生文件夹的result.txt文件中（在prog.bas中的putdata过程可以把结果

存入result.tXt文件）。

j睢！

"I

图2-5

图2-6

注意：文件必须存放在考生文件夹下，窗体文件名为kt5.frm,工程文件名为kt5.vbp,

计算结果存入result.txt文件中，否则没

一、基本操作题

1•【解析】本题主要考查控件的基本操作。命令按钮的标题通过Caption属性设置，单

击命令按钮触发Click事件。在窗体上打印信息用Print方法，清除窗体上的打印信息使用

Cis方法，这两条语句在题目中已经给出，只要将其放入适当的事件过程中即可。

(1)本题只用到了1个命令按钮，在窗体上建立这个控件。

(2)将其Caption属性设置为“显示”，将Name属性设置为Cmdl。

(3)在窗体上打印信息用Print方法。参考代码如下：

PrivateSubCmdl_Click()

Form1.Print”显示”

EndSub

(4)清除窗体上的打印信息使用Cis方.法。参考代码如下：

PrivateSubFormClick()

Form1.CIS

EndSub

(5)调试并运行程序。

(6)按题目要求存盘。

2.【解析】本题主要考查滚动条的基本应用。滚动条表示的最大值通过Max属性设置,

最小值通过Min属性设置，滚动条的当前值通过Value属性设置；当滚动框的位置改变时，

触发Change事件。清除窗体上原来显示的值可以用Cis方法来实现。

(1)建立界面并设置控件属性。本程序中用到1个滚动框，按题意将其命名为HSI,即将

其Name属性设置为HS1。

(2)HS1的Min和Max属性分别设置为0和100。

(3)清除窗体上原来的显示值可以用Cis方法来实现。当滚动框的位置改变时，触发

Change事件。参考程序如下：

PrivateSubHSl_Change()

C18

Form1.PrintHS1

EndSub

(4)调试开运仃栏序。

(5)按题目要求存盘。

二、简单应用题

1•【解析】本题主要考查单选按钮和文本框的综合应用。单选按钮和“切换”按钮是通过

它们的Caprion属性来设置的，当单击“切换”时触发它的Click事件来使文本框的内容改变。

文本框的字体设置通过它的Font属性来实现。窗体的控件及其属性已经建好，只需编写事

件过程空缺的代码即可。

(1)打开代码窗口，得到程序代码：

OptiOilExplicit

PrivateSubCl_Click()

IfOPlThen

Textl.Font=Opl.?

EndIf

IfOp2Then

Textl.?="楷体_GB2312”

EndIf

EndSub

(2)研读代码，修改程序。

①语句Textl.Font=Opl.?的目的是选择“黑体"，它通过单选按钮Opl的Caprion属性

决定。即：Textl.Font=Opl.Captio逾语句Textl.?="楷体_GB2312”的目的是选择“楷体”，它

应使用单选按钮Opl的Caption属性修改Textl的字体属性。即：Text1.FontName廿楷体

_GB23ir

(3)整理代码。

参考代码如下：

OptionExplicit

PrivateSubCl-Cliek(>

IfOplThen

Text1.Font-Opl.Caption

EndXf

If0p2Then

Text1.FortNnme--情体_GB2312・

EndIf

EndSub

(4)调试并运行程序。

(5)按题目要求存盘。

2.【解析】在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使

其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现(通过

VisualBasic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使

用了for循环，最后调用了所给模块中的过程将结果进行保存。

(1)画1个文本框和1个命令按钮，建立程序界面。

(2)将命令按钮的Caption属性设置为“计算”，Name属性设置成Cmdlo

(3)文本框属性为默认设置。

(4)声明存储运算结果的Lon9型变量。在编写程序代码时要注意变量范围的设定，题目

要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长整型。例如：

DimtempAsLong

(5)研读过程putdata的代码，掌握其调用格式。

标准模块代码：

OptionExplicit

Subputdata(t.FileNameAsS：‘ing,T_StrAs

Variant)

DinsFilcAsString

sFile•"「&t.FileNar^

Op«nApp.Path&sFileForOutputMtl

PrintT-Str

Closeil

EndSub

(6)过程putdata有两个参数，编写的参考代码如下：

PrivateSubCmdl_Click()

DimaAsInreger

DimtempAsLong

Dim:AsInteger

a-Va】(InputBox「请街入，*12*)1

temp»1

Fori1ToVaifa)

temp=temp*i

Next

Textl.Text=temp

putdataBout.txt*,Textl.Te>

EndSub

(7)调试并运行程序。

(8)按题目要求存盘

三、综合应用题

【解析】文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。

本题涉及到文件的操作，读入顺序文件以顺序的方式打开，用“Input#"语句读取数据。另外，需要注意的是，对文件操

作结束后，一定要关闭文件。

(1)建立界面并设置控件属性。程序中用到的控件及其属性见表2-10

表2・1

控件属性设置值

NameTextl

文本框Scrollbfirs2

MultilineTrue

NameCmd1

命令按钮Caption读入数据

续表

控件属性设置值

NameCrod2

命令按钮Caption计算保存

(2)打开代码窗II,研读程序提供的代码:

”窗体代码

Diali(lTo100)Integer

PrivateSubCadljClickO

Di«jAsInteger

j-0

QponApp.Path6•\in.txt'ForInputAo

Forj-1To100

•Input11.it?)

Next

Close#1

Forj•ITo100

Text1.Text=Text1.Text&1(jl&

Spd”⑸

Next

RndSub

PrivateSubCad2.ClickO

DimtempAsbong

DxnjAsInceyer

,For?-ITo100

If1(j)”400Andi(j),800Then

=temp♦1(jI

EndIf

Next

,Textl.?•temp

putdatatemp

LndSub

书:。娥处代战

Subputdata(ByVainAsInteger'

DimBFileAsString

•File，*\result.txt,

OpenApp.Pathl>8FileForOutputAst

Print-1.a;

Close•1

EndSub

(3)修改代码。

①语句Input#。i(?)是读入数据，它与语句Forj=1T0100配合,所以为：lnput#1,i(j)

②语句Textl.?=temp是将结果temp显示在文本框Textl中，叩：Textl.Text=temp

Dini(1To100)AaInteger

PrivateSubCmdl-CXick()

DimjAsInteger

j•0

OpenApp.Pathfr,\in.txt*ForInput.2#1

Forj1To100

Input•1・i(j)

Next

Close11

Forj>1To100

T«fxr1.Text=Text1.Text&i(j)6Space”)

Next

EndSub

PrivainSubCmd2_Click()

DimtowpAsLong

DimiAATntinaer

Forj-1To100

Tf<(U-400And1(j><800Then

:CM•SB♦I(j)

End

Next

Textl.Text•teitp

temp

EndSib

・林农候检代码

Subputdata(ByVaiaAsInc”er)

DimsFileAsString

ftFi!«­•'tOAuitttxt•

OpenApp.PdthtsFileForOutputAs•)

Print•!«a;

Clos*-*!

(4)参考代码如下：End、：uh

第3套上机考试试题

一、基本操作题

下面出现的“考生文件夹”均为c：\wexam\20060001»

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

1.在名称为Forml的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为

Cmdl和Cmd2,标题分别为“输出”和嘴除“，女闿3-1所示。要求程序运行后，每单击一次“输

出”按钮，不使用任何变量而直接在图片框中显示小写字母loadme：如果单击“清除”按钮，

则清除图片框中的内容。

图3-1

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

2.在名称为Forml的窗体上建立一个名称为Listl的列表框。要求程序运行后，通过

FormLoadO事件过程加载窗体时，执行语句Listl.Addltem**AAA'（,每当单击某个列表项时,

都执行语句Listl.AdditemListt.Text一次，如图3-2所示。

图3-2

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

二、简单应用题

下面出现的“考生文件夹”均为c：\wexam\20060001o

1.在名称为Forml的窗体上建立两个主菜单，其标题分别为，“文件”和“帮助”，名称分

另U为vbFile和vbHelp,“文件”菜单下有三个子菜单项，标题分别为“新建”、"打开”和“存盘”,

名称分别为vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，

则通过MsgBox对话框显示该菜单项的标题，如图3—3所示。

注意：保存时必须存放在考生文件爽下，窗体文件名为kt3.frm,工程文件名为kt3.vbp。

2.在窗体上建立一个名称为Textl的文本框，再建立一个名称为Cmdl、标题为“计算”

的命令按钮，如图34所示。要求程序运行后，单击命令按钮，将计算100〜200之间所有素

数之和，并在文本框中显示结果，同时把结果存入文件out.txt中（在考生文件夹中有标准模

块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数X是

否为素数，如果是素数，则函数返回True,否则返回False,考生可以把该模块文件添加到

自己的工程中）。

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

结果存入result.txt文件，否则没有成绩。

三、综合应用题

下面出现的“考生文件夹”均为c：\wexam\200600010

在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm,该程序是不完整的，请在有

“?”号的地方填入正确内容，然后删除“?”及所有注释符（即""'号），但不能修改其他部分。

本题描述如下：

在名称为Forml的窗体上有一个文本框，名称为Textl,MultiLine属性为True,ScrollBars

属性为2；两个命令按钮，名称分别为Cmdl和Cmd2,标题分别为“读入数据”和“保存数据”,

如图3-5所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt,,文件中的100个整数,

放入•个数组中(数组下界为1),并在文本框Textl中显示出来；如果单击“保存数据”按钮，

则把数组中的前50个数据在文本框Textl中显示出来，并存入考生文件夹中的result.txt文件

中(考生文件夹中有标准模块prog.bas,其中的putdata过程可以把指定个数的数组元素存入

result.txt文件)。

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

结果存入。ut.txt文件，否则没有成绩。

图3-3

图3-4

图3-5一、基本操作题

1.【解析】本题主要考查图片框控件的基本操作。命令按钮的标题通过Caption属性设置，单击命令按钮触发Click

事件：打印信息用Print方法，清除用Cis方法。题目要求在图片框中打印信息，所以在编写代码时应指定Print方法和

Cis方法的使用对象。

在窗体上建立好控件后，先设置控件属性，再编写事件过程。

(1)建立界面并设置控件属性。程序用到的控件及其属性见表3-1.

表3—1

属性设置值

控件

NameCmd1

命令按钮Caption输出

NameCrod2

命令按钮Caption清除

图片框NameP1

(2)命令按钮Cmd1触发Click事件，打印信息用Print方法。题目要求在图片框中打印信息，所以在编写代码时，应

指定Print方法使用对象。

PrivateSubCmdl_C2ick(J

Pl.Print"loadme"

EndSub

(3)清除用CIs方法。题目要求清除图片框中的信息，所以在编写代码时，应指定Cis方法的使用对象。

PrivateSubCmd2_Click()

Pl.Cis

EndSub

(4)调试并运行程序。

(5)按题目要求存盘。

2•【解析】本题主要考查列表框的基本操作，列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可

以在属性窗口中进行，也可以在程序代码中进行。

在窗体上建立好列表框后，先设置属性，再编写事件过程。

(1)建立界面并设置控件属性。程序中只用到1个列表框控件。在窗体上画出列表框，其Name属性默认为ListL

(2)在窗体的Load事件中添力IIList1.Addltem“AAA”语句使程序开始运行时在列表框中添加AAA.参考代码如下：

PrivateSubFornuLoad()

List1,Addltem"AAA*

EndSub

(3)单击列表框中的项H触发Click巾件，题目要求使用Additem方法给列表框添加项目，所以应该将ListLAddltem

的ListLText语句写入列表框的Click事件中。

参考代码如下：

PrivateSubLisrl_Click(i

ListI.AdditemList1.Tu-xr

EndSub

(4)调试并并运行程序。

(5)按题目要求存盘。

二、简单应用题

1•【解析】本题主要考查菜单编辑器的使用。在VisualBasic中，菜单项通过菜单编辑器来建立；选择菜单则是触

发其Click事件.MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。

语法:MsgBox(prompt[»buttons](，title",helpfile,context])

MsgBox函数的语法具有以卜几个命名参数：

prompt：必需参数：字符串表达式，作为显示在对话框中的消息。

buttons：可选参数：数值表达式是值的总和，指定显示按钮的数目及形式。

title：可选参数；在对话框标题栏中显示的字符串表达式。如果省略title,则将应用程序名放在标题栏中。

helpfile：可选参数：字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。

context：可选参数；数值表达式，通过帮助文件的作者指定给适当的帮助主题的上下文编号。

(1)建立菜单项：程序中用到的菜单项及其属性见表3-2。

表3-2

名称内缩符号

标题

文件vbFile0

新建vbNew1

打开vbOpen1

存盘vbSave1

帮助vbHelp0

(2)为各个菜单项编写事件处理程序；

参考代码如下：

KrivateSubvbNew_Click()

MSQBOX•新比"，vbOKOnly

KndSub

PrivateSubvbOpen-Click()

MsqRox"打开vbOKOnly

EndSub

PrivateSubvbSave_Click()

Msqliox•存盘vbOKOnly

EndSub

(37调试并运行程序。

(4)按题目要求存盘。

2.【解析】判断某数是否为素数，主要用到选择结构程序设计的思想。在窗体上建立好控件后，先设置控件的属性

值，再编写事件过程。文本框中显示的内容通过Text属性设置，命令按钮的标题通过Captibn属性设置，单击命令按

钮触发Click事件。

(1)建立菜单项。程序中用到的控件及其属性见表3-3“

表3-3

属性设置值

控件

文本框NameTextl

NalTleCmd1

按钮Caption计莫

(2)打开代码窗口，研读给定的代码。

标准模块代码：