VB机试模拟试卷14

VB机试模拟试卷第1套

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

1、（1）在名称为Forml的窗体上添加一个计时器控件，名称为Timed。请利用“属

性”窗口设置适当属性，使得在运行时可以每隔3秒，调用TimerLTimer过程一

次。另外，请把窗体的标题设置为“计时器设计阶段的窗体界面如图45—1所

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

为sjl.fi«m。（2）在名称为Fomil的窗体上画一个文本框，名称为Textl,无初始内

容。请编写Tcxtl的Change事件过程，不能使用任何变量，使得运行时，在文本

框中每输入一个字符，就在窗体上输出一行文本框中的完整内容。程序运行界面如

•aForml3W

念

工

图45—2所示。0045-1图45-2注

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

sj2.frmo

标准答案：（1）计时器控件的Interval属性，表示两个计时器事件之间的时间间隔，

其值以ms（0.001s）为单位，题目要求每3秒产生一个计时器事件，那么Inlerval属

性应该设置为3000。窗体的标题由窗体的Caption属性设置。根据题意，新建“标

准EXE”工程，将一个计时控件添加到窗体中，然后将其Interval属性设置为

3000（单位是亳秒），单击■按钮运行程序，并按要求保存。（2）根据题意，新建

“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Textl、Text属性为

空，双击Textl进入代码编写窗口，当Textl变换时调用TextLChange函数，代码

如下：PrivateSubTextl_Change（）Forml.PrintTextl.TextEndSub单击;豳按钮运

行程序，并按要求保存。

知识点解析：暂无解析

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

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

功能是产生30个0〜800的随机整数，放入一个数阻中，然后输出这30个整数中

小于400的所有整数的个数。程序运行后，单击名称为Command1的命令按钮，其

标题为“输出小于400的整数的个数”，即可求出这些整数的个数，并在名称为

Textl的文本框上显示出来，如图341所示。这个程序不完整，请把它补充完

整，并能正确运行。注意：去掉程序中的注释符“7把程序中的“?”改为正确的内

容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原

文件名存盘。(2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件为

sj4.frm,在窗体上有一个命令按钮和两个文本框。程序运行后，单击命令按钮，

即可计算出20〜200范围内能被5整除的所有整数的和及个数，并分别在文本框中

显示出来，如图34—5所示。在窗体的代码窗口中，已给出了部分程序，其中计算

能被5整除的整数的和及个数的操作在通用过程Func中实现，请编写该过程的代

码。图347图34-5注意：请勿改

动程序中的任何内容，只在FunctionFunc()和EndFunction之间填入你编写的若干

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

标准答案：(1)本题要产生随机整数，需要使用Rnd函数。Rnd函数返回小于1,但

大于或等于0的值，其格式为：Rnd[(numbcr)]o其中number参数是可选的，是

Single或任何有效的数值表达式。number的值决定了Rnd函数生成随机数的方

式。要生成某个范围内的随机整数，可使用公式：Int((upperbound-

lowerbound+1)*Rnd+lowerbound),其中upperbound是随机数范围的上限，而

lowerbound则是随机数范围的下限。补充后的代码如下：PrivateSub

Commandl_Click()Dima(30)AsInteger'声明一个数组DimnumAsIntegernum=0For

i=lTo30a(i)=Rnd£)*(800-0)，将0-800的随机数存人数组Ifa⑴<400Then

num=num+l'如果数小于400,计数加1EndIfNex【iTexll.Text=num'将得到的总

数放在Texll中显示EndSub单击A按钮运行程序，并按要求保存。(2)要判断一

个数能不能被5整除，使用求余运算符Mod,如果余数不为0,则表示该数不能被

整除。程序提供的代码如下：DimnumAsIntegerPrivateSubCommandl_Click()

Textl.Text=Func'调用Func函数Text2.Text=num'全局变量EndSub补充后的

Func函数参考代码如下：FunctionFunc()AsLong'返回Long型数值DimiAs

IntegerFunc=0num=0Fori=20To200IfiMod5=0Thennum=hum+i如果能被5整

