VB机试模拟试卷13

VB机试模拟试卷第1套

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

1、在考生文件夹内(C:\y1c)有一个工程文件ylc.vbp。在窗体上有一个文本框，名字

为Textl,以及两个命金按钮，名字分别为Command1和Command2,标题分别为

Search和Save。还有一个函数过程Search(a),在程序中可以直接调用该函数，其

功能为判断整型参数number是否为质数。如果是则返回True,否则返回False。

编写一个事件过程，实现以下功能：运行时，在文本框内输入一个正整数。单击

Search按钮后，找到小于该正整数的第一个素数，显示在Tcxtl中；单击“Save”，

则把Textl中的计算结果存入考生文件夹下的ouLtxl文件中。程序运行后如图27

所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为

ylc.vbpo图27程序运行结果

标准答案：(1)在工具箱中选择命令按钮控件，在窗体上创建两个命令按钮，名称

分别为Command)和Command2,标题分别为Search和Save©(2)双击Search按钮

弹出代码窗口，在其中添加如下代码：PrivateSubCommandl_Click()DimaAs

Integernumber=Val(Text1.Text)DoWhile(Search(number)=Palse)number=number-1

LoopText1.Tcxt=numbcrEndSub(3)双击“Save"按钮弹出代码窗口，在其中添加如

