计算机三级网络技术机试一百套

第一套

(1)在名称为Forml的窗体上添加一个名称为Hl水平滚动条，请在属性窗口中设置它的属

性值，满足下列要求：它的最小刻度值为1,最大刻度值为100,在程序运行时鼠标单击滚动

条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名

称分别为LI、L2的标签，并分别显示1、100,

(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空；

再建立一个下拉菜单，菜单标题为“操作"，名称为Ml,此菜单下含有两个菜单项，名称分

别为Copy和Clear,标题分别为“复制"、"清除"，请编写适当的事件过程，使得在程序运行时，

单击"复制"选项菜单，则把Textl中的内容复制到Text2中，单击"清除"选项菜单，则清除Text2

中的内容

【操作步骤】

步骤1：打开VisualBasic,按照题目的要求新建窗体并添加一个水平滚动条控件。

步骤2：在属性窗口中，设置水平滚动条的名称为H1,然后设置其LargeChange的值为10,Max

的值为100,Min的值为1。

步骤3：再在窗体上水平滚动条的左右两端的下方添加两个标签控件Labell和Label2。

步骤4：在属性窗口中将Labell的名称设置为L1,将Caption属性设置为1;再将Label1的名称

设置为L2,将Caption属性设置为100.

步骤5：按下键盘上的F5键运行程序。

步骤6：保存工程，设置工程文件名为sjtl.vbp,设置窗体文件名为sjtl.frm。

(2)【操作步骤】

步骤1：新建窗体，按表3.2建立菜单项并设置其属性。

表32

标题操作复制a除

名称MlCopyClear

01!

步骤2：菜单项设置完成后，单击“确定"按钮。

步骤3：添加文本框控件，按照表3.3设置文本框的属性。

表3.3

控件文本框1文本框2

属性NameName

设置值TextlText2

步骤4：编写程序代码。

参考答案

PrivateSubClear_Click()

Text2.Text=""

EndSub

PrivateSubCopy_Click()

Text2.Text=Textl.Text

EndSub

第二题

(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有一个标签Labell,请添加

一个单选按钮数组，名称为Opl,含三个单选按钮，它们的Index属性分别为0、1、2,标题

依次为"飞机"、"火车"、"汽车"，再添加一个名称为Textl的文本框。窗体文件中已经给出了

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

使得在程序运行时单击"飞机"或"火车"单选按钮时，在Textl中显示“我坐飞机去"或"我坐火

车去"，单击"汽车”单选按钮时，在Textl中显示"我开汽车去"。

(2)在考生文件夹下有一个工程文件sjt4.vbp,Forml窗体中有一个文本框，名称为

Textl；请在窗体上添加两个框架控件，名称分别为Fl、F2,标题分别为“性别"、“身份"；在

F1中添加两个单选按钮控件Opl、0p2,标题分别为"男"、"女”；在F2中添加两个单选按钮

控件0p3、0p4,标题分别为“学生"、"教师"：再添加一个命令按钮，名称为C1,标题为“确

定”。如图所示。请编写适当的事件过程，使得在运行时.，在Fl、F2中各选一个单选按钮，

然后单击“确定”按钮，就可以按照下表把结果显示在文本框中。

(1)【操作步骤】

步骤1：打开本题工程文件，在窗体中添加一个单选按钮数组，包含3个单选按钮。再添

加一个文本框。

步骤2：按照题目要求设置控件的属性，见表3.4。

表3.4

单选单选单选

控件文本框

按钮1按钮2按钮3

属性(CaptionIndexCaplionIndexCaptionIndexName

设置值飞机0火车1汽车2Textl

步骤3：分析并编写程序代码。

PrivateSubOplClick(IndexAsInteger)

DimaAsString,bAsString,cAsString

a=哦坐"

b=哦开”

'SelectCase?

Case0

Textl.Text=a+Me.Op1(0).Caption+”去”

Case1

'Textl.Text=?+Me.Opl(l).Caption+"去"

Case2

Textl.Text=b+Me.Opl(2).Caption+"去”

EndSelect

EndSub

程序结束

参考答案

第一个?处填入：Index

第二个？处填入：a

(2)

【操作步骤】

步骤1：打开本题工程文件，在窗体中添加两个框架，一个命令按钮和4个单选按钮。

步骤2：为步骤1建立的控件设置相关属性，程序中用到的控件及属性见表3.5和表3.6。

表3.5

控件框架1框架2命令按钮

属性Xanx!CufilionNameCaptionNameCapli(in

设置值Fl性别F2身份Cl确定

表3.6

控件单选按钮1单选登钮2单选次钮3单选密钮4

属性NarncCaption\HIIX:CaptionCaption\unirCapliciri

设置值Opl男0P2女0P3学生0p4教师

步骤3：分析并编写程序代码。

程序提供代码

PrivateSubFormUnload(CancelAsInteger)

Opennout4.txtnForOutputAs#1

Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.Text

Close#1

EndSub

程序结束

参考答案

PrivateSubCl_Click()

Text1.Text="我是〃

IfOpl.ValueThen

Textl.Text=Textl.Text&Opl.Caption

Else

Textl.Text=Textl.Text&0p2.Caption

EndIf

If0p3.ValueThen

Textl.Text=Textl.Text&0p3.Caption

Else

Textl.Text=Textl.Text&0p4.Caption

EndIf

EndSub

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

第三题

以下数列：1,1,2,3,5,8,13,21,的规律是从第3个数开始，每个数都是其

前面两个数之和。

在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请

编写适当的事件过程完成如下功能：选中一个单选按钮后，单击"计算”按钮，则计算出上述

数列的第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值。（提示：因计算结

果较大，应使用长整型变量。）

【操作步骤】

步骤1：打开本题工程文件。

步骤2：编写程序代码。

参考答案

PrivateSubCommandl_Click()

Dima()AsLong

DimiAsInteger

DimnAsInteger

Fori=OToOp1.Count-1

IfOpl(i).Value=TrueThen

n=Val(Op1(i).Caption)

ExitFor

EndIf

Next

ReDima(n)

a(l)=l

a⑵=1

Fori=3Ton

a(i)=a(i-1)+a(i-2)

Next

Text1.Text=a(n)

EndSub

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

第二套

一、基本操作

(1)在名称为Forml的窗体上添加一个名称为L1的标签，标签上标题为"请输入密码”,

添加一个名称为Textl的文本框，其宽、高分别为2000和300,设置适当的属性，使得在输入

密码时，文本框中显示为"*"字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置

都必须在属性窗口中进行，程序运行时的窗体如图所示。

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

为sjtl.frm。

■至码Un晨间除

iMfiASW口工7

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

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

的窗体一次，就在窗体中输出"单击窗体”，运行时的窗体如图所示。要求在程序中不得使用

变量，每个事件过程中只能写・条语句。

・Focal

(i)【操作步骤】

步骤1：新建一个窗体，在窗体中添加一个标签，名称设置为L1,将标签的Caption属性

设置为"请输入密码”。然后再添加一个文本框，设置其名称为Textl,然后设置其Height属性

为300,设置其Width属性为2000,设置其PasswordChar属性为"*最后将Forml的Caption

属性设置为"密码窗口”。

步骤2：调试并运行程序。

步骤3：设置工程文件名为sjtl.vbp,设置窗体文件名为sjtl.frm,最后保存工程。

【操作步骤】

步骤1：新建一个窗体，然后在窗体上添加一个图片框。图片框的的属性见表3.7。

表3.7

控件图片框

属性Name

设置值PI

步骤2：编写程序代码。

参考答案

PrivateSubForm_Click()

Form[.Print"单击窗体”

EndSub

PrivateSubPl_Click()

Pl.Print”单击图片框”

EndSub

步骤3：调试并运行程序，然后设置工程文件名为s_jt2.vbp,设置窗体文件名为sjt2.frm,

最后保存工程。

二、简单应用

③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击"发射"按钮,

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

iOJ

ir”i

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

下列表达式的值：

z=(x+2)*2+(x+3)*3+(x+4)*4+・••+(x+\广、

其中的N和x的值通过键盘分别输入到文本框Textl、Text2中。之后如果单击标题为“计

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

的标签中。

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

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

【操作步骤】

步骤1：按题目要求打开工程文件，设置计时器属性，将Enabled属性设置为False,并将

Interval属性设置为100。

步骤2：分析并编写程序代码。

程序提供代码

PrivateSubCl_Click()

'Timerl.Enabled=?

EndSub

PrivateSubTimerl_Timer()

Statica%

a=a=+l

'IfPl.Top>P2.Top+P2.?Then

Pl.MovePl.Left,Pl.Top-5-a,Pl.Width,Pl.Height

Else

'Timerl.Enabled=?

EndIf

EndSub

程序结束

参考答案

第1个？处填入：True

第2个？处填入：Height

第3个？处填入：False

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

【操作步骤】

步骤1:打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

PrivateFunctionxn(aAsSingle,mAsInteger)

DimiAsInteger

tmp=1

Fori=1Tom

'tmp=?

Next

\n=?

EndFunction

PrivateSubCommandl_Click()

DimnAsInteger

DimiAsInteger

DimtAsSingle

Dims,xAsSingle

n=Val(Text1.Text)

x=Val(Text2.Text)

z=0

Fori=2Ton

t=x+i

'z=z+?

Next

Label1.Caption=?

CallSaveResult

EndSub

PrivateSubSaveResult()

OpenApp.Path&"\out4.datMForOutputAs#1

Print#1,Label1.Caption

Close#1

EndSub

程序结束

参考答案

第1个？处填入：tmp*a

第2个？处填入：tmp

第3个？处填入：xn(t,i)

第4个？处填入：z

步骤3：按照题目要求调试并运行程序。

步骤4：关闭程序后，按照题目要求保存工程和窗体文件。

三、综合应用

在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数

据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。

最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完

整，请在指定的位置把程序补充完整。

【操作步骤】

步骤1:打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Privatearr(100)AsInteger

PublicFunctionprime(xAsInteger)

k=Int(Sqr(x)+5)

Fori=2Tok

IfxModi=OThen

prime=False

ExitFunction

EndIf

Next

prime=True

EndFunction

PrivateSubCommandl_Click()

OpenApp.Path&"\in5.txt"ForInputAs#1

Fori=ITo40

Input#1,arr(i)

Next

Close#1

EndSub

PrivateSubCommand2_Click()

，=====考生编写程序开始==========

，=====考生编写程序结束==========

OpenApp.Path&"\oul5.txt”ForOutputAs#1

Print#1,Label3.Caption,Label4.Caption

Close#1

EndSub

程序结束

参考答案

DimaAsInteger

DimbAsInteger

a=0

b=arr(l)

Fori=1To40

Ifprime(arr(i))Thena=a+1

Label3.Caption=a

Next

Fori=1To40

Ifprime(arr(i))Andarr(i)<=bThenb=arr(i)

LabeI4.Caption=b

Next

步骤3：按照题目要求调试并运行程序。

步骤4：关闭程序后，按题目要求存盘。

第三套

一、基本操作

(1)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、

宽分别为300、2400和1200、2400。窗体的标题为“窗口"。请通过属性窗口设置适当的属性,

满足如下要求：

①Text2可以显示多行文本，并且有垂直和水平两个滚动条；

②程序运行时在Textl中显示输入的字符为"*

程序运行后的窗体如图所示。

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

1700,通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框；再画两个命令按钮控

件，名称分别为Cl、C2,标题分别为“放大"、"缩小"，如图所示。

要求：

①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽

度均增加100；单击“缩小”按钮，则将图像框的高度、宽度均减少100。要求程序中不得使用

任何变量。

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

动放大、缩小。

【操作步骤】

步骤1：新建一个窗体，然后在窗体中添加两个文本框。

步骤2：在属性窗口中设置各控件的属性，控件的属性见表3.8和表3.9。

表3.8

控件窗体文本框1

属性CaptionNameWidthHeightPasswordChar

设置值窗口Textl2400300*

表3.9

控件文本框2

属性NameWidthHeightMultiLineScroll-Bars

设置值Text224001200TRUE3

步骤3：调试并运行程序，然后保存工程，设置工程文件名为sjtl.vbp,设置窗体文件名

为sjtl.frmo

(2)

【操作步骤】

步骤1：新建一个窗体，然后在窗体中添加一个图像框和两个命令按钮。

步骤2：为窗体中的各控件设置属性，控件的属性见表3.10和3.11。

表3.10

控件图像框

属性NameWidthHeightPictureStretch

设置值Image117001900picl.bmpTrue

表3.11

控件命令按钮1命令按钮2

属性NameCaptionNameCaption

设置值Cl放大C2缩小

步骤3：编写程序代码。

参考答案

PrivateSubCl_Click()

Image1.Height=Image1.Height+100

Image1.Width=Image1.Width+100

EndSub

PrivateSubC2_Click()

Image1.Height=Image1.Height-100

Image1.Width=Image1.Width-100

EndSub

步骤4：调试并运行程序，然后保存工程，设置工程文件名为sjt2.vbp,设置窗体文件名

为sjt2.frmo

二、简单应用

(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是：

①单击“读数据”按钮，则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入

到数组a中；

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

值分别显示在文本框Textl、Text2中。（注：当一个数的值等于该数中的各位数字的立方和时,

此数被称为水仙花数。如：153=『+53+3、所以⑸就是一个水仙花数）

在窗体文件中已经给出了全部控件（如图所示）和"读数据"命令按钮的事件过程以及判断

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

（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cbl,

并输入三个列表项："3"、“7"、”11”（列表项的顺序不限，但必须是这3个数字）；添加一个名

为Textl的文本框；再添加・个标题为“计算"、名称为C1的命令按钮。如图所示。请编写适

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

5000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文件名存盘。

(1)【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dima(100)AsInteger

PrivateSubCommandl_Click()

DimkAsInteger

OpenApp.Path&n\in3.dat"ForInputAs#1

Fork=1To100

Input#1,a(k)

Nextk

Close#1

EndSub

PrivateSubCommand2_Click()

'需考生编写

EndSub

以下Function过程用于判断某数是否为水仙花数

Functionisnarc(pAsInteger)

x=Fix(p/100)

y=Fix((p-x*100)/10)

z=p-x*100-y*10

Ifp=xA3+yA3+zA3Then

isnarc=True

Else

isnarc-False

EndIf

EndFunction

PrivateSubFormUnload(CancelAsInteger)

OpenApp.Path&"\out3.datnForOutputAs#1

Print#1,Val(Textl.Text)

Print#1,Val(Text2.Text)

Close#1

EndSub

程序结束

参考答案

DimiAsInteger

DimmaxAsInteger,minAsInteger

max=-1

min=1000

Fori=1To100

Ifisnarc(a(i))Then

Ifmax<=a(i)Thenmax=a(i)

Ifmin>=a(i)Thenmin=a(i)

EndIf

Nexti

Textl=max

Text2=min

步骤3：按照题目要求调试并运行程序。

步骤4：关闭程序后，按题目要求存盘。

(2)【解题思路】本题主要考查组合框的属性及For循环语句的使用。

Mod取模运算，就是求余数，比如：10mod3=I因为10除以3等于3余1,结果就是

余数。如果amodb=0,则说明a能被b整除,反之amodb<>0,则a不能被b整除。

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

输入信息，也可在列表框部分选择项目；组合框的列表项可在设计阶段通过其List属性添加，

每输入完一项后按<Ctrl+Enter>键换行再输入下一项；其Text属性用于设置或返回其文本框

部分当前的文本。

根据题意，用For逐一循环5000内的整数，通过If语句的条件表达式：iModn=0,判断

各个数是否能被n整除，把能被整除的数累加到变量sum。i为循环变量，n的值为

Val(Cbl.Text)o

【操作步骤】

步骤1：打开本题工程文件，在窗体中添加一个文本框，一个组合框和一个命令按钮。

步骤2：设置窗体中控件的属性，控件的属性见表3.12。

表3.12

控件文本框组合根命令及钮

国性NameNHHW!Li©Narixi!Captiun

设置值Text!cblH.3.7Cl计算

步骤3：分析并编写程序代码。

程序提供代码

窗体代码

PrivateSubForm_Unioad(CancelAsInteger)

unloadsub

EndSub

模块代码

Subunloadsub()

Opennout4.dat,'ForOutputAs#1

Print#1,VaI(Form1.Cb1.Text),Val(Form1.Text1.Text)

Close#1

EndSub

程序结束

参考答案

PrivateSubCl_Click()

DimsumAsLong

DimnAsInteger

DimiAsInteger

n=Val(Cbl.Text)

Fori=nTo5000

IfiModn=0Then

sum=sum+i

EndIf

Nexti

Text1.Text=sum

EndSub

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

三、综合应用

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

Textl、Text2、Text3,以及部分程序代码。请完成以下工作：

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

窗体如图所示；

②建立下拉式菜单，如下表所示：

标题名称

编辑Edit

剪切Cut

复制Copy

粘贴Paste

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

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

可用，否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容，则“粘贴”不

能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。

【操作步骤】

步骤1：打开本题工程文件，将Text3的Visible属性设置为False,然后按照题目要求建立

菜单并设置其属性。

菜单属性如表3.13所示。

表3.13

控件编辑剪切复制粘贴

名称EditCutCopyPaste

内缩符号0111

步骤2：分析并编写程序代码。

程序提供代码

DimwhichAsInteger

PrivateSubcopy_Click()

Ifwhich=1Then

Text3.Text=Text1.Text

Elselfwhich=2Then

Text3.Text=Text2.Text

EndIf

EndSub

PrivateSubcut_Click()

Ifwhich=1Then

Text3.Text=Text1.Text

Text1.Text”

Elselfwhich=2Then

Text3.Text=Text2.Text

Text2.Text=,,n

EndIf

EndSub

PrivateSubedit_Click()

'Ifwhich=?Then

IfTextl.Text=,H,Then

cut.Enabled=False

Copy.Enabled=False

Else

cut.Enabled=True

Copy.Enabled=True

EndIf

(Elselfwhich=?Then

IfText2.Text=,H,Then

cut.Enabled=False

Copy.Enabled=False

Else

cut.Enabled=True

Copy.Enabled=True

EndIf

EndIf

IfText3.Text=,n,Then

Paste.Enabled=False

Else

Paste.Enabled=True

EndIf

EndSub

PrivateSubpaste_Click()

Ifwhich=1Then

1Text1.Text=?

Elselfwhich=2Then

1Text2.Text=?

EndIf

EndSub

PrivateSubTextl_GotFocus()沐过程的作用是：当焦点在Textl中时、which=1

which=1

EndSub

PrivateSubText2_GotFocus()，本过程的作用是：当焦点在Text2中时，which=2

which=2

EndSub

程序结束

参考答案

第1个？处填入：1

第2个？处填入：2

第3个？处填入：Text1.Text+Text3.Text

第4个？处填入：Text2.Text+Text3.Text

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

第四套

一、基本操作

(1)在名称为Forml的窗体上添加一个名称为Commandl的命令按钮，标题为"打开文

件"，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开

文件对话框，请按下列要求设置属性和编写代码：

①设置适当属性，使对话框的标题为“打开文件”；

②设置适当属性，使对话框的"文件类型"下拉式组合框中有两项可供选择："文本文件"、

”所有文件"(如图所示)，默认的类型是"所有文件"；

③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。

要求：程序中不得使用变量，事件过程中只能写一条语句。

(2)在名称为Forml的窗体上添加一个名称为Commandl的命令按钮，其标题为"移动

本按钮”，如图所示。

要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。

要求：程序中不得使用变量，事件过程中只能写一-条语句。

(1)

【操作步骤】

步骤1：新建一个窗体，在窗体中设置一个命令按钮和一个通用对话框。

在属性窗口中设置控件的属性，控件的属性见表3.14和3.15。

表3.14

控件命令按钮

属性NameCaption

设置值Commandl打开文件

表3.15

控件通用对话框

属性NameDialogTitleFilterIndexFilter

文本文件|*txt断有文件

设置值CD1打开文件2

|*.*|

步骤2：编写程序代码。

参考答案

PrivateSubCommandl_Click()

CD1.ShowOpen

EndSub

步骤3：调试并运行程序，保存工程，设置工程文件名为sjtl.vbp,设置窗体文件名为

sjtl.frmo

(2)【操作步骤】

步骤1：新建一个窗体，在窗体中添加一个命令按钮。命令按钮的属性见表3.16。

表3.16

控件命令按钮

属性NameCaption

设置值Command1移动本按钮

步骤2：编写程序代码。

参考答案

PrivateSubCommandl_Click()

Command1.Left=Command1.Left-100

EndSub

步骤3：调试并运行程序，保存工程，设置工程文件名为sjt2.vbp,设置窗体文件名为

sjt2.frmo

二、简单应用

(1)在名称为Forml的窗体上添加一个名称为Labell、标题为"添加项目:"的标签;添

加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的下拉式组合框，并

通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为

Command〕、Command2,其标题分别为"添加"、"统计"。在程序运行时,向Textl中输入字

符，单击"添加"按钮后，则将Textl中的内容作为一个列表项被添加到组合框的列表中；单

击"统计"按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按

钮的Click事件过程。

（2）在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图所示。该程序用来对在上面

的文本框中输入的英文字母串（称为“明文”）加密，加密结果（称为"密文"）显示在下面的文本框

中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数

字n,将''明文"中的每个字母改为它后面的第n个字母（"z"后面的字母认为是"a"，"Z“后面的

字母认为是"A"）,如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉

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

（1）【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置控件属性。

程序中用到的控件及属性设置见表3.17和3.18

*3.17

控件标签文本框下拉式组合框

属性NameCaptionNameTextNameList

设置值Labdl添加项目TextlCombo1美国

中国

俄国

表3.18,

控件Q命令按钮命令按钮2a

属性。Name^Caption*Name©Caption*3

21

设置值。CommandI4添加*Command2小统计。

步骤2：分析并编写程序代码。

参考答案

PrivateSubCommand1_Click()

Combo1.AdditemText!

EndSub

PrivateSubCommand2_Click()

PrintCombo1.ListCount

EndSub

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

(2)【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

PrivateSubCommandl_Click()

DimnAsInteger,kAsInteger,mAsInteger

DimcAsString,aAsString

Fork=0To2

IfOpl(k).ValueThen

'n=Val(Opl(k).?)

EndIf

Nextk

m=Len(Text1.Text)

a=1M,

'Fork=1To?

'c=Mid$(Textl.Text,?,1)

c=String(l,Asc(c)+n)

IfoOro”Z"Andc<nanThen

c=String(l,Asc(c)-26)

EndIf

'?=a+c

Nextk

Text2.Text=a

EndSub

程序结束

参考答案

第1个？处填入：Caption

第2个？处填入：m

第3个？处填入：k

第4个？处填入：a

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

三、综合应用

在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框，名称分别为Textl、

Text2,都可以多行显示。还有三个命令按钮，名称分别为Cl、C2、C3,标题分别为“取数”、

"排序"、"存盘"。"取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组

中，并在Textl中显示出来：“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；

“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图所示。在窗

体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中

的?改为正确的内容，并编写"排序"按钮的Click事件过程，使其实现上述功能，但不能修改

程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。

【操作步骤】

步骤1:打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dima(50)AsInteger

PrivateSubCl_Click()

DimkAsInteger,chAsString

Opennin5.datHForInputAs#1

ch=

Fork=1To50

'Input#l,?

ch=ch+Str(a(k))+”

Nextk

Close#1

'Textl.Text=?

EndSub

PrivateSubC2_Click()

EndSub

PrivateSubC3_Click()

Open"oul5.dat"ForOutputAs#1

Print#1,Text2.Text

Close#1

EndSub

程序结束

参考答案

第1个？处填入：a(k)

第2个？处填入：ch

“排序”按钮的代码

PrivateSubC2_Click()

DimtAsInteger

DimiAsInteger

DimjAsInteger

DimchAsString

ch='H,

Fori=50To2Step-1

Forj=1To49

Ifa(j)>a(j+l)Then

t=a(j+1)

a(j+1)=a(j)

a(j)=t

EndIf

Nextj

Nexti

Forj=!To50

ch=ch+Str(a(j))+,,n

Nextj

Text2.Text=ch

EndSub

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

第五套

-、基本操作

(1)在名称为Forml的窗体上画两个标签(名称分别为Labell和Label2,标题分别显示

为"姓名"和"年龄")、两个文本框(名称分别为Textl和Text2,初使内容均为空)和一个命令按

钮(名称为Command］，标题为"显示然后编写命令按钮的Click事件过程。程序运行后，

在两个文本框中分别输入姓名和年龄，然后单击〃显示”按钮，则在窗体上显示两个文本框中

的内容，如图所示。要求程序中不得使用任何变量。

(2)在名称为Forml的窗体上画一个图片框，其名称为Pictured-个水平滚动条，名

称为HScrolIl,和•个命令按钮，名称为Command］，标题为"设置属性”，通过属性窗口在

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

同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按

钮，则设置水平滚动条的如下属性：

Min100

Max1500

LargeChange100

SmallChange10

之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2

所示。要求程序中不得使用任何变量。

•Feral司SR•Farsiryen

(1)【操作步骤】

步骤1:新建一个窗体，在窗体中添加两个标签，两个文本框和一个命令按钮。

步骤2：按照步骤1设置其他控件相关属性，程序用到的控件及其属性见表3.19和3.20。

表3.19

控件标签1标签2

属性NameCaptionNameCaption

设置值Label1姓名Label2年龄

表3.20

控件文本框1文本框2命令按钮

属性NameTextNameTextCaption

设置值TextlText2显示

步骤3：编写程序代码。

参考答案

PrivateSubCommand1_Click()

Form1.PrintText1.Text&",现年"&Text2.Text&"岁”

EndSub

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

(2)【操作步骤】

步骤1：新建一个窗体，在窗体上添加一个图片框，一个水平滚动条和一个命令按钮。

步骤2：设置窗体中控件的属性，控件的属性见表3.21。

表3.21

控件图片框水平滚动条命令按钮

属性NameAuloSizePictureNameName(Caption

设置值PicturelTruepicLjpgHScnJ11(^oniniandl设置属性

步骤3：编写程序代码。

参考答案

PrivateSubCommandl_Click()

HScroll1.Max=1500

HScrolll.Min=100

HScroll1.LargeChange=100

HScroll1.SmallChange=10

EndSub

PrivateSubHScrolll_Change（）

Picture1.Width=HScroll1.Value

EndSub

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

二、简单应用

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

添加一个名称为Listl的列表框和一个名称为Textl的文本框，如图1所示。编写窗体的

MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到

列表框中的项目（内容任意，不少于三个）；如果用鼠标右键单击窗体，则从键盘上输入要删

除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补

充完整，并能正确运行。

（2）在考生文件夹下有一个工程文件sjt4.vbp（相应的窗体文件名为sjt4.frm）,其功能是

通过调用过程FindMin求数组的最小值。程序运行后，在四个文本框中各输入•个整数，然

后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来（如图所示）。

（1）【操作步骤】

步骤1：打开本题工程文件，在窗体中添加一个列表框和一个文本框，按照表3.22所示

设置控件属性。

表3.22

控件列表框文本框

属性NameName

设置值ListlTextl

步骤2：分析并编写程序代码。

程序提供代码

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

IfButton=1Then

Text1.Text=InputBox("请输入要添加的项目”)

,List1.Additem?

EndIf

IfButton=2Then

Text1.Text=Inp