除，则计数加1Func=Func+『算人总和中EndIfNextiEndFunction单击激按钮运

行程序，并按要求保存。

知识点解析：暂无解析

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

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

的。在名称为Forml的窗体上有3个Label控件和2个命令按钮，数据文件

sjin.dat,存放工人的编号、姓名和年龄。按“开始”按钮后，能从考生文件夹下的

sjin.dat中读出数据并把年龄小于平均年龄的工人的所有数据写入考生文件夹下的

sjout.dat文件中；执行完毕，“开始”按钮变成“完成”，且无效,如图37—5所

Forml二131凶

从原文林淮出数雷年静小于平均年龄

的耳到目标女伴中

原文件刖也

目标文件加93

示。图37-5注意：请在有“?”的地方填入正确内容，然

后删除"?''及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名

和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。

标准答案：本题主要考查定义结构体变量，其格式如下：Privatetype结构体名参

数名as参数类型Endtype程序中在同一个过程打开两个文件，因此要用两个文件

号，一个用来读入(文件号#1),一个用来输出(文件号#2)。利用EOF来判断是否读

取完，先对文件进行一次读取，计算出平均值，然后再根据条件进行边读取边写入

的操作，补充后的具体代码如下：PrivaleTypePerson，声明结构体numAs

String*12NamAsString*12YeaAsLongEndTypePrivateSubCommandl_Click()

DimperAsPersonDimargAsLongDimnumAsIntegerarg=0'算平均值num=0，计

数Operf'App.Path&\sjin.dat”ForInputAs#lWhileEOF(l)=False'当没有读取完

则继续读取Input#],per.numInput#l,per.NamInput#l,per.Yea

arg=arg+per.Yea'累加年龄num=num+l，累力口计数WendClose#larg=arg\num

Opcn"App.Pathg&\sjin.dat"ForInputAs#lOpen'App.Pathg&\sjout.dat"For

OulputAs#2'打开输出文件WhileEOF(l)=FalseIriDUl#l,per.numInput#),

per.NamInput#1,per.YeaIfper.YeaEnabled=False'完成后Command1不可用

Commandl.Caption="完成"'Commandl的标签改为完成EndSubPrivateSub

Command?Click()UnloadMe'关闭对话框EndSub单击;"按钮运行程序，并按要

求保存。

知识点解析：暂无解析

VB机试模拟试卷第2套

一、基本操作题(本题共I题，每题上0分，共I分°)

代码：PrivateSubCmdl_Click()Cmd2.Left=Cmdl.LeftCmd2.Top=Cmd1.TopEnd

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

知识点解析：暂无解析

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

2、注意：下面出现的“考生文件夹”均为c：\wexam\25160001o(1)在窗体上建立一

个名称为Textl的文本框，然后建立两个主菜单，其标题分别为“商品类别”和“帮

助”，名称分别为vbMenu和vbHelp,丈中“商品类别”菜单包括“百货”、“食品”和

“家电”三个了•菜单，名称分别为vbMenul、vbMcnu2和vbMcnu3。程序运行后，

如果在“商品类别''的下拉菜单中选择“百货”，则在文本框内显示“大类核算”；如果

选择“食品”，则在文本框内显示“中类核算”；如果选择“家电”，则在文本框内显示

“小类核算”。程序中不能使用任何变量，直接显示字符串。程序运行界面如图6-3

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

口英语班

加1曲理

图6-3图6-4

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

在有2号的地方填入正确内容，然后删除？及所有注释符(即，号)，但不能修改其

他部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为

Textl的文本框：两个复选框，名称分别为Chi和Ch2,标题分别为“英语班”和“计

算机班要求程序运行后，如果只选中Chi,单击窗体，则在文本框中显示“报名

参加英语班”；如果只选中Ch2,然后单击窗体，则在文本框中显示“报名参加计算

机班”：如果同时选中Qil和Ch2,单击窗体，则在文本框中显示“报名参加英语班

和计算机班“；如果Chi和Ch2都不选取，在单击窗体后，则在文本框中什么都不

显示。程序运行界面如图6-4所示

标准答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。在

VisualBasic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器

中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单

的内缩符号为1：文本框的内容由Text属性设置。解题步骤：第一步：建立界面

并设置控件属性。程序中用到的控件及其属性见表6-3。

盘6-3

控件域件设置值

NameVbMcnu

菜汕

Caption商品类别

NameVbMcnu1

菜单

Caption白货

NameVbMcnu2

果小加隼

Caplion食品

NameVbMenu3

菜笊

Caplion宓电

NameVbHelp

采甲

Caption跖助

文本枢Name

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

码：PrivateSubvbMenul_Click()Texll.Text="大类核算"EndSubPrivateSub

vbMenu2_Click()Text1.Text="中类核算"EndSubPrivateSubvbMenu3_Click()

16近1/^*1=”小类核算”£词5北第三步：调试并运行程序。第四步：装题目要求存

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

Rasic中，复选按钮的标题由Caption属性设置，Vwhie属性用来表示复选框的状

态，复选框的Value属性有0、1或2三种取值，其作用为：0：表示未选中；1：

表示选中该复选框；2：表示该复选框被禁止(灰色)。解题步骤：第一步：建立界

面并设置控件属性。程序中用到的控件及其属性见表6-4o

表6-4

控n属n设置攸

文本框NameTcxtl

发送框NameChi

比选鼾Name

----------第二步：编写程序代码。程序提供

的代码：Opt沁nExplicitPrivateSubFormClick()Text1.Text=""'IfChi.Value=?

ThenTcxtl.TcXt=Text1.Text+"英语班”EndIfIfCh2.ValueThenIfTcxtl.Tcxt<

>ThenText).Text=?+”和“Texll.Text=Text1.Text+”计算机班"EndIfIf