卜代码:PrivateSubCommand2_Click()Callsavedata(Hout.txt",Clnt(Textl.Text))

EndSubSubsavedata(filenameAsString,numberAsInteger)OpenApp.Path&

filenameForOutputAs#1Print#1,numberClose#1EndSub(4)按F5键运行程序。

如图27所示。(5)执行“文件”一“保存工程”命令，将工程文件命名为ylc.vbp,窗体

文件命名为ylc.frmo

知识点解析：(I)该题答案第4部分中的代码调用了原始文件中的Search函数过

程。当函数判断得到第一个质数时就会跳出D。循环体，并将该质数值赋给文本框

的Text属性，显示在文本框中。(2)第5部分中编写了一个用于向文件out.tx［写入

数据的过程，并在Save按钮的单击事件中调用了这个过程。

VB机试模拟试卷第2套

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

1、（1）在名称为Forml的窗体上画一个名称为Optionl的单选按钮数组（Index属性

从0开始）,含4个单选按钮，其标题分别为“ItcmF、“Itcm2"、和“Item#。

利用属性窗口设置适当的属性，使选中，“Itemr为灰色，程序运行时的窗

体界面如图17—1所示。注意：保存时必须存放在考生文件夹下。窗体文件名为

sjl.frm,工程文件名为sjl.vbpo（2）在名称为Forml的窗体中，画一个组合框。

组合棚的名称为CombOl,初始内容为空，有“Iteml"、和“Ilem3”三个可供

选择顶，还有一个名称为Textl的文本框，内容为空。编写适当的事件过程，使得

程序运行时，选择组合框中的某项.在文本框中显示出来。程序中不得使用任何变

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

•PrivateEJ'q叫

cH

cH

图17-1图17-2注

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

sj2.vbp0

标准答案：⑴根据题意，新建“标准EXE”工程，将一组Option控件（4个）添加到窗

体上，其名称都为Optionl,Index属性分别为0,1,2,3,索引为2的Value属性

为True,索引为3的Enable为False。单击谶按钮运行程序,并按要求保存。⑵

根据题意，新建“标准EXE”工程，将一个ComboBox控件和一个Text控件添加到

窗体上，ComboBox的名称为ComboL其Slyle为2,List中添加以下3项：

“Iteml“、和Text的名称为Textl,Text属性为空。双击ComboL

进入代码窗口，编写如卜代码：PrivateSubCombol_Click（）

Textl.Text=Combol.List（Combol.Listindex），在Textl中显示列表框选中的项

EndSub单击;*:按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在考生文件夹中有文件对3.vhp及其窗体文件sj3.frm.该程序是不完整

的。窗体上有一个名称为Textl的文本框；两个复选框，名称分别为Chcckl和

Check2,标题分别为“Iteml”和一个按钮，标题为“选择要求程序运行

后，如果Checkl和Check2都不选，单击窗体后，则在文本框中什么都不显示；如

果只选中Chcckl,单击按钮，则在文本框中显示“选中Itcml"；如果只选中

Check2,然后单击按钮,则在文本框中显示“选中Item2"；如果同时选中Checkl和

Check2.单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图I1-3

所示。注意：请在有"?''的地方填入正确内容.然后删除“?”及代码前的所有注释符

（即“小号），但不能修改其他部分。存盘时：不得改变文件和文件名。（2）在考生文

件夹下有一个工程文件sj4.vbp,要求程序运行后，如果多次单击列表框Lis”中

的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框List2中输出所

有选中的列表项，如图1-4所示。

图1-3图1-4注意：修改列表框Listl

的适当属性，使得运行时单击可以多选，并去掉程序中的注释符“，”，把程序中的

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

把修改后的程序以原来的文件名存盘。

标准答案：（1）根据题意，将两个名称分别为Checkl和Check2的复选按钮、一个

名称为Text）的文本框和一个名称为Commandl的命令按钮放入到窗体中，复选按

钮的Caption属性分别为Ileml和Item2,Text）的Text属性为空,命令按钮的

Caption褐性为"选择双击Commandl进入代码编写窗口，代码如下：Private

SubCommandl_Click（）IfCheckl.Vakic=1Then'当选中Checkl时If

Check2.Value=lThen，选中Check2Textl.皿=''不能全选"'在Textl中显示不能

全选Else'没有选中Check2Textl.Text”选中Iteml、八在Textl中显示选中ItemlEnd

IfElse'当没选中Checkl时IfCheck2.Vakie=lThen'选中Chec.k2Textl.Text=，选

中Item2,>'显示选中Item2ElseTextl.Text=,H,，不显示EndIfEndIfEndSub单击*

按钮运行程序，并按要求保存。（2）列表框控件用于显示可供单一或多个选择的列

表项。在程序运行时可通过代码：列表框名.Additem“项目”给列表框添加列表

项：MultiSelect属性用于设置是否可在列表项中选择多项，值为0（缺省设置）表示

不允许选择多项，值为1表示允许做简单多项选择，值为2表示允许配合使用

Shift、Ctrl键做多项选择；Selected（Index）属性用于设置或返回指定索引号的列表

项选择状态（索引号从。开始）.值为True表示被选中，值为False表示未被选中；

Lisl（Index）属性用于设置或返回指定索引号的列表项的内容；LislCount属性用来返

回列表框中当前的列表项条数。根据题意，将列表框List的MultiSelect为1—

Simple,双击Commandl进入代码窗口，编写如下代码：PrivateSub

Commandl_Click（）DimiAsIntegerFori=0ToLisll.LislCouiC-1'遍历listl列表If

Listl.Selecte&i）=TrueThen'找到选中项List2.AdditemListl.List⑴’将其加入到

list2列表框中EndIfNextiEndSub单击图片"按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

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

的，请将程序补充完整。在名称为Forml的窗体上有两个命令按钮，其名称分别为

Commandl和Command2,标题分别为“计算”和“保存”；两个单选按钮，名称分别

为Optionl和Option2,标题分别为“50〜150的素数”和“200〜350的素数”；一个文

木框，名称为Text1,程序运行界面如图8—5所示。如果选中一个单选按钮并单

击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中

显示出来。如果单击“保存”按钮，则把计算结果存入。ul5.ixt文件中，该文件必

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

isPrimcNum函数可以判断整数x是否为素数，如果是素数，则函数返回True,否

则返回False,而writeData过程可以把结果存人指定的文件，考生可以将该模块文

得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的。出5.txt

文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为

sj5.frm,工程文件名为sj5.vbp。

标准答案：素数的判断准则就是看该数是否除了1及其本身以外别无其他约数，

若是则该数就是素数，否则就不是素数。本题判断素数的标准模块mode,bas已

经写好了，只要将它添加到工程中即可。在“工程”窗口中单击右键，在弹出的快捷

菜单中选择“添加”一＞“添加模块”，然后在弹出对话框的“现存''选项卡中选择

“mode.bas”,单击“确定”按钮即添加成功。补充后的代码如下：PrivateSub

Command!Click()DimminAsIntegerDimmaxASIntegerDimiASIntegerIf

Optionl.Value=TrueThen，根据选中的Option来设置For循环上下限min=50

inax=150Elsemin=200max=350EndIftotal=0Fori=minTomaxIf

isPrimeNum(i)=TrueThen，调用mode,bas的isPrimeNum函数判断素数

total=total+iEndIfNextiTextl.Text=totalEndSubPrivateSubCommand?Click()

writeData(total)，调用mode,bas的writeData来进行数据保存EndSub标准模块

mode,bas中的代码如下:FunctionisPrimeNum(numAsInteger)AsBoolean

isPrimeNum=TrueDimiAsIntegerFori=2Tonum-1IfnumModi=0Then

isPrimeNum二FalseExitForEndIfNextiEndFunctionFunctionwriteData(totalAs

Long)Open"App.Path&out5.txt"ForOutputAs#lWrite#1,totalClose#1End

Function单击，2:按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第3套

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

1、注意：下面出现的“考生文件夹”均为c：\wexam\251600010请根据以下各小题

的要求设计VisualBasic应用程序（包括界面和代码）。（1）在Forml的窗体上建立一

个主菜单，标题为“操作”，名称为Op,该菜单有两个子菜单，其标题分别为“显

示”和“清除”，其名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如

果单击“操作”菜单中的“显示”命令，则在窗体上显示“等级考试”；如果单击“清除”

命令，则清除窗体上显示的内容。程序的运行情况如图14-1所示。注意：存盘时

必须存放在考生文件夹下，工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。（2）在

Porml的窗体上画一个标签，其名称为Labi；再画一个列表框，其名称为L1,通

过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事

件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签

中显示出来。程序中不准使用任何变量，运行情况如图14-2所示。注意：存盘时

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

图14-1图14-2

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

Basic中，菜单被看作控件，具有属性和事件。菜单由“菜单编辑器”来创建。在窗

体上打印信息通过Print方法方法来实现。清除在窗体上的打印的信息要通过Cis

方法来实现Cis方法清除运行时Form或PictureBox所生成的图形和文本：语法：

Object.Clsobject代表一个对象表达式。如果省略object,则默认为当前的Form窗

体。解题步骤：第一步：打开“菜单编辑器建立菜单并设置菜单属性。菜单的

控件属性设置值

名字

菜单Op

标题操作

名字Dis

菜单

标题显示

名字Clea

菜单

标题清除

属性设置见表14-1。

二步：编写程序代码。参考代码：PrivateSubClea_Click（）

CISEndSubPrivateSubDis_Click（）Prin”等级考试

"EndSub第三步：调试并运行施序。第四步：按题目要求存

盘。（2）在窗体上建立好控件后，先设置控件属性，再编写事件过程。双击控

件触发DblClick事件，ListCount属性返回列表框中表项的数量。列表框中的表项

可以通过“属性”窗口的List属性设置，也可以通过Additem方法在程序中添加。本

题是通过属性窗口来设置的。解题步骤：第一步：建立界面并设置控件属

性。程序中用到的控件及其属性见表14-2。

控件属性设置值

标签NameLabi

列表框NameLI

第二步：编写程序代

码。参考代码：PrivateSubLl_DblClick（）Lab1.Caption=LI.ListCountEndSub第三

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

知识点解析：暂无解析

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

2、注意：下面出现的“考生文件夹”均为c：\wexam\25160001o⑴在考生文件夹

下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的，请在有?号的地方

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

得改变文件名和文件夹。如图16-3所示。在名称为Forml的窗体上有1个Label

控件，四个Text控件及七个命令按钮，功能为：开始启动工程时，界面上除“开始

录入”及“退出”按钮之外，其他按钮均不可用（灰色显示）；单击“开始录入”按钮之

后，利用InputBox让用户连续且必须录入10个数。若录入为非数字符号，则给出

警告“输入数据无效，请重新输入数值数据，请输入第n个数”；录入完毕后，“开

始录入”变灰，其他变为可用状态；按相应的按钮可分别求出所录入数据的升序、

降序排列及最大数和最小数，并在右侧对应的文本框中显示（注意用A（10）存放最大

数，A（l）存放最小数）；单击“清除”按钮将所有文本框清空。（2）在考生文件夹下有

工程文件sit4.vbp及窗体文件sjt4.fnn,该程序是不完整的，请在有?号的地方填入

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

变文件名和文件夹。如图】6.4所示。在名称为Forml,标题为“求和程序”的窗体

上有3个Label控件，2个Text控件和3个命令按纽。该程序的主要功能是求从1

到Textl中用户输入的任意自然数n的累加和。刚启动工程时，“显示结果”和嘴

除”按钮均为灰色；可以在输入框内输入任意自然数(n值太大时，运算时间将很

长，建议不超过9位)。在输入数的同时“显示结果”变为可用。当输入为非数值

时，累加结果为0;单云“显示结果”可以在Text2中显示累加和，且该框内的文字

不可修改，同时“显示结果”变灰，“清除”变为可用；单击•“清除”，输入框和显示框

均显示“0”单击“关闭”按钮结束程序的运行。

图!6-3图16-4

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

a(10)来接收InpinBox输入的10数，InpuiBox的格式为：InpmBox(提示［,标题］［,

默认小X坐标位置］［,Y坐标位置］)；控件是否可用可利用其Enabled属性设置，

当该值为True时可用，为False时不可用(灰色)；判断是否是数字可用

IsNumcric(),如果是数字返回True,否则返回False；本程序中用到的排序方法是

将某一个元素做为标杆，其后的每一个元素与其比较，若小于标杆则两者交换，依

此类推，题中要求排完序后a(l)至a(10)依次存放大数，在文本框中显示升序和降

序的时候只要两者反序显示即可，即升序可依次显示a(l)到a(10),降序可依次显

示a(10)到a(l)。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控

件及其属性见表16-3。

控件属性设置值

点击“开始录入”按钮，录入10个

标签Caption

故

NameTextl

文本Scrollbars2-vertical

Multilanetrue

NameText4

文本Scrollbars2-vertical

Multilanetrue

文本NameText2

文本NameText3

NameCommand]

