VB机试模拟试卷7

VB机试模拟试卷第1套

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

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

称为Fonnl的窗体上画一个名称为Pic的图片框，通过属性窗口将考生文件夹下的

文件TuLl.Jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗

体，在图片框中显示“VB等级考试”，如图1-21所示。注意：要求程序中不得使

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

名为sjtl.vbp,窗体文件名为sjtl.frm。（2）在名称为Forml的窗体上画一个名称

为Command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控

件“，名称为menu,包含两个子菜单项，一个是“显示命令按钮”，名称为

subMcnul；另一个是“隐藏命令按钮”,名称为subMenu2,如图1-22所示。编写适

当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令

按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件.注意：程

序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件

夹下，工程文件名为sit2.vbp,窗体文件名为sjt2.frm。

图b21图1-22

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

Forml中画一个名称为Pie的图片框，并设置其Picture属性为Tul-lJpg。步骤2：

双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。参考代码：

PrivateSubForm_CIick（）Pic.Print"VB等级考试"EndSub步骤3:按要求将文件保

存至考生文件夹吊。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，

在窗体Forml中画一个名称为Command!,Caption属性为“命令按钮”的命令按钮。

步骤2；选择，【工具】＞【菜单编辑器】命令，打开菜单设计器，如表2J3中

*2-13

标题名称内缩符号

控件menu0

显示命令按钮subMenu11

的设置建立菜单项。”—按钮subMenul--------1--------步骤3：打开代

码编辑窗口，编写菜单命令的单击事件过程。参考代码：PrivateSub

subMenul_Click()Command!.Visible=TrueEndSubPriVateSubsubMenu2_Click()

Comiiiandl.Visible=FalseEndSub步骤4：按要求将文件保存至考生文件夹中。

知识点解析：第I小题本题只需按要求在窗体及框架中画出控件，并设置其相应

属性，然后在窗体的单击事件中调用图片框的Prim方法显示文本。第2小题菜单

中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将

触发其Click事件。要实现本题中的功能。应在“显示命令按钮”菜单项的Click事

件过程中，令命令按钮的Visible属性为True,在“隐藏命令按钮”菜单项的Click事

件过程中，令命令按钮的Visible属性为Falseo

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

2、(1)在考生文件夹下有一个工程文件sjt3.vbpo程序的功能是通过键盘向文本框

中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、

小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图

1-56所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去

掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其池部

分和控件属性。最后把修改后的文件按原文件名存盘。

图26(2)考生文件夹下的工程文件sjt4.vbp

中有两个名称分别为Listl、List2的列表框控件，两个名称分别为Commandl、

Command2,标题分别为的命今按钮。请在Listl中添加“文本框”、“标

签”、“列表框”、“单选钮”等表项，如图1-57所示。程序的功能是：单击“》”按

钮,将Listl中的表项添加到List2中,同时将Listl清空;单击按钮，将List2

中的表项添加到Lis"中，同时将List2清空。程序已给出，但是不完整。请将程

序中的注释符去掉，杷。改为正确的内容，实现上述功能。注意：不能修改程庠的

其他部分和控件属性。最后把修改后的文件按原文件名存盘。

B91-57

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

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

容。参落代码：n=Lenrfextl.iext)b=Asc(Mild(s,i,1))SelectCasebFori=OTo

2x6=a⑴步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步

骤1：打开考生文件中的本题工程文件sjl4.vbp,通过Listl列表框的Lisi属性添

加四个项目：文本框、标签、命令按钮、单选按钮。步骤2：在代码编辑窗口，去

掉程序中的注释符将问号"?”改为正确的内容。参考代码：FOri=0To

La.ListCount-1Lb.AdditemLa.List(i)NextLa.Clear步骤3：按要求将文件保

存至考生文件夹中。

知识点解析：第1小题RTfim$(字符串)函数的作用是：去掉“字符串”右边的空白字

符。本题原程序在For循环体中(其中循环终值应为文本框的字符长度，即

n=Len(lbxil.Text)),用Mid函数逐一取出文本框中的每个字符，并用Asc函数返

回其ASCH码。若取出字符的ASCH码在48〜57之间，则记录数字个数的数组变