Text1.Text<>,H,ThenText1.Text="报名参力口"+Text!.TextEndIfEndSub参考代

码：OptionExplicitPrivateSubFormClick()Tcxtl.Tcxt=""IfChi.Value=1Then

Text1.Text=Text1.Text+"英语班"EndIfIfCh2.ValueThenIfText1.Text<>H"

ThenText1.Text=Text1.Text+"ff"Text1.Text=Text1.Text+”计算机班"EndIfIf

Tcxtl.Tcxt<>n>>ThenText1.Text="报名参力U”+Text1.TextEndIfEndSub第三

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

知识点解析：暂无解析

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

3、下面出现的“考生文件夹”均为c:\wexam\25160001。在考生文件夹中有工程文

件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的，请在有?号的地方填入正确

内容，然后删除?及所有注释符（即，号）但不能修改其他部分。存盘时不得改变文

件名和文件夹。本题描述如下：在名称为Forml的窗体上有一个文本框，名称为

Textl,MultiLine属性为True,ScroDBars属性为2,两个命令按钮,名称分别为

Cmdl和Cmd2,标题分别为“读入数据”和“排序显示保存”，如图5-6所示。程序运

行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数

组中（数组下界为1）：如果单击“排序显示保存”按钮，则对这100个整数按从大到

小进行排序，把排序后的全部数据在文本框Textl中显示出来，然后存入考生文件

夹的out.txt文件中。（考生文件夹下的标准模块modeLbas中的puldata过程可以把

指定个数的数组元素存入。ut.txt文件。）注意：文件必须存放在考生文件夹下，

窗体文件名为sjt5.frm,工程文件名sjt5.vbp,排序结果存入out.lxt文件中，否则没

有成绩。图

标准答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。文本框

显示的内容由Text属性设置：按钮的标题由Caption属性设置，单击命令按钮触发

Click事件：在本题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用

Input#语句读取数据，另外需要注意的是对文件操作完后，一定要关闭文件。排序

的方法有多利I如冒泡排序、选择排序等，本题用的是选择排序法。选择法排序

的思想是：每一次循环从数组的n-i+l（I=l,2,n・l）个元素中选择一个值最小

的元素与你n-i+1个元素的前面那个元素交换位置，即与整个数组的第i个位置的