按钮

Caption最大数

按钮NameCommand2

Caption最小数

按钮NameCommands

Caption升序排列

NameCommand4

按钮

Caption降序排列

Name

按钮Command5

Caption退出

NameCommands

按钮

Caption开始录入

NameCommand?

按钮

清除

Caption第二步：编写

程序代码。程序提供的代码：OplionExplicitDima(10)As

VariantDimiAsInteger,jAsIntegerDimmAsSingle

PrivateSubCommand1_Click(),Text2.Text=

Command1.Enabled=FalseCommand7.EnabIed=TrueEndSub

PrivateSubCommand2_Click(),Tcxt3.Tcxt=?

Command?.Enabled=FalseCommand7.Enabled=TrueEndSub

PrivateSubCommand3_Click()Fori=1To

10'Text1.Text=Text1.Text&?&'丁Nexti

Commands.Enabled=FalseCommand7.Enabled=TrueEndSub

PrivateSubCommand4_Click()Fori=10To1Step-

1,Text4.Text=Text4.Text&?&Nexti

Command4.Enabled=FalseCommand7.Enabled=TrueEndSub

PrivateSubCommand5_Click()EndEndSubPrivate

SubCommand6Click()Label1.Enablcd=FalseFori=lTo

10a⑴=InputBox("请输入第"&i&,个数，请务必:,输入数值数据！

输入")DoWhileIsNumcric(a(i))=False

a(i)=InputBox("输入数据无效，请重新输入数值数据！！！“&”请输入第"&_

i&”个数“，“输入“)LoopNextiFori=1

To9Forj=i+1To10,IfVal(a(j))?Val(a(i))

Thenm=a(j)ad)=a(i)