量a(0)增1；若ASCII码在65〜90之间，则记录大写字母个数的数组变量a⑴增

1：若ASCII码在97〜122之间，则记录小写字母个数的数组变量a(2)增1。第2

小题列表框的Clear方法用于清除列表框中的所有项目。本题列表框中列表项的

移动功能，是通过调用remove过程来实现的，在remove过程中通过For循环［循

环变量终值为La.ListCount-1)将列表框La中的各项逐一添加到列表框Lb中，全

部项目添加完成后，用列表框的Clear方法清除该列表框中的所有项目。

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

3、在考生文件夹下有一个工程文件sjl5.vbp,界面如图1-137所示，其功能如

下：①单击“读数据”按钮，则把考生文件夹下文件in5.dat中的12组整数(其中

每组含有10个数，共计120个整数)读到数组a中；②单击“计算”按钮，则对每组

数求平均值，并将所求各组数的平均值截尾取整后存入数组s中；③单击“显示”

按钮，则将所求各组数的平均值显示在文本框Texll中：④单击“存盘”按钮则把计

算结果存盘。在给出的窗体文件中已经有了全部控件，且“读数据”、“显示”和“存

盘“按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程以实现上

述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”

按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

图I-I37

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

码编辑窗口，编辑“计算”按钮单击事件的内容。参考代码：Fori=lTo12

Sum=a(i,1)Forj=2To10Sum=Sum+a(i,j)Nextjs(i)=Int(Sum/10)Nexti步骤

2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”

按钮，接着单击“计算”按钮，然后单击“显示”按钮查看结果，最后单击“存盘”咬钮

保存结果。

知识点解析：本题可利用一个嵌套的For循环来完成计算工作：在外循环(循环变

量的取值为1〜12)体中，先初始设也记录每行累加和的变量Sum的初值为每行的

第一个数，接着通过内循环(循环变量的取值为2〜10)逐一完成Sum与该行其池数

据的累加工作。内循环结束后，用表达式s⑴=Im(Sum/10)保存每行的平均值，

VB机试模拟试卷第2套

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

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

名称为Fonnl的窗体上画一个名称为Textl的文本框，通过属性窗口设置文本桂属

性，在文本框中显示“模拟试题”，再建立一个名称为Commandl,标题为“清空”的

按钮，运行界面如图54-1所示。编写适当的事件过程，要求程序运行后，如果单

击“清空”按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文

件夹下，窗体文件名为sjl.firn,工程文件名为sjl.vbp0(2)在名称为Form1的窗

体上建立两个名称分别为Command1和Command?标题分别为“输入”和“连接”的

命令按钮，如图54—2所示。要求程序运行后，单击“输入”按钮，可通过输入对话

框输入两个字符串，存入字符串变量a和b中(a和b定义为窗体变量)，如果单击

“连接”按钮，则把两个字符串连接为一个字符串(顺序不限)并在信息框中显示出

来，在程序中不得使用任何其他变量。

图54-1图54-2注意：保存

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

标准答案：(1)命令按钮的标题由Caption属性设置，单击命令按钮触发Click事

件；将文本框的Text属性设置为空，就可以清除文本框中显示的内容。根据题

意，将一个文本框控件和一个命令按钮添加到窗体中，将文本框的名称设为

TextkText属性为“模拟试题"，命令按钮的名称设为Command】、C叩tion属性为

“清空”，设置完成后双击Commandl进入代码编写窗口，编写以下代码：Private

SubCommandl_Click()Textl.Texl二""EndSub单击，.按钮运行程序，并按要求保

存。(2)本题主要考查MsgBox函数和InputBox函数的使用。MsgBox函数在对话

框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按

钮。其格式为:MsgBox(prompt[,buttons][,title][}helpfile,conText])oprompt是

必需的字符串表达式，作为显示在对话框中的消息。如果prompt的内容超过一

行，则可以在每一行之间用回车符(Chr(l3))、换行符(Chr(IO))或是回车与换行符的

组合(Chr(13)&Chr(10))将各行分隔开来。其它参数均是可选的。Input函数返回

String,它包含以Input或Binary方式打开的文件中的字符。其格式为：