元素交换位置。如此下去，直到i=n-l时，排序结束。解题步骤：第一步：建立界

面并设置控件的属性。程序中用到的控件及其属性见表5-5o

表5-5

控件，属性设置饮

NameTexll

文本框Scrollbars2

MultilineTrue

NameCmdl

命令按钮

Caption瞋人数据

NameCmd2

命令按钮

Caption排序显示保存

-----------------第二步：编写程序代码。程序

提供的代码。model.bas代码：Subputdata(a()AsInteger,nAsInteger)DimsFile

AsStringsFile="\out.txt"OpenApp.Path&sFiteForOutputAs#1Fori=1TonPrint

#1,a(i)；NextClose#1EndSub窗体代码:OptionExplicitDimi(lTo100)As

IntegerPrivateSubCmdl_Click()DimjAsIntegerOpenApp.Path&"\in.txt"ForInput

As#1'Forj=?To100Input#1,i(j)Text1.Text=Text1.Text&i(j)&Space(5)Next

Close#1EndSubPrivateSubCmcI2_Click()DimjAsIntegerDimkAsIntegerDiin

tempAsIntegerDimflagAsBooleanForj=1To100'flag=?Fork=1To100-jIf

i(k)>i(k+I)Thentemp=i(k)i(k)=i(k+1)i(k+1)=tempflag=TrueEndIfIQIf

NotflagThenExitForEndIfNextText1.Text=,,HForj=1To100Text1.Text=

Text1.Text&i(j)&Space(5)Nextputdatai,100EndSub参考代码：OptionExplicit

Dimi(lTo100)AsIntegerPrivateSubCmdl_Click()DimjAsIntegerOpenApp.

Path&"\in.txt"ForInputAs#1Forj=1To100Input#1,i(j)Text1.Text=Text1.Text&

i(j)&Space(5)NextClose#1EndSubPrivateSubCmd2_CIick()DimjAsIntegerDim

kAsIntegerDimtempAsIntegerDimflagAsBooleanForj=1To100flag=FalseFor

k=1To100-jIfi(k)<i(k+1)Thentemp=i(k)i(k)=i(k+1)i(k+1)=tempflag=

TrueEndIfNextIfNotflagThenExitForEndIfNextText1.Text=n"Forj=1To100

Text1.Text=Text1.Text&i(j)&Space(5)Nextputdatai,100EndSub第三步：调试

并运行程序。第四步：按题目要求存盘。

知识点解析：暂无解析

VB机试模拟试卷第3套

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

1、（1）在名称为Forml的窗体上画两个文本框和两个单选按钮。文本框的名称分别

为Texll和Texl2,初始时内容为Texll和Texl2。单选按钮的名称分别为Oplionl、

Option2,标题分别为“文本框Textl可用”和“文本框Text2可用”。编写适当的事件

过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击Option1按钮，

则文本框Texll可用，Text2不可用；如果单击Option2按钮。则文本框Texl2可

用，Text1不可用。程序中不得使用任何变量。程序运行时的窗体界面如图26—1

所示。注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹

下，文件名分别为sjl.vbp与sjl.firn。（2）在名称为Forml的窗体上画一条直线，

名称为Linel。同时，在窗体上画一个水平滚动条，名称为HScro川。编写适当的事

件过程，程序运行后，艰据水平滚动条的长度改变Linel的长度。不得使用任何变

量。程序运行时的窗体界面如图26—2所示。

3凶Sk3为

r文本福作文本裾

TgIBI用Jet酒用

图26-1图26-2注意：存盘

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

标准答案：（1）根据题意，新建“标准EXE”工程，将两个Text控件和两个OpHon控

件添加到窗体上,Text的名称为Text】、Text2>Text属性分别为“TextF和"ext2”,

Option的名称分别为Option】、Option?NCaption属性分别为“文本框Textl可,用”和

“文本框Tex12可用"，奏中OpUonl的Value属性为False,Texi2的Enable屈性为

Falseo双击Option进入代码窗口，编写如下代码：PrivateSubOptionl_Click（）