a(i)=mEndIfNextjNexti

Command6.Enabled=FalseCommandl.Enabled=True

Command?.Enabled=TrueCommands.Enabled=True

Command4.Enabled=TrueCommand5.Enabled=True

Command?.Enabled=FalseEndSubPrivateSub

Command7_Click(),Textl.Text=?,Text2.Text=?

,Tcxt3.Tcxt=?,Tcxt4.Tcxt=?Label1.Enablcd=True

Command6.Enablcd=TrucCommand4.Enablcd=Falsc

Commands.Enabled=FalseCommand2.Enabled=False

Commandl.Enabled=FalseCommand?.Enabled=FalseEndSub

PrivateSubForm_Load()Command1.Enabled=False

Command2.Enabled=FalseCommand3.Enabled=False

Command4.Enabled=FalseCommand7.Enabled=FalseEndSub

参考代码：OptionExplicitDima(10)AsVariantDimi

AsInteger,]AsIntegerDimmAsSinglePrivateSub

Commandl_Click()Text2.Text=a(l0)

Command1.Enabled=FalseCommand7.Enabled=TrueEndSub

PrivateSubCommand2_Click()Text3.Text=a(l)

Command2.Enabled=FalseCommand7.Enabled=TrueEndSub

PrivateSubCommand3_Click()Fori=lTo10

Textl.Text=Textl.Text&a(i)Nexti