Input(numbcr,[#]filcnumber)onumber是必要的。可以是任何有效的数值表达式，

指定要返回的字符个数。Filenumber是必需的。可以是任何有效的文件号。根据

题意，将两个命令按钮添加到窗体中，将其名称分别设为Command和

Command?Caption属,生分别为“输入”和“连接双击Commandl进入代码编写窗

口，编写以下代码：OptionExplicitDimaAsStringDimbAsStringPrivateSub

Commandl_Click()a=InputBox("输入第一个字符串:“，“第一个串“)b=InputBox(“输

入第二个字符串："，"第二个串")EndSubPrivateSubCommand2_Click()MsgBox

a&b.vbOKOnly£*5"单击潴;按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、(1)在窗体上绘制一个列表框，名称为Listl；一个文本框，名称为Textl；一个

命令按钮，名称为C1,标题为“复制”。要求程序运行后，在列表框中自动建立4

个列表项，分别为“Iteml"、和如果选择列表框中的一

项，单击“复制”按钮，就可以把该项复制到文本框中，如图22—3所示。注意：

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

sj3.vbpo(2)在考生文件夹中有一个工程文件sj4.vbp(相应的窗体文件名为

sj4.frm)o在名为Forlml的窗体上有4个文本框，初始内容为空；1个命令按钮，

标题为“按降序排列”。其功能是通过调用过程Sort将数组按降序排序。程序运行

后，在4个文本框中各输入一个整数，然后单击命令按钮，即可使数组按降序排

序，并在文本框中显示出来，如图22—4所示。本程序不完整，请补充完整，并

能正确运行。

・ForalE®®

图22-3图22-4

注意：去掉程序中的注释符“，”，把程序中的问号”?”改为正确的内容，使其实现上

述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改

后的文件。

标准答案：（1）本题考查的是列表框控件List的使用。向列表框中添加项目可以用

Additem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，

所以利用代码实现。①首先按要求新建工程文件sj3.vbp及其窗体文件

sj3.frmo②在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置

见下表C

控件属性设置值

列袅框NameListl

文本框NameTextl

命令按钮NameCl

命令按钮Caption复制

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

码如下：OptionExplicitPrivateSubClClick()DimiAsIntegerFOri=0To

Listl.LisiCouni-lIfLisd.Selecied⑴=TrueThenTexil.Texi=Lisil.List(i)EndIf

NextiEndSubPrivateSubFormLoad()Listl.Addltein"lteml"Listl.Addltem"Item2"

Listl.Addltcm"ltcm3"Listl.Addltcm"Itcm4HEndSub④调试并运行。⑤按题目要

求存盘。(2)①打开题目所给工程文件。②将注释语句改为：Start=LBound(a)

Finish=UBound(a)Fori=4To2Step-lFori=lTo3Ifa。)

知识点解析：暂无解析

三、综合应用题（本题共I题，每题1.0分，共/分C）

3、在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”，名称为

Edit,下面有一个二级菜单，含两个菜单项，名称分别为Read和Search,标题分

别为“读取”和“查找另有一个文本框，名称为TextL内容为空；3个标签名称分

别为Label】、La为12与Label3,标题分别为“文件内容”、“查找结果”和“空”。要求

考生编写适当的程序，实现下面描述的功能。本程序模拟Word中的查找功能，描

述如下：程序运行时，如果单击“读取”菜单项，则把考生文件夹下的in5.ixt文件

中的数据读入到文本框Text：1中；如果单击“查找”菜单项，则弹出对话框，输人

需要查找的内容，将查找到的个数显示到Labcl3中，并把个数存入out5.txt中。

程序运行时的窗体界面如图67—5所示。图67-5注意：考生不得修

改程序控件及控件的属性，最后应把修改后的文件按原文件名存盘。

标准答案：InputBox。函数用于显示一个输入框，提示用户输入一个数据，该函数

返回值默认为字符串类型，其常用语法格式为：InpulBox(Prompl[,Title][,

Default])oEOF()函数用来测试文件的结束状态，以避免在文件输入时出现“输入超

出文件尾''的错误。对顺序文件来说，如果已经到文件末尾，则EOF函数返回

True,否则返回False。程序中先用Open语句打开文件in5.txt,然后用Inpin#语

句读人数据存人到变量，将变量内容显示到文本框中；单击“查找”菜单项要实现的

功能可用InputBox。函数、Len()函数、Mid()函数及For循环来完成。根据题意，

在菜单编辑器中添加一个主菜单，名称为Edit；Caption属性为“编辑”，在其下面

添加两个子菜单，名称分别为Read和Search.Caption属性分别为“读取”和“查

找“，内缩一位，再在Forml中添加3个标签和一个文本框控件，Lable的名称分别

为Labell和Label2、Label3.Caption属性分别为“文件内容C“查找结果”和“空”,

文本框的名称为Text】、Text属性为空、MultiLine属性为True、ScrollBar属性为

2o单击菜单自选项进入代码窗口，补充后的代码如下：PrivateSubRead_Click()

DimstrAsStringDimimpAsStringstr=,u,Open"App.Path&\in5.txt"ForIiwulAs

也'打开文件准备读取WhileEOF(l)=False，利用Whille来保证完全读取文件

Input#1,tmp，每次读取到tnip中str=str+trap'将读到的数据放人字符串中Wend

Close#!Textl.Text二str.在Text)中显示读取的内容EndSubPrivateSubSearch

Click()DimtmpAsStringDimretstrAsStringDimiAsIntegerretstr=InputBox("输入

要查找的字符串")Fori=lToL强(Textl.Text)-Len(retstr)tmp=Mid(Textl.Text-i,

Len(retstr))，读取其中的字符串Ifrelstr二tmpThen'如果该段字符串与Text2输入的相

同total二total+1EndIfNextiOpen"App.Pathgc\out5.txt"ForOutputAs#l'打开文

件准备写入Print#1,totalCluse"「关闭文件Label3.Captiun—lutalEndSub单击

:实•'按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第3套

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

1、（1）在名称为Forml的窗体上建立一个垂直滚动芸，请在属性窗M中把它的名称

设置为VSLMax属性设置为50.Mill属性设置为0.Value属性设置为50。程序

运行后，滚动块位于滚动条最下端，如图18—1所示，如果单击滚动条之外的窗体

部分，则滚动块跳到最上端。注意：只能直接为相应的属性赋值，不得使用变

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

sjl.vbp。（2）在名称为Forml的窗体中建立一个标签，名称为Lablcl,在标签上显

示“编程语言”并设置为四号宋体；再建立3个复选框，名称分别为Checkl、Check2

和Check3,标题分别为“C++”、"Basic”和“JAVA”，字体大小均为四号宋体，力口

粗，其中“JAVA”被禁用,如图18—2所示。

SS3为:

'Bimie

PJAVA

图18」图IN-2注意：保存时必须存放在

考生文件夹下，窗体文件名为sj2.frm,工程文件名为sj2.vbp。

标准答案：（1）根据题意，新建“标准EXE”工程，将一个垂直滚动条添加到窗体

中，将其名称设为VS1,Max属性为50,Min属性为0,Value属性为50,然后双

击Forml窗体.在Fonn_Click事件中编写如卜代码PrivateSubForm_Click（）

VS1.Value=0EndSub单击跳按钮运行程序。并技要求保存。⑵根据题意，新建

“标准EXE”工程，将一个标签和3个复选按钮添加到窗体中，标签的名称为

I.abetl,Caption属性为“编程语言”，字体大小为四号，3个复选按钮的名称分别

为Checkl、Check2和Check3.Caption属性分别为“C++”、"Basic”和“JAVA”,字

体均为四号宋体，且加阻，Check3的Value值为2。设置后单击酒「按钮运行程

序，并按要求保存。

知识点解析：暂无解析

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

2、在考生文件夹中有工程文件execise21.vbp及窗体文件execise21.frm。在名为

Forml的窗体中有一个名为Imagel的图像框，还有两个命令按钮（名称分别是

Cmdl和Cmd2,标题分别是“放大”和“缩小”）。要求程序运行后，单击“放大，按

钮，则图像框变大：单击“缩小”按钮，则图像框变小。

求：去掉程序中的注释符“，”，把程序中的问号"?”改为正确的内容，使其实现上述

功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后

的文件。

（1）打开题目所给工程文件；

（2）将注释语句改为：

□Imagel.Height=Imagel.Height+500

□imagel.Width.=Imagel.Width-500»

标准答案：（3）按要求保存文件即完成本题。

知识点解析：暂无解析

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

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

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

正确的程序代码，然后删除?及所有注释符号（即，号），但不能修改其他部分。修改

后的程序文件都保存，存盘时不得修改文件夹和文件名。本题描述如下：在窗体

上有一个名称为Textl的文本框，三个命令按钮，名称分别是Cl、C2和C3,标题

分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件

in7.txt（该文件在考生文件夹下）中的文本信息读入文本框Textl中；点击“加密”按钮

将Texll中的英文字母加密转换，并将转换后的结果显示到Textl中。转换方式为

转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a"，则转

换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到out7.lxt文件

中（该文件保存到考生文件夹下）。程序设计界面如图12-8所示。

图12-8

标准答案：文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件，

命令按钮的标题由Caption属性设置。题目要求加密原理是：在原来字符的ASCII

码加上一个整数(题目要求为2)转换为其他的字符，然后再将加密后的字符显示在

文本框中。这样就用到了Chr函数和Asc函数。Chr函数返回String,其中包含有

与指定的字符代码相关的字符。其语法格式为：Chr(charcode)charcode必要参

数，是一个用来识别某字符的Long。Asc函数返回一个Integer,代表字符串中首

字母的字符代码。其语法格式为：Asc(slring)string必要的参数，可以是任何有效

的字符串表达式。解题步骤：第一步：编写程序代码。程序提供的代码：Private

SubCl_Click()Dimstrir.fbAsString'?"in7.txt"ForInputAs1Input#1,strinfbClose

#1Textl.Text=strinfoEndSubPrivateSubCommand2_Click()DimstrchangeAsString

DimiAsIntegerFori=lToLen(Textl.Text)'

strchangc=strchange+?(Asc(Mid(Tcxt1.Text,i,1))+2)NextText1.Tcxt=strchangcEnd

SubPrivateSubCommand3_Click()OpenHout7.txtnForOutputAs1'Print#1,?Close

#1EndSub参考代码：PrivateSubCl_Click()DimstrinfoAsStringOpen^^in7.txt'^

ForInputAs1Input#1,strinfoClose#1Text1.Text=strinfoEndSubPrivateSub

C2_Click()DimstrchangeAsStringDimiAsIntegerFori=1ToLen(Textl.Text)

strchange=strchange+Chr(Asc(Mid(Text1.Text,i,1))+2)NextText1.Text=strchange

EndSubPrivateSubC3_Click()Open"out7.txt"ForOutputAs1Print#1,Text1.Text

Close#1EndSub第二年：调试并运行程序第三步：按题目要求存盘

知识点解析：哲尢解析

VB机试模拟试卷第4套

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

1、（1）在名称为Forml的窗体上绘制一个名为HS1的水平滚动条，并在属性窗口中

将Max属性设置为100,Min属性设置为0,Value属性设置为100。程序运行后，

滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左

端，如图3-1所示。注意：只能直接为相应的属性赋值，不得使用任何变量。保存

时必须存放在考生文件夹下，窗体文件名为sjl.frm,工程文件名为sil.vbpo

图3T（2）在Forml的窗体上绘制一个命令按钮，名为

Cmdl,标题为Display,按钮隐藏。编写适当的事件过程，使程序运行后，若单击

窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示VisualBasic。

程序运行情况如图3—2,3—3所示。

图3-2图3-3

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为

sj2.vbp,窗体文件名为sj2.frm。

标准答案：（1）本题主要考查窗体上控件的基本操作。①先在窗体上建立控件，再

设置控件属性。程序中用到的控件及其属性见下表：

控件属性设置值

滚动条NameHS1

滚动条Min0

滚动条Mnx100

滚动条Value]00

②滚动条的最大刻度用Max属性来表示，最小刻度用Min属性来表示，滚动条上

的位置通过Value属性来表示。③单击窗体触发Form_Click事件，滚动框跳到最

左端，即使其Value属性为0。④参考代码如下：PrivateSubForm_Click（）

HS1.Valuc=0EndSub⑤调试并运行程序。⑥按题目要求存盘。（2）①新建一个

名为Forml的窗体。②单击工具箱中的CommandButton控件图标，在窗体上拖拉

出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl,C叩tion属性为

Display,Visible属性为False。③打开代码窗口输入如下代码：PrivateSub

Cmdl_Click（）Print"VisualBasic”'在窗体显示VisualBasicEndSubPrivateSub

Form_Click（）Cmdl.VkibIc=Tme，使命令按钮可见EndSub④按要求保存文件即完

成本氤

知识点解析：暂无解析

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

2、（1）在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完

整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮，三个名称分

别为Texll、Text2和Text3的文本框，运行界面如图65—4所示。要求程序运行

后，在Textl和Text2中分别输人两个整数，单击“求和”按钮后，可把两个整数之

间的所有奇数（不含输入的两个整数）累加起来并在Tcxt3中显示。注意：请在有

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

改其他部分。存盘时不得改变文件名和文件夹。（2）在考生文件夹中有工程文件

sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。在窗体上建立一个名称为

Textl的文本框，建立一个名称为Command］、标题为“计算''的命令按钮，如图

65—5所示。要求程序运行后，如果单击“计算”按钮，则求出50—200之间所有可

以被5整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的

out.txl文件中。(在考生的文件夹下有一个mode.bas标准模块，该模块中提供了

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

CES2HH&-iDixi

i+M

图65-4图65-5注意：请在有“?”的地方填

入正确内容，然后删除“?”及代码前的所有注释符(即9”号)，但不能修改其他部

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

标准答案：(1)看一个数是否为奇数，只要判断此数是否能被2整除，若不能整

除，则是奇数，否则不是奇数。如：NMod2=0,则说明余数为0,N能被2整

除，否则N不能被2整除。根据题意将一个命令按钮和三个文本框控件添加到窗

体中，命令按钮的名称属性为Command］、C叩tion属性为“求和”，三个文本框的名

称分别为Textl、Text2和Text3,然后双击Command1进入代码窗口，补充后的具

体代码如下:PrivateSubCommandl_Click()DimtotalAsLongDimminAsInteger

DimmaxAsIntegerDimaAsIntegermin=Textl.Text,Textl输入的整数

max=Text2.Text'Text2输入的整数total=0Fora=rnin+lTomax-1'循环操作Ifa

Mod2=1Then，判断是否为奇数total=total+a'进行相加操作EndIfNexta

Text3.Text=total，将得到的数输出到文本框3EndSub单击热按钮运行程序,并

按要求保存。(2)根据题意，将一个命令按钮和一个文本框控件添加到窗体中，命

令按钮的名称Commandl、Caption属性为“计算”，文本框的名称为Textl,本题是

为了求50~200之间的能被5整除的数的和，显示到文本框中并保存到OUt.txt

中。在“工程”窗口中单击右键，在弹出的快捷菜单中选择“添加“添加模块;然

后在弹出对话框的“现存”选项卡中选择“mode.bas”，单击“确定”按钮即添加成

功。模块mode,bas中的代码如下：FunctionwriteData(totalAsLong)'将数据保存

至Uoul.ixl中OpenApp.Path&n\out.txt”ForOutputAs#l'打开文件Write#l,

total、进行写入Close#1EndFunction双击Command)进入代码窗口，补充后的代码

如下：PrivateSubCommandl_Click()DimtotalAsLongDimnAsIntegertotal=0For

n=50To20(T循环操作IfnMod5=0Then，判断是否能被5整除lotal=tolal+n'进行相

加操作EndIfNextnTextl.Text=totaf在Textl中显示出来writeData(total)，写入

OUt.ixt文件中EndSub单击;上按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、打开考生文件夹下的sj5.vbp,在名称为Form1的窗体上建立两个命令按钮，

名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图

15—7所示)。程序运行时单击“输入”按钮，输入6个数放人数组a中，单击“结果”

J1阴R：234543765487

B776M454323

则把数组a中的数值按照降序排列。图67注意：请在有“?”

号的地方填正确内容，然后删除“?”及代码前的所有注释符(即号)但不能修改其

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

标准答案：本题重点考查“冒泡法”数据排序方法。“冒泡法”是一种重要的数据排序

算法，其思想是按顺序让一个数列中的每一个数都与其之后的所有的数逐一进行比

较，如果该数小于其后面的数，则把这两个位置的数进行交换。依此类推，即可实

现所有数的降序排列。根据题意，将两个命令按钮添加到窗体中，名称分别为

Commandl和Command?>Caption属性分别为“输入”和“结果"。双击Commandl进

入代码窗口，编写如下弋码：Dima(6)AsIntegerDimstrAsStringDimtmpAs

StringDimiAsIntegerPrivateSubCommandlClick。str="排序前："Fori=lTo6

a⑴二Val(InputBox("请输入："))'输入6个数到数组中tmp=a(i)str=str+tlnp+...,n,，将

数组中的数放到字符串中NextiPrintstr'在窗口中显示数组EndSubPrivateSub

Command?Click()str="排序后："Fori=lTo6，降序排列temp=a(i)Forj=lToiIf

a⑴士tempThen'读取的数据比原位置的数据小则偏移Fork=iToi+lStep-1

a(k尸a(k-I)，数据向后偏移一个Nextka(j)=tempExitForEndIfNextjNextiFori=l

To6trap=a(i)'将排序后的数组放入字符串中str=str4-tmp+,,nNextiPrintstr，在窗口

中显示排序后的结果EndSub单击:算按钮运行程序，并按要求保存。

知识点解析：暂无解析

VB机试模拟试卷第5套

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

1、（1）在名称为Forml的窗体上建立一个名称为Oplionl的单选按钮数组，含匹个

单选按钮，它们的标题依次为“Iteml“、“ItemT'、"Item3”和其下标分别为

0、1、2和3,程序运行时，为选中状态,如图48—1所示。注意:存盘时

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

窗体上建立一个二级菜单，第一级含两个菜单项，标题分别为“文件”和“帮助”，名

称分别为file和help。其中“文件”菜单含有四个子菜单，其标题依次为“打开”、“保

存”、"另存为''和“关闭”，名称分别为open、save、saveas和close,窗体运行界面

Wg.ICIx1

rutPU*-二〜

rJ<M2

作但

rn

如图48—2所示。图"IS48-2注意：存盘时必须

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

标准答案：（I）建立控件数组有多种方法，考生可以选择任何一种来建立单选按钮

数组。Value属性用来设置单选按钮的状态，它的值可以是True或False,当设置

为True时，该单选按钮为选中，否则没有选中。杈据题意，新建“标准EXE”工

程，将4个单选按钮控件添加到窗体中，其名称都为Optionl、Index属性分别为

0、。2、3、Caption属性分别为“Iteml“、"Item2"、"Item3”和其中Item3

的Value值为True,设置完成，单击，按钮运行程序，并按要求保存。（2）根据题

意，新建“标准EXE”工程，选择“工具”->“菜单编辑器”命令，或按“Ctrl+E”组合

键，或单击窗体空白处，在弹出的快捷菜单中选择,'菜单编辑器''命令，打开“菜单

编辑器''对话框，在其中添加以下菜单项：

标签名称内缩

文件File无

打开Open一位

保存Save一位

另存为SaveAs一位

关闭Close一位

得助Help无

单击“确定”按钮，设置完成，单击

按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

2、⑴在名称为Forml的窗体上添加一个名称为LabelI、标题为“添加项目：”的标

签；添加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的

下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意）；再添加两

个命令按钮，名称分别为Command】、Command?,其标题分别为“添加”、“统

计在程序运行时，向Textl中输入字符，单击“添加”按钮后，则将Textl中的内

容作为一个列表项被添加到组合框的列表中；单击"统计“按钮，则在窗体空白处显

示组合框中列表项的个数，如图9—3所示。请编写两个命令按钮的Click事件过

程。注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生

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

文件夹下有一个工程文件sj4.vbp,其窗体如图9-4所示。该程序用来对在上面

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

面的文本框中。加密的方法为：选中一个单选按钮，单击“加密''按钮后，根据选中

的单选按钮后面的数字n,将“明文”中的每个字母改为它后面的第n个字母（“/后

面的字母认为是“a”，“Z”后面的字母认为是"A"）,如图9—4所示。窗体中已经给

出了所有控件和程序，但程序不完整，请去掉程序中的注释符（即把程序中的

“?”改为正确的内容。图9T图9-4注

意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存

盘。

标准答案：⑴本题主要考查命令按钮的Caption和Name属性，下拉式组合框的

Caption>Name、List和ListCount属性，文本框的Text和Name属性,标签的

Caption和Name属性，下拉式组合框的Addltcm方法以及窗体的Print方法。根据

题意，新建“标准EXE”工程，将一个标签控件、文本框控件、下拉式组合框控

件、2个命令按钮控件添加到窗体中，其中标签控件Caption属性为“添加项

目：”，文本框控件名称为Textl,Text属性为空，下拉式组合框控件名称为

Combol,List属性为“中国古巴英国“，命令按钮控件的名称分别为Command1和

Command?,Caption属性分别为“添加”和“统计”。双击进入代码窗口，编写如下

代码：PrivateSubCommandlClick（）Combo1.AddltcmTextlEndSubPrivateSub

Command2_Click（）PrintCombo1.ListCountEndSub单击学按钮运行程序，并按

要求保存。（2）根据题意，打开本题工程文件，打开代码编辑窗13,去掉程序中的

注释符“，”，将问号改为正确的内容，编写如下代码：PrivateSub

Commandl_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,a

AsStringFork=0To2IfOpl(k).ValueThenn=Val(Opl(k).Caption)EndIfNextk

m=Len(Textl.Text)a=H"Fork=lTomc=Mid$(Textl.Text,k,1)c=String(l,

Asc(c)+n)Ifc>"z"Orc>'Z"Andc<"a"ThenC=String(l,Asc(c)-26)EndIfa=a+cNext

kTcxt2.Text：aEndSub单击袋按钮运行程序，并按要求保存。

知识点解析：暂无解析

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

3、在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,另有两个图片，名

称为笑脸与哭脸。窗体及其控件属性都设置完毕，但缺少程序代码，要求考生编写

适当的代码，以实现下面描述的功能。存盘时不得改变文件名和文件夹。本题描

述如下：在名称为Forml的窗本上有两个命令按钮，两个文本框与两个图片框。其

中图片框控件的AutoSize属性为True,名称分别为Piel与Pic2；两个命令按钮的

名称分别为Commandl与Command2,标题分别为“加1”与“减1”；两个文本框名

称分别为Textl和Text2,Te分的Text属性为“李明”,Text2的Text属性为“0”。程

序运行时，“减1”按钮不可用，单击“加1”按钮，Text2内的计数加1,“减1”按钮变

为可用，同时图片框中显示笑脸图片。单击“减1”按钮，Text2内的计数减1,当计

数减到。时，Command2不可用，同时图片框中显示哭脸图片。程序运行时的窗体

azsair皿凶

界面如图14—5所示。图注意：考生不得修改程序控件及控件的属

性，最后应把修改的文，‘牛按原文件名存盘。

标准答案：本题重点考查控件的显示与隐藏、有效与无效功能的实现。Visible属

性用于设置控件是否可见。值为True表示可见，值为False表示不可见；Enabled

属性用于设置控件是否有效，值为True表示有效，值为False表示无效（即灰色）；

文本框的Texl属性用于设置或返回其显示的文本体容；Val（）函数用于将字符串中

的数字字符转换为数值。本题大意是：当给张三加一时露笑脸，给张三减一时露

哭脸。为了实现笑脸与哭脸的交替，可以让两个图片框分别装载笑脸与哭脸图片，

然后让它们重合,单击“加1”时，装载笑脸的图片框Visible属性值为True,装载

哭脸的图片框Visible属性值为False；单击“减1”时，执行相反的操作,即可得到

题目要求的功能。程序运行时，在Form_Load事件过程中将“减1个”按钮设为无

效；用IF