Textl.Enabled=True'选中OptionL则Textl可用Text2.Enabled=False'Text2不可

用EndSubPrivateSubOption2_Click（）Textl.Enabled=FalseText2.EnabIed=True

EndSub单击》按钮运行程序，并按要求保存。⑵根据题意，新建“标准EXE”工

程,将一个HScrollBar控件添加到窗体上，其名称为HScrolll,Max属性为2000,

Min属性为400,然后再用Line控件画一条直线，X2-XI的值为400,

Bm,derWidth属性为4。双击HScrollI,进入代码窗口，编写如下代码：Private

SubHScrolll_Change（）Linel.X2=Linel.Xl+HScroIll.Value'通过HScrolll来改变

Line的长度EndSub单击承^按钮运仃程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮，标题为

“开始”，名称为Commandl；有一个图片框，名称为Piel,还有一个计时器，名称

为Timcrl。并给出了两个事件过程，但并不完整，要求：设置计时器的属性，使

其每隔3秒调用Timer1事件过程一次，改变Piel的背景色（红、绿、蓝3色）。去掉

程序中的注释符把程序中的“?”改为正确的内容，使得在运行时单击“开始”按

钮，则Piel每隔3秒改变一次背景色，由红变绿，由绿变蓝，再由蓝变红，如图

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

存盘。（2）在窗体上绘制一个命令按钮，名称为Command1,标题分别为“计算”，

个名称为Textl的文本框。请编写适当的事件过程，在Textl中输出30以内满足勾

股定理的整数组合。注：勾股定理中3个数的关系是：a?+b2=C?。例如3、4、5就

是一个整数组合，即32+42=52。如图23—4所示。

-IDIx|

•Fonnl3凶

zJ

图23-3图23-4

注意：编写程序，去掉程序中的注释符把程序中的“?”改为正确的内容，不能

修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

标准答案：(1)本题主要考查Timer控件的属性设置和图片框控件的属性设置。计

时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫

秒，它可以在属性窗口中设置，也可以通过代码设置。图片框控件既可用于显示图

片，也可用于在上面绘图，由于本题只要求改变颜色，所以只需控制其背景颜色属

性即可。根据题意，补充后的代码如下：DimaAsIntegerPrivateSub

Commandl_Click()Timed.Interval：1000'开始后,Timer的间隔时间为1秒End

SubPrivateSubFonn_LoadOa=0'初始化计数Piel.BackColor=RtB(255,0,O)End

SubPrivateSubTimerl_Timer()a=(a+l)Mod9，以9为周期Ifa<3Then'当a小于3时

Piel.BackColor=RGB(255,0,O)，背景色为红色Elsclfa>=3Anda<6Then，当a<6

时Piel.BackColor=RGB(O,255,0)‘背景色为绿色Else'其他情况

Piel.BackColo尸RGB(0,0,255)'背景色为蓝色EndIfEndSub单击加按钮运行

程序，并按要求保存。(2)本题只要明白勾股定理的含义就不难了，即

aA2+bA2=cA2o程序中利用3重循环对30以内的数进行遍历，每发现一组符合条件

的数，就以逗号间隔显示在文本框中。窗体界面题中已设计好，只需补充相应的代

码，补充后的代码如下：PrivateSubCommandl_Click()DimiAsIntegerDimjAs

IntegerDimkAsIntegerDimstrAsStringstr=M"Fori=lTo30'第1个数用For循环

从1遍历到30Forj=iTo3(T第2个数用For循环从i遍历到30Fork=iTo30'第3

个数用For循环从i遍历到30Ifi人2+j八2=kA2Then'满足勾股定理str=str+CStr(i)+",

,,+CStr(j)+"»"+CStr(k)+vbCrLF将获得的3个数通过字符串形式记录EndIfNextk

NextjNextiTextl.Texi=str'在Textl中显示结果EndSub单击战:按钮运行程序，

并按要求保存。

知识点解析：暂无解析

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

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

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

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

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

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

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

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

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

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

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

否则不得分。

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

到窗体中，文本框的名称为Text】，单选按钮的名称：分别为Option】和Option2,

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

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

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

PrivateSubCommandl_Click()DimrainAsInteger'下限DimmaxAsInteger'上限

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

Option).Value=TrueThen'选中Option!时min=100max=250tmp=5Else'选中

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