Commands.EnabIcd=FalseCommand7.Enabled=TrueEndSub

PrivateSubCommand4_Click()Fori=10To1Step-1

Text4.Text=Text4.Text&a(i)Nexti

Command4.Enabled=FaIseCommand7.EnabIed=TrueEnd

SubPrivateSubCommand5._Click()EndEnd

SubPrivateSubCommand6_Click()Label1.Enabled=False

Fori=lTo10a⑴=InpulBox("请输入第“&i&“个数，请务必输入

数值数据!"，“输入“)DoWhileIsNumeric(a(i))=False

a⑴=InputBox("输入数据无效，请重新输入数值数据！！！“&“请输入第"&i&_

“个数输入“)LoopNextiFori=lTo

9Forj=i+1To10IfVal(a(j))<Val(a(i))

Thenm=a(j)a(j)=a(i)

a(i)=mEndIfNextjNexti

Command6.Enablcd=FalseCommandl.Enablcd=Truc

Command2.Enabled二TrueCommand3.Enabled二True

Command4.Enabled=TrueCommand5.Enabled=True

Command?.Enabled=FalseEndSubPrivateSubCommand7_Click()

Textl.Text='M,Text2.Text='M,Text3.Text=,M,

Text4.Text="nLabel1.Enabled=True

Command6.Enabled=TrueCommand4.Enabled=False

Commands.Enablcd=FalseCommand2.Enablcd=Falsc

Command1.EnabIcd=FalseCommand7.Enablcd=FalseEnd

SubPrivateSubForm_Load()CommandI.Enabled=False

Command2.Enabled=FalseCommand3.Enablcd=False

Command4.Enablcd=FalscCommand7.Enablcd=FalseEndSub

第三步：调试并运行程序。第四步：按题目要求存盘。(2)控件是否可用

可利用其Enabled属性设置，当该值为True时可用，为False时不可用（灰色）；计

算从1到n的数字的和可从1开始向后计算，每一步计算的结果都保留然后再用上

一步计算的值和后面的数字计算；清除可使文本框的内容置空来实现（文本

框.Text=""）；显示结果枉内的文字不可修改，是通过Locked属性变为True时锁定

的。解题步骤:第一步：建立界面并设置控件属性。程序中用到的控件及其

标题属性设置值

Labell

Name

Label该程序的功能是求S：

Caption

S=l+2+3+…+n

NameLabel2

Label

Caption请输入：n(0WnW999999999)

NameLabel3

Label

Caption结果显示框

TextNameTextl

NameText2

Text

CapliunTxue

NameCommandl

Commandbutton

Caption显示结果

NameCommand2

Commandbutton

Caption清除

NameCommand3

Conunandbutton

Caption关闭

属性见表16-4。第

二步：编写程序代码：程序提供的代码：OptionExplicitPrivateSubCommandl

Click()DimiAsDoubleDimsumAsDoubleDimnAsDoublesum=0

n-Val(Textl.Text)Fori-1Ton'sum-?Next1,Text2.Text-?

Command1.Enablcd=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2

Click(),Textl.Text=?,Text2.Text=?Commandl.Enabled=True

Command?.Enabled=FalseEndSubPrivateSubCommandsClick()EndEndSub

PrivateSubFormLoad()CommandI.Enabled=FalseCommand2.Enabled=FalseEndSub

PrivateSubTextl_Change()Command1.Enabled=TrueEndSubOptionExplicitPrivate

SubCommand1Click()DimiAsDoubleDimsumAsDoubleDimnAsDoublesurn=0

n=Val(Textl.Text)Fori=lTonsum=sum+iNextiText2.Text=sum

Commandl.Enablcd=FalscCommand?.Enablcd=TrueEndSubPrivateSub

Command2_Click()Textl.Text=OText2.Text=0Command1.Enabled=True

Command2.Enabled=FalseEndSubPrivateSubCommand3_Click()EndEndSub

PrivateSubForm_Load()Command1.Enabled=FaIseCommand2.Enabled=FalseEnd

SubPrivateSubTcxtl_Changc()Command1.Enablcd=TrucEndSub第三步:调试并

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

知识点解析：暂无解析

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

3、注意：下面出现的“考生文件夹”均为c：\wexam\25160001o在考生文件夹下有

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

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

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

描述如下：在名称为Forml的窗体上有五个Label控件和两个命令按钮，数据文

件prog8a.dat存放一些字符。按“开始”按钮后，能从考生文件夹下的prog8a.dat中

读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将

结果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）；执行完

毕，“开始”按钮变成“完成”，且无效（变灰）。程序运行界面如图15-6所示。

图15-h

标准答案：在程序运行时控件是否可用由其Enable属性决定，当其值为TrueE寸可

用，当为False不可用(灰色)。对文件进行操作必须先打开文件、同时通知操作系

统对文件进行读操作还是写操作，打开文件的命令是Open,其常用形式为：

Open“文件名"For模式As［#］文件号［Len=记录长度］模式有Output(打开文件，对其

进行写操作)、I叩ut(打开文件，对其进行读操作)、Append(打开文件，在文件末尾

追加记录)。统计大小写字符和数字只需根据字符的ASCII码判断，大写字母的

ASCH值是65〜90,小写字母的ASCII值是97〜122,数字的为48〜57。解题步

骤：第一步：编写程序代码。程序提供的代码：PrivateSubCOMEXIT_Click()

EndEndSubPrivateSubCOMSTART_Click()DimChAsString,NumberAsInteger,

CpAsInteger,LpAsInteger,OthersAsIntegermyfiiel=App.Path&"\"&"prog8a.txt"

myfile2=App.Path&&Hprog8b.txtn'OpenmyfilelFor?As#1'Openmyfile2For?

As#2WhileNotEOF(l)Input?,Ch$IfAsc(Ch$)>=48AndAsc(Ch$)<=57Then

Number二Number+1ElselfAsc(Ch$)>=65AndAsc(ChS)<=90ThenCp=Cp+lElself

Asc(Ch$)>=97AndAsc(Ch$)<=122ThenLp=Lp+lElse,Others=?EndIf

Wend5Print?,Number,Cp,Lp,Others

Close,COMSTART.Caption=?,COMSTART.Enablcd=?EndSub参考代码：Private

SubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimChAs

String,NumberAsInteger,CpAsInteger,LpAsInteger,OthersAsInteger

myfilel=App.Path&n\"&"prog8a.txt"myfile2=App.Path&"\"&"prog8b.txt"Open

myfilelForInputAs#1Openmyfile2ForOutputAs#2WhileNotEOF(1)Input#1,

Ch$IfAsc(Ch$)>=48AndAsc(Ch$)<=57ThenNumber=Number+1ElselfAsc(Ch$)

>=65AndAsc(Ch$)<=90ThenCp=Cp+lElselfAsc(Ch$)>=97AndAsc(Ch$)<

=122ThenLp=Lp+1ElseOthers=Others+1EndIfWendPrint#2,Number,Cp,Lp,

OthersCloseCOMSTART.Caption="完成"COMSTART.EnabIed=FalseEndSub第二

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

知识点解析：暂无解析

VB机试模拟试卷第4套

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

1、（1）在名称为Form1的窗体上画一个文本框，名称为Text1，字体为宋体，文本框

中的初始内容为“模拟试题”；请编写适当事件过程，使得在运行时，双击窗体，则

把文本框中文字加下划线，如图62—1所示。程序中不得使用任何变量。注意：

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

sjl.frnio（2）在名称为Forml的窗体上画一个文本框，名称为Texll,文本是“双击

清除”，如图62—2所示.请编写适当的事件过程，使得在运行时,如果双击文本

框，则文本框中的文字消失。程序中不得使用任何变量。

奥击》除

图62-1图62-2

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

sj2.frnio

标准答案：（I）根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体

中，其名称为Textl,Text属性为“模拟试题”，字体为宋体。双击Forml窗体，进

入代码窗口，编写如下弋码：PrivateSubForm_DblClick（）

Tcxtl.Font.Underline=TrueEndSub单击窗按钮运行程序，并按要求保存。（2）

根据题意，新建“标准EXE”工程，在窗体上添加一个文本框，名称为Textl,Text

属性为“双击清除双击Textl,进入代码窗口，编写如下代码：PrivateSub

Textl_DblClick（）Textl.Text=""EndSub单击•.按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、（1）在窗体上绘制一个标签L1；一个单选按钮数组，名称为Opl,含三个单选按

钮。它们的Index属性分别为0、1和2,标题依次为“飞机”、“火车”和“汽车”：

个名称为Tcxtl的文本框。编写程序，使得在运行时单击“飞机”或“火车”单选按钮

时，在，rextl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在

Textl中显示“我开汽车去”。程序运行界面如图66—4所示。注意：保存时必须存