个判断IfiModlmD=0Thennum=mim+l，如果能被除数整除，则个数加1EndIf

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

out5.txt"ForOutputAs#lPrint#1,Textl.TextClose#lEndSub单击承按钮运行

程序，并按要求保存.

知识点解析：暂无解析

VB机试模拟试卷第4套

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

1、⑴在名称为Form1的窗体上绘制一个名称为Command1的命令按钮，标题为“打

开”，再绘制一个名称为CommonDialogl的通用对话框。程序运行后，如果单击

“打开”，则弹出打开文件对话框。请按下列要求设置属性并编写代码。设置适当

属性，使对话框的标题为“打开”：设置适当属性，使对话框的“文件类型”下拉式组

合框中有两行：“文本文件”和“所有文件”，如图38—1所示，默认的类型是“文本文

件“；编写代码，使得单击“打开”按钮可以弹出“打开''对话框。要求：程序中不得

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

下，工程文件名为sjl.vbp,窗体文件名为sjl.frmo(2)在名称为Forlml的窗体上

绘制一个名为Piel的Picture控件和一个命令按钮，名称为Command］、标题为“移

动图片框”，如图38—2所示。要求编写适当的事件过程，使得程序运行时，每单

击按钮一次，图片框向右移动150。要求：程序中不得使用变量，事件过程中只能

写一条语句。

OC1"皿叫

।-----“11251

i3-ttjera-

立

w¥

•

更

渴

1555s3:移动图片精

「CRGFUT舞3

图38-1图38-2

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

sj2.frm。

标准答案：(1)本题主要考查通用对话框的使用。通用对话框的属性可以在属性窗

口中直接设置。文件类型在其Filter属性中设置，其格式为：文件说明1文件类

型。根据题意，新建“标准EXE”工程，将一个命令按钮和一个文件对话框控件添

加到窗体中，命令按钮的名称为Commardl、Caption属性为“打开”，文件对话框控

件的名称为CommonDialogl,并将其Filter属性设置为：文本文件|*.lxt|所有文件

*。其中，添加文件对话框控件要选择“工程”一“部件”命令，打开“部件”对话

框，并将MicrosoftCommonDialogControl6.。前的复选按钮选中，单击“确定”按

钮将其添加上工具箱中，然后再像其他控件一样使用。双击Command1进入代码窗

口，编写如下代码：PrivateSubCommandl_CIick()CommonDialogl.ShowOpen

EndSub单击••按钮运行程序，并按要求保存。(2)根据题意，新建“标准EXE”工

程，将一个图片框控件和一个命令按钮添加到窗体中，图片框控件的名称为Piel,

命令按钮的名称为Command］、Caplion属性为“移动图片框”，设置完成后双击

Commandl,进入代码编写窗口，命令按钮向中移动要用到按钮的Left属性，使其

值在每单击一次按钮时力口150。具体代码如下：PrivateSubCommandl_Click()

Piel.Left=Picl.Left+150EndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在窗体上有一个名为Labell的标签控件和三个单选按钮，均没有标题，请利

用“属性”窗口为单选按钮依次添加标题“汉语”、“英语”、“德语”；再添加一个标题

为“输出”的命令按钮，如图45-3所示。程序的功能是：运行时，如果选中一个单

选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Labell显示“我的母

语是汉语”、“我的母语是英语”或“我的母语是德语”。设初始选中的是“汉语注

意：去掉程序中的注释符“巾，把程序中的"?''改为正确的内容，使其实现上述功

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

文件按sj3.vbp和sj3.frm文件名存盘。（2）在考生文件夹下有一个工程文件

sj4.vbp,窗体中有3个标签，名称分别为Labell、Label2和Label3,标题分别为

“字型”、“字体”、“模拟考试”；在Labell和Label2标签的下面有两个组合框，名称