放在考生文件夹下，窗沐文件名为sj3.frm,工程文件名为si3.vbp。（2）在考生

文件夹中有工程文件Sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在窗体

上有两个名称分别为Commandl和Command?.标题分别为“求平方”和“求立方”的

命令按钮，两个名称分别为Textl和Text2的文本框。要求程序运行后，在Textl中

输入一个整数，单击“求平方”或“求立方”按钮后，可把该整数的“平方”或“立方”在

Text2中显示，如图66—5所示。

图66-4图66-5注意：

请在有"?”的地方填入正确内容，然后删除“?”及代码前的所有注释符（即号），但

不能修改其他部分。存盘时不得改变文件名和文件夹。

标准答案：（1）标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检

测的单选按钮的状态，这可以通过Value属来实现，如果单选按钮被选中，则

Value值为1,否则Value值为0。当建立单选按钮数组控件时，系统给每个元素赋

个•的索引号（Index）,通过属性窗VI的Index属性，可以知道该控件的下标。

在文本框中显示内容通过Text属性设置，其式为：文本框名.Text：显示的内

容，程序中用到了SelectCase语句，格式如下：SeleclCase变量或表达式（对于本

题来说就是控件数组元素的下标）Case表达式列表1语句块1Case表达式列表2语

句块2CaseElse语句块n+1]EndSelect①建立界面并设置控件属性。程序用到的

控件及其属性见下表：

对象属性设置值

TextNameTextl

单选按钮Name()pl(0)

玳选按钮Caption飞机

单选按钮Name()pl(l>

忸选按钮Caption火乍

笊选按包NameOpl(2)

单选按钮Caption汽车

标签NameLI

②打开工程资源管理器，右击窗体，选择查看弋反项，在弹出的代码窗口输入代

码如下:PrivateSubOpl_Click(IndexAsInteger)DimaAsString,bAsString,C

AsStringa="我坐“b二"我为“c="我开"SelectCaseIndexCaSe0

Textl.Text=a+Me.Opl(O).Caption+"i"Case1

Textl.Text=b+Me.Opl(l).Caption+^i"Case2

Textl.Text=C+Me.Opl(2).Caption+“去“EndSelectEndSub③调试并运行程序。

④按题目要求存盘。(2)根据题意，将两个Text控件和两个Command控件添加到

窗体上，Text的名称分别为Texll和Texl2、Texl属性都为空，Command的名称分

别为Commandl和Command?,Caption属性分别为“求平方”和“求立方”。双击

Command1命令按钮，编写如下代码.：PrivateSubCommandl_Click()

Text2.Text=Val(Textl.Text)*Val(Textl.Text)'求Textl中数的平方EndSub

PrivateSubCommand2_Click()

Text2.Text=Val(Textl.Text)*Val(Textl.Text)*Val(Textl.Text)，求Textl中数的

立方EndSub单击按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在窗体上建立三个菜单（名称分别为Read、Calc和Save,标题分别为“读人数

据”、“计算并输出”和“存盘”），然后再添加一个文本框,名称为Textl,MultiLine

属性设置为True,scrollBars属性设置为2（如图42—6所示）。程序运行后。如果执

行“读人数据”命令，则读入考生文件夹下datainl.ixt文件中的100个整数，放入

一个数组中，数组的下界为1;如果单击“计算并输出“按钮，则把该数组中下标为

偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出

来：如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataoLlt.txt文件

中。在考生文件夹下有一个工程文件sj5.vbp,窗体文件中的RcadData过程可以

把daiainl.txl文件中的100个整数读人Arr数组中；而WriteData过程可以把指定

的整数值写到考生文件夹下指定的文件中（整数值通过计算求得，文件名为

弋FormlOI园区

漆入双K计H用(出碎盘

dataout.txt)o图42-6注意：考生不得修

改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sj5.vbp,窗体文件

名仍保存为sj5.frm。

标准答案:本题考查文本框的Name、MuhiLine>ScroHBars和Text属性,文件操

作,菜单编辑器的使用,Arr()函数以及Space。函数。根据题意,新建“标准EXE”

工程，利用菜单设计器，按表中的设置建立菜单项，如下表：

标题名称内缩符号

读入数据Read0

计算并输出Calc0

存盘Save0

并将文本框控件添加到窗体中，名称为Tcxtl,MuhiLine属性为True,ScrollBars

属性为2,