分别为Combol和Combo2,并为Combol添加项目：“下划线”、“黑体”和“斜体”,

为Combo2添加项目：“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程,使

得程序在运行时，当在Combol中选一个字号、在Combo2中选一个字体，标签

Label3中的文字立即变为选定的字号和字体，如图45—4所示。

图45-3图45-4注

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

个字号和字体。，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按

原文件名存盘，程序中不能使用任何变量。

标准答案：（1）单选按钮的标题由Caption属性设置.判断单选按钮的状态通过

Value属性来实现。如果单选按钮被选中，则Value值为1；没选中，Value值为

Oo根据题意，将3个单选按钮控件、一个命令按钮和一个标签添加到窗体中，单

选按钮的名称分别为Option］、Opiion2和Option3,Caplion属性分别为“汉语，”,英

语”和“德语”，命令按钮的名称为Command】、Caption属性为“输出”，标签的名称

为Labell、Caption属性为空。双击Commandl进入代码编写窗口,利用If...else语

句进行判断，补充后的具体代码如卜：PrivateSubCommandl_Click（）If

Option!.Value=TrueThenLabell.Ca3ion="我的母语是"+ODtionl.CaptionElseIf

Option?.Valuc=TrueThenLabell.Caption="我的母语是"+Option2.CaptionElse

Labell.Caption="我的母语是”+Option3.CaptionEndIfEndIfEndSub单击,按

钮运行程序，并按要求保存。（2）控件的名称由Name属性设置，向组合框添加项

目有两种方法，可以在“属性”窗口的List属性里直接添加，也可以在代码中添加。

本题要求在设计时添加。根据题意，将两个ComboBox控件和三个标签添加到窗

体中，ComboBox的名称属性分别为Combol和Comb02,分别在Lisi属性中添加

“下划线”、“黑体”、“斜体”和“华文行楷”、“宋体”、“隶书”，并将Style属性都设为

3,标签的名称分别为Labell、Labcl2#Label3,C卬tion属性分别为“字型”…字

体''和"模拟考试”。双击窗体进入代码编写窗口，单击Combo调用Click函数，具

体代码如下：PrivateSubCombOl_Click()，Combol1勺单击事件If

Combo1.ListIndex=OThenLabel3.Font.Underline=True,卜划线为真

Label3.Font.Bold=False'黑体为假Label3.Font.Italic=False'斜体为假ElseIf

Combo1.Listlndex=lThenLabel3.Font.Bold=TrueLabel3.Font.Italic=False

Label3.Font.Underline=FalseElseLabel3.Font.Italic=True

Labcl3.Font.Bokl=FalseLabcl3.Font.Undcrlinc=FalseEndIfEndIfEndSub

PrivateSubComb02_CIick(),Comb02的单击事件

Label3.Font.Name=Comb02.List(Comb02.Listlndex)'将选中的项赋给LabeL

的字体属性EndSub单击;*按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

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

还有一个名为in5.dal的文本文件，其内容如下：1011121314151617181920

2122232425程序运行后，单击窗体，将把文件in5.dat中的数据输入到一维数

组An•中，在窗体上按4行4列的矩阵形式显示出来，然后计算矩阵第2列各项的

和，并在Texil上显示出来，如图34—6所示"在窗体的代码窗口中，已给出了部

分程序，这个程序不完整，请把它补充完整，并能正确运行。

•Form1*回口

10111213

14151617

18192"021

222325

图34-6注意：去掉程序中的注释符把程序中的“?”

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

后的文件按原文件名存盘。

标准答案：根据题意，将一个文本框控件控件和一个标签添加到窗体中，文本框

的名称为Tcxtl,标签的Caption属性为“数组第二列的和双击Commandl进入代

码编写窗口，设置完成，双击Commandl进入代码编写窗口，其中(i*4-2)代表第二

列各个数在数组中的位置，具体代码如下：PrivateSubForm_Click()Dim

Arr(16)AsIntegerDimiAsIntegerDimstrAsStringDimtmpAsStringDimtotalAs

LongOpenApp.Path&"\ins.daf'ForInputAs#l'打开文件str=""Cis’清空窗体

total=0Fori=lTo16Input#1,ArHi)'利用循环读取16个数tmp=Arr(i)

str=str+tmp+”"，将数组放入字符串里面IfiM2d4=0ThenPrintstr诲当读取4个则

输出并换行str=""’字符事清空EndIfNextiClose#lFori=1To4total=total+Arr(i*4-

21'获得第二列的数组值，进行相加NextiTextl.Text=total'总和在Textl中显示出

来savedatEndSubSubsavedat（）Open"App.Path&\out5.txt'TorOutputAs#l

Print#I,Textl.TextClose#IEndSub单击;，*按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第5套

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

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

称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗□设置CD1的

初始路径为C：\,默认的文件名为None,标题为“保存等级考试"，如图1-44所

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

1

M

1:T

7。.—■7XelUMB

6

XMCQDm

flffftai)l

名为sjtl.frm。图2（2）在名称为

Forml的窗体上设计一个菜单。要求在窗体上添加名为menu。，标题为“菜单命令”

的主菜单，再添加两个名称分别为“menul"、“menu2”，标题分别为“不可用菜单

项”、“上一菜单项可用，、的子菜单，并且使程序运行时，menul子菜单不可用，

menu2子菜单已经选中（运行时的效果如图1-45所示）。再编写适当的事件过程，使

得程序运行时，单击“上一菜单项可用”，贝上不可用菜单项”变为黑色（可用）。要求

程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹

•F.r.l匚石又

・上一用

F，工程文件名为sjt2.vbp,窗体文件名为sjt2.Frm图1-45

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

程】一【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSofiCommon

DialogContrOl6.0”项目，单击“确定”按钮。步骤2：在窗体.Fonnl上画一个通

用对话框，其相关属性设置如表2-24所示。

表2-24

对象属性设置值

NameCD1

DialogTitle保存等级考试

通用对话框

FilcNamcNone

InitDir

步骤3：编写Forml的Load事件,

加入下面的代码：CD1.ShowSave步骤4：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤I：新建一个“标准EXE”工程，打开VB菜单设计器设

计菜单，各菜单项及属性设置如表2-25所示。

*2-25

标题名称是否高效内盘符号

菜单命令menuO有效0

不卬用菜单项menu]无效1

上一菜单均可用menu2有效——!-----步骤2：打开代码编辑窗

H,编写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSub

menu2_Click（）menul.Enabled=TrueEndSub步骤3：按要求将文件保存至考生文

件夹中。

知识点解析：第I小题通用对话框的IniiDir属性用于为打开或另存为对话指定初

始的目录，如果此属性没有指定，则使用当前目录。通用对话框的初始路径由

InitDk属性设置，默认文件名由FilcNamc属性设置，标题由DialogTitlc属性设

置。第2小题①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本

设置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项

的唯一关键字（不能重复）；“索引”项，用于设置菜单数组中各元素的索引号；“快捷

键''项，是一个下拉列表框，用于设置菜单项的快捷键；“帮助上下文”项，设置当

鼠标移动到某菜单项上按键时显示的帮助信息在帮助文件中的对应位置；

Visible（可见）项，用于设置控件或菜单项在程序运行时是否可见，值为Tmc表示可

见，值为False表示不可见；Enabled（有效）项，用于设置控件或菜单项在程序运行

时是否有效，值为True时表示有效，值为False时表示无效（显示为灰色）。通过编

辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升（设置为上一级菜单）、

缩进（设置为下一级菜单）、上移、下移等操作。②文本框的'Text属性用于设置或

返回其显示的文本内容。本题原程序设计思路：在“上一菜单项可用”命令的单击

事件过程中，通过语句没置“不可用菜单项''命令的Enabled属性值为Truco

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

2、(1)在考生文件夹下有一个工程文件尔3.vbp,它的功能是在运行时只显示名为

Form2的窗体，单击Form2上的"C2”按钮,则显示名为Forml的窗体:单击Forml

上的“Cl”按钮，则For