国家二级VB机试（综合应用题）模拟试卷1

家二级VB机试（综合应用题）模拟试

卷第1套

一、综合应用题（本题共10题，每题1.0分，共10

分。）

1在考生文件夹中有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm）。窗

体Forml上有两个名称为Labi和Lab2的标签，它们的标题分别为“密码”和“允许

次数”;一个名称为Cmdl的命令按钮,其标题为“确定”;两个名称分别为Txtl和

Txt2一的文本框。其中Txtl用来输入密码（输入时显示无初始内容,Txt2的

初始内容为3。已给出了Cmdl的事件过程，但不完整，要求去掉程序中的注释符

“，”，把程序中的问号”?”改为正确内容，使得在运行时，在。Txtl中输入密码后，

单击“确定”按钮，如果输入的是“123456”，则在Txtl中显示“密码正确”如图3—66

所示；如果输入其他内容，单击“确定”后，弹出如图3—67所示的错误提示对话

框，并且Txt2中的数字减1。最多可输入3次密码，若3次输入错误，则禁止再次

输入。

图3-66图3-67

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

将文本框Txtl的PasswordChar属性值设置为“*”。步骤2：在代码编辑窗口，去掉

程序中的注释符将问号"?''改为正确的内容。参考代码：IfTxtl.Text=

"123456nThenTxtl.PasSwordChar=nMIfTxt2.Text>0ThenTxtl.Enabled=

False步骤3：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

2、在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。

请在窗体上画三个标签，其名称分别为IblName、IblTel和IblPost,标题分别为“姓

名“、"电话号码''和"邮政编码”。再画三个文本框,其名称分别为txlName、txlTel

和txtPost,初始内容均为空白，如图3—72所示。程序运行后，如果单击“显示第

三个记录”命令按钮，则读取考生文件夹下in5.txt文件中的第三个记录，将该记

录的三个字段分别显示在三个文本框中（该文件是一个用随机存取方式建立的文

件，共有5个记录）。单击“保存”按钮，则把该记录（三个字段）保存到考生文件夹下

的顺序文件。ut5.txt中。请编写“显示第三个记录”按钮的Click事件过程，以实现

上述功能。图3・72注意：考生不得修改已经存在的

程序，必须用“保存”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。

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

按表4—44在窗体中画出控件并设置其相关属性。

DimpersAsPalTypeOpen"in5.txt"ForRandomAs#1_Len=Len(pers)Get#1,

3,pcrstxtNamc.Tcxt=pcrs.NametxtTcl.Tcxt=pcrs.TeltxtPost.Tcxt=

pers.PosiClose#lEndSub步骤3：按VF5＞键运行程序，先单击“显示第三个记

录”按钮，再单击“保存”按钮。步骤4：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

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

还有一个名为daiain.txt的文本文件，其内容如下：32437658281298573142

536475869713243546576879805937程序运行后单击窗体，将把文件

datain.txl中的数据输入二维数组Mat中，按5行5列的矩阵形式显示在窗体上，

然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。

在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并

能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是

多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件

按原文件名存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗

口，去掉程序中的注释符将问号改为正确的内容。参考答案OptionBase1

PrivateSubForm_Click(iConstN=5ConstM=5DimMat(N,M)AaInteger'定义二

维数组Dimi,j,tOpenApp.Path&"\"&"datain.txt”ForInputAs#1'对文件进

行读操作Fori=1TONForj=IToMInput#l,Mat(ij)'将数据读入数组Mat中

NextjNextiClose#1PrintPrint”初始矩阵为："PrintFori=lToNForj=lToM

PrintTab(5*j)；Mat(i,j)；NextjPrintNextiFori=1ToN'完成第二列和第四列

的交换t=Mat(i,2)Mat(i,2)=Mat(i,4)Mat(l,4)=t，将t的内容赋给Mat(i,4),

完成交换NextiPrintPrint”交换第二列和第四列后的矩阵为："PrintFori=lToN

Forj=lToMPrintTab(5*j);Mat(i,j)：，将转换后的结果打印在窗体上NextjPrint

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

知识点解析：暂无解析

4、在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮，标题分别

是“读数据”和“统计”，清添加两个标签，名称分别为Labell和Label2,标题分别

为“出现次数最多的字母是”和“它出现的次数为“；再添加两个名称分别为Textl和

Text2,初始内容为空的文本框，如图所示。程序功能如下：①单击“读数据”按

钮，则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)。②单击

“统计”按钮，自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数，并

统计次数最多的字母显示在Textl文本框内，它所出现的次数显示在Text2文本框

内。“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过

程实现上述功能。注意：考生不得修改窗体文

件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体

右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件，添加两个标签控件，名称分

别为LabelI和Labbl2,标题分别为“出现次数最多的字母是”和“它出现的次数

为“；再添加两个名称分别为Textl和Text2,初始值为空的文本框。步骤2：打开

代码编辑窗口，在指定位置编写如下代码。参考答案Dima(lTo26)AsIntcgci，定

义数组a用于存放字母出现个数DimmaxAsIntegern=Len(s)Ten的功能是求字

符串的长度Fori=lTonk=Asc(Mid$(s,i,1))，依次获取字符If(k>=65Andk

<=90)Thena(k—64)=a(k—64)+1，当为大写字母时，满足条件则计数EndIflf(k

>=97Andk<=122)Thena(k-96)=a(k-96)+1，当为小写字母时，满足条件则

计数EndIfNextimax=OForm=1To26'循环查找出现次数最多的值Ifmax

知识点解析：暂无解析

5、在考生文件夹中有一个工程文件sjl5.vbp0窗体外观如图3—169所示。运行

程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在Label2标

签中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体

的Label4控件中。要求：工程义件中已给出部分程序，“读数据”命令按钮的事件

过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排

序”命令按钮的事件过程中的部分程序代码。

图3-169注意：不能修

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

过后，两个命令按钮的事件过程必须至少各执行一次。

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

在代码编辑窗口，去掉程序中的注释符将问号？'改为正确的内容。参考代

码：DoWhileNotEOF(1)s=s&Str(a(i))步骤2：在代码编辑窗口指定位置编写

以下代码。参考代码：num=UBound(a)Fori=1Tonum—1Forj=iTonumIfa(i)

>a(j)Thent=a(i)a(i)=a(j)a(j)=lEndIfNextNext步骤3：按键运行程序,先单击

“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。

步骤4：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

6、在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体，标题分别为“启动”、

“注册”、“登录”，运行时显示“后动”窗体，单击其上按钮时弹出对应窗体进行注册

或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n

中(均已在标准模块中定义)。注册时用户名不能重复，且“口令”与“验证口令”须相

同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。

登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，

否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索

用户名(即参数ch),找到则返回该用户名在users中的位置，否则返回0。已经给

出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Fo「m2、Form3

窗体文件中的“?”改为正确的内容。注意：不得修改已经存在的程序和控件的属

性，最后程序按原文件名存盘。

标准答案：步骤1：打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗

口，去掉程序中的计释符将问号“?”改为正确的内容。参考代码：注册窗

体Form2-n=n+lElseIffinduser(Trim$(Textl))>0ThenForm1.Label1.Caption="

注册成功!”'…登录窗体Form3-Ifk=0ThenElseIfTrim$(Text2)<>users(k,2)Then

步骤2：按要求将文件保存至考生文件夹中。

知识点解析；本题源程序在“注册”窗体的"确定''按钮的单击事件过程中，先判断是

否输入用户名，若没有输入则弹出提示信息，否则通过调用标准模块中的finduser

函数，检查输入用户是否存在于users数组中(条件表达式为：

finduser(Tnm$(Textl))>0),若该用户存在则弹出提示信息，否则进一步检查前后

两次输入的密码是否一致，若前后不一致则弹出提示信息、，否则通过调用过程

wfiteusers将该用户名及密码写入数组users中，并在“启动”窗体的标签

(Form1.Label1)中显示“注册成功''。每调用一次过程writeusers,全局变量n将记

录新增一个用户，即n=n+l。在“登录”窗体的“登录”按钮的单击事件过程中，通过

调用标准模块中的行nduser函数，检查输入用户是否存在于users数组中，若不存

在(条件表达式为；k=0)则弹出提示信息，否则进一步检查该用户的密码愉入是否

正确(条件表达式为：Trim$(Txt2)Ousers(k,2)),若不正确则弹出提示信息，否

则在“启动”窗体的标签(Forml.Labell)中显示“登录成功”。

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

文本框Textl、Text2、Text3,以及程序。请完成以下工作：①在属性窗口中修改

Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图1一

表1-2

标题名称

绢辑Edit

剪切Cut

复制Copy

50所示；②建立下拉式菜单，见表1—2。_粘贴_____吧J③窗体

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

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

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

内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的

内容之后。摘注意：不能修改程序中的其他部

分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。

标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjl5.vbp,选

中窗体中的文本框Text3,将其Visible属性为False。步骤2：选择【工具】一

【菜单编辑器】命令，打开菜单设计器，按要求建立窗体菜单。步骤3：打开代码

编辑窗口，去掉程序中的注释符“巾，将问号"?”改为正确的内容。参考代码：If

which=1ThenIfwhich=2ThenText!.Text=Textl.Text+Text3.TextText2.Text=

Text2.Text+Text3.Text步骤4：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

8、在考生文件夹下有一个工程文件sjl5.vbp,窗体上有两个标题分别是“读数据”和

“统计”的命令按钮和初始值为空、名称分别为Textl和Text2的两个文本框。如图

1—225所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5.dat文

件的内容（该文件中仅含有字母和空格）显示在Textl文本框中（此过程已给

出）；②在Textl文本框中选中内容后，单击“统计”按钮，则统计选中文本中出

现次数最多的字母（不区分大小写），以大写形式在Text2文本框内显示出现次数

最多的字母。图1-225请将“统计”按

钮Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存

盘。

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

码编辑窗口，去掉程序中的注释符“巾，将问号"?”改为正确的内容。参考代码：si

=Textl.SelLengtha(n)=a(n)+1Forj=2To26Ifa(j)>max_nThenIfa(i)=max_n

Then步骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

9、在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件，然后完成以

下操作：在名称为Forml的窗体上画三个命令按钮，其名称分别为Cl、C2和C3,

标题分别为“读入数据“、“计算"和''存盘”(如图2-155所示)。程序运行后，如果单

击''读入数据”按钮，则调用题目已提供的ReadDatal和ReadData2过程读入

datainl.txt和datain2.txt文件中的各20个整数，分别放入Arrl和Arr2两个数组

中；如果单击“计算”按钮，则把两个数组中对应下标的元素相整除，其结果放入第

三个数组中(即第一个数组的第n个元素整除第二个数组的第刀个元素，其结果作

为第三个数组的第n个元素。这里的n为1,2,20),然后计算第三个数组各

元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目

中给出的WfiteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。

注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击“存盘”按

钮存入考生文件夹下的dataoul.ixt文件中，否则没有成绩。最后把修改后的文件

.AMw|

以原来的文件名存盘。图2-I5S

标准答案：步骤1：打开考生文件中的本题工程文件sjt5.vbp,在窗体中如表3・

_____________________

i

MmeCl

1

QptMNI”教«!

NameC2

命今收俯2

Cotton计，

Nmea

命令播m3

C^rtKNI

87画出控件，并设置其属性。—空—步骤2：在代码编

辑窗口编写以卜事件过程。参考代码：DimSumASIntegerPrivateSub

C1_CIick()RcadDatalReadData2EndSubPrivateSubC2_Click()DimArr3(20)As

IntegerSum=OFori=1To20Arr3(i)=Int(Arrl(i)/Arr2(i))Sum=Sum+Arr3(i)Nexti

Print"Sum="；SumEndSubPrivateSubC3Click()WriteData^Dataout.txt”,Sum

EndSub步骤3：按要求将文件保存至考至文件夹中。步骤4：按VF5＞键运行程

序，先单击“读入数据”按钮，然后单击“计算”按钮，最后单击“存盘”按钮。

知识点解析：暂无解析

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

个文本框。TextKText2、Text3,以及程序。请完成以下工作：①在属性窗口中

修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图

•2-4«•

奥他_

ffVJCM_

R断Copy

2-170所示；②建立下近式菜单，见表2-4。Putt③窗体文件中给

出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确内

容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切"、“复制”不可

用，否则可以把该文本框中的内容剪切或复制到Text3中；若Tcxt3中无内容，

则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的义本框中的内容之

后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把

修改后的文件按原文件名存盘。IE2-170

标准答案：步骤1：打开考生文件夹中的本题工程文件尔5.vbp,选中窗体中的文

本框Text3,将其Visible属性为False。步骤2：选择［工具］-［菜单编辑器］命令，

打开菜单设计器，如表3-97的内容建立窗体菜单。

覆37

«*内

EdM0

Cut1

Copy1

Pute

一：——步骤3：打开代码编辑窗口，去掉程序中的注释

符将问号”?”改为正确的内容。参考代码：Ifwhich：1ThenIfwhich=2Then

Textl.Text=Textl.Text+Text3.TextText2.Text=Text2.Tcxt+Text3.Text步骤

4：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

国家二级VB机试(综合应用题)模拟试

卷第2套

一、综合应用题(本题共10题，每题分，共10

分。)

1、在考生文件夹中有一个工程文件sjt5.vbpo该程序的功能是从in5.txt文件中

读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断

素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中

(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。注意：不得

修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将

统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。

标准答案：［操作步骤］步骤1：打开本题工程文件。步骤2：分析并在适当位置编

写程序代码。参考代码DimaAsIntegerDimbAsIntegera=0b=arr(I)Fori=lTo

4(T确定素数个数I「priine(aiT(i))Their判断是否为素数素数个数累加

Label3.C叩tion=a'在标签中显示NextFori=lTo4(T查找最小素数If

prime(arr(i))Andarr(i)V=bThen'比较素数大小b=arr(iy将较小素数赋给b

Label4.Caption=b'在标签中显示Next步骤3：按照题目要求调试并运行程序，效

果如图3.16所示。图3.16步骤4：关闭程序后，按题目

要求存盘。

知识点解析：暂无解析

2、在考生文件夹下有一个数据库文件“samp3.accdb”，其中存在已经设计好的表

对象“tAddr”和“tUscr”。同时还有窗体对象“fEdit”和“fEuser”。请在此基础上按照以

下要求补充“fEdit”窗体的设计。⑴将窗体中名称为“Lremark”的标签控件上的文字

颜色改为红色（红色代码为255）,字体粗细改为“加粗”。（2）将窗体标题设置为“修

改用户信息（3）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚

动条、记录选择器、导航按钮和分隔线。（4）将窗体中“退出”命令按钮（名称为

“cmdquit"）上的文字颜色改为深棕（深棕代码为128）、字体粗细改为“加粗”，并给文

字加上下划线。（5）在窗体中还有“修改”和“保存”两个命令按钮，名称分别为

“CmdEdi「和“CmdSave”，其中,•保存”命令按钮在初始状念为不可用，当单击“修

改”按钮后，应使“保存”按钮变为可用。现已编写了部分VBA代码，请按照VBA

代码中的指示将代码补充完整。要求：修改后运行该窗体，并查看修改结果。注

意：不能修改窗体对象“fEdit”和“fEuse式中未涉及的控件、属性；不能修改表对象

“tAddr”和"tUser"。程序代码只允许在“**********"与“**********”之间的空行内

补充一行语句，完成设计，不允许增删和修改其他位巴已存在的语句。

标准答案：（1）【操作步骤】步骤1：选择窗体对象，有键单击“fEdit”窗体，从弹

出的快捷菜单中选择“设计视图”命令。步骤2：右雍单击“Lxemark”标签，从弹出

的快捷菜单中选择“属性”命令。步骤3：单击“格式''选项卡，在“前景色”行输入

“255”（软件自动显示为16进制数#FFOOOO）,在“字体粗细”行的下拉列表中选择“加1

粗”。关闭属性表。如图3.159所示。-图3.159⑵【操

作步骤】步骤I：右键单击“窗体选择器”。从弹出的快捷菜单中选择“属性”命令。

步骤2：在“格式”选项卡的“标题”行输入“修改用户信息”。如图3.160所示。

㈤一“3(3)【操作步骤】步骤1：在“窗体”属性对话

框的“边框样式”行下拉列表中选择“对话框边框如图3.161所示。步骤2：分

别在“滚动条”、“记录选择器”、“导航按钮”和“分隔线''的下拉列表中选择“两者均

无”或“否”。如图3.161所示。图3,161(4)【操作步

骤】步骤I：右键单击命令按钮“退出”，从弹出的快捷菜单中选择“属性”命令。

步骤2：单击“格式”选项卡，在“前景色”行输入“128”，在“字体粗细”行的下拉列表

中选择“加粗”，在吓划线”行下拉列表中选择“是”，关闭属性表。(5)【操作步

骤】在设计视图中右键单击命令按钮“修改”，从弹出的快捷菜单中选择“事件生成

器”命令，在弹出的对话框中选择“代码生成器”，进入编程环境，在空行内输入以

下代码：'*****请在下面添加一条语句*****CmdSave.Enabled=

True'**********************如图3.162所示，关闭界面。

图3.162

知识点解析：暂无解析

3、在考生文件夹下有一个数据库文件“samp3.accdb”，里面已经设计了表对象

“tEmp"、窗体对象“fEmp”、报表对象丁Emp”和宏对象“mEmp”。请在此基础上按照

以下要求补充设计。⑴设置表对象“tEmp”中“聘用时间”字段的有效性规则为：

2006年9月30日（含）以前的时间。相应有效性文本设置为：输入二零零六年几月

以前的日期。（2）设置报表“rEmp”按照“年龄”字段降序排列输出；将报表页面页脚

区域内名为"Page”的文本框控件设置为“页码一总页数”形式的页码显示（如1-

15、2—15、…）。（3）将“fEmp”窗体上名为"Title”的标签宽度设置为5厘米、高度

设置为1厘米，没置其标题为“数据信息输出”并居中显示。（4）在“fEmp”窗体上单

击“输出”命令按钮（名为“btnP”），实现以下功能：计算Fibonacci数列第19项的

值，将结果显示在窗体上名为“Data”的文本框内并输出到外部文件保存；单击“打

开表''命令按钮（名为“btnQ”），凋用宏对象“mEmp”以打开数据表“tEmp"。Fibonacci

数列：F|=ln=lF2=ln=2Fn=En-i+En-2i】>=3调试完毕后，必须单击“输出”

命令按钮生成外部文件，才能得分。试根据上述功能要求，对已给的命令按钮事

件进行补充和完善。注意：不要修改数据库中的宏对象“mEmp"；不要修改窗体时

象“lEtup”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未

涉及的字段和属性。程序代码只允许在“*****Add*****"与“*****Add*****”之间

的空行内补充一行语句、完成设计，不允许增删和修改其他位置己存在的语句。

标准答案：（1）【操作步骤】步骤1：选择“表”对象，右键单击“tEmp”,从弹出的

快捷菜单中选择“设计视图”命令。步骤2：单击“聘用时间”字段行任一点，在“有

效性规则”行输入"<=#2006—9一30#"，在“有效性文本”行输入“输入二零零六年

九月以前的日期如图3.308所示。

图3,308步骤3：按Ctrl+S保存

修改，关闭设计视图。(2)【操作步骤】步骤1：选择“报表”对象，右键单击

“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。步骤2：单击“设计”选项卡

“分组和汇总”组中的“分组和排序”按钮，在“分组、排序和汇总”界面选择“添加排

序”，选择“排序依据”下拉列表中的“年龄”字段.选择“降序”，关闭界面，如图

3.309所示。图3,309步骤3：右键单击

“tPage"，从弹出的快捷菜单中选择“属性”命令，在“全部”选项卡“控件米源”行输入

“=[Page]&"-”&[Pages]”,关闭属性表。如图3.310所示。

图3・31。步骤4：按Ctrl+S保存修改，关闭设计

视图。(3)【操作步骤】步骤1：选中“窗体”对象，右键单击“fEmp作从弹出的快

捷菜单中选择“设计视图”命令。步骤2：右键单击标签控件“bTitlc"，从弹出的怏

捷菜单中选择“属性”命令，在“标题”行输入“数据信息输出”，在“宽度'和“高度”行

分别输入“5cm”和“1cm”，并在“文本对齐”行右侧下拉列表中选择“居中”，如图

*!*«K

MF

aw

-LifiM

,2

W”K

9BB

'Is«m:

盅*JUT

oue

'f

«

文*以齐

««

3.311所示，关闭属性表。图3.311(4)【操作步骤】

步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，

在弹出的对话框中选择“代码生成器”，进入编程环境，在空行内输入以下代

码:，*****Addl*****Dim瑁9)AsInteger'*****Addl*****'*****Add2*****1⑴

=f(i-l)+f(i-2)，*****Add2*****，*****Add3*****tData=

f(19)'*****Add3*****如图3.312所示，关闭界面。

n3.312步骤2：按Ctrl+S保存修

改，关闭设计视图。

知识点解析：暂无解析

4、在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮，标题分别

是“读数据”和“统计”,诗添加两个标签，名称分别为Labell和Label2,标题分别

为“出现次数最多的字母是''和"它出现的次数为再添加两个名称分别为Textl和

Text2,初始内容为空的文本框，如图所示。程序功能如下：①单击“读数据”按

钮，则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)。②单击

“统计”按钮，自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数，并

统计次数最多的字母显示在Textl文本框内，它所出现的次数显示在Text2文本框

内。“读数据”按钮的Click事件过程已经绐出，请为、,统计”按钮编写适当的事件过

程实现上述功能。注意:考生不得修改窗作文

件中己经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体

右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

标准答案：【操作步骤】步骤1：打开本题工程文件，添加两个标签控件，名称分

别为Labell和Labbl2,标题分别为“出现次数最多的字母是”和“它出现的次数

为“；再添加两个名称分别为Textl和Text2,初始值为空的文本框。步骤2：打开

代码编辑窗U,在指定位置编写如下代码。参考答案Dima(lTo26)AsInteger，定

义数组a用于存放字母出现个数DimmaxAsIntegern=Len(s)Ten的功能是求字

符串的长度Fori=lTonk=Asc(Mid$(s,i,1))，依次获取字符If(k>=65Andk

<=90)Thena(k-64)=a(k-64)+l'当为大写字母时，满足条件则计数EndIflf(k

>=97Andk<=122)Thena(k-96)=a(k-96)+1，当为小写字母时，满足条件则

计数EndIfNextimax=0Form=1To26'循环查找出现次数最多的值Ifmax

知识点解析：暂无解析

5、在考生目录下有一个工程文件sjt5.vbpo窗体中已经给出了所有控件(如图3-

116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录

下的in5.ixl文件中的一个整数放入Textl；单击“计算”按钮，则计算出大于该数

的第一个素数，并显示在Text2中：单击“存盘”按钮，则把找到的素数存到考生目

录下的out5.txt文件中。图3/16注意：在结束程序运行

之前，必须单击“存盘”按钮，把结果存入。ut5.txt文件，否则无成绩。最后把修

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

标准答案：【操作步骤】步骤1：打开本题对应工程文件sjt5.vbpo步骤2：双

击窗体Forml上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如

卜代码。参考代码：PrivateSubCommand2_Click()a%=CInt(Textl.Text)Doa%

=a%+1LoopUntilisprime(a%)Text2.Text=a%EndSub步骤3：编写判断素数

的函数过程isprime,参考代码为:Functionisprime(aAsInteger)DimflagAs

Booleank%=2flag=TrueWhilek%<=Int(a/2)AndflagIfa/k%=Int(a/k%)

Thenflag=FalseEndIfk%=k%++1Wendisprime=flagEndFunction步骤4：按

〈卜5>键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击'、存盘”按

钮。步骤5：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

6、考生文件夹下有一个工程文件sjt5.vbp,界面如图1—115所示，其功能如下：

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

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

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

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

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

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

述功能。图1-115注意：不得修改已经存在的程序，在

结束程序运行之前，必须用“存盘''按钮存储计算结果，否则无成绩。最后，程序按

原文件名存盘。

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

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

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

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

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

保存结果。

知识点解析：暂无解析

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

Textl.Text2,都可以多行显示。还有三个命令按钮，名称分别为Cl、C2、C3,

标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat

文件中的50个整数读到数组中，并在Textl中显示出来；“排序”按钮的功能是对

这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个

数保存到考生目录下的。ut5.dat文件中。如图1—120所示。

匕FormlIg||a|

7232

6

12536

1431516

1559702

173酸0787

965

1997

图1・12°在窗体中已经给出了全部控件和

部分程序，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，

并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中F勺其

他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

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

码编辑窗口的指定位置编写以下代码：参考代码：PrivateSubCl_Click()Dimk

AsIntegerDimchAsStringOpenApp.Path&"\in5.dat"ForInputAs#1ch=""Fork=

1To50Input#1,a%(k%)ch=ch+Str(a(k))+""NextkClose#1Text1.Text=

ch$EndSubPrivateSubC2_Click()DimkAsInteger,iAsInteger,jAsIntegerDimch

AsStringFori=1To49k=iFori=i+1To50Ifa(k)>a(j)Thenk=jEndIfNextji

=a(k)a(k)=a(i)a(i)=jNextich=""Fork=1To50ch=ch+Str(a(k))+""Nextk

丁©乂12丁©乂1二<±£血5而步骤2：按要求将文件保存至考生文件夹中。步骤3：按

VF5>键运行程序，先单击“取数”按钮，再单击“排序”按钮，最后单击“存盘”按

钮。

知识点解析：暂无解析

8、在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体，标题分别为“启动”、

“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册

或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n

中(均己在标准模块中定义)。注册时用户名不能重更，且“口令”与“验证口令”须相

同，注册成功则在“启动''窗体的标签中显示“注册成功、否则显示相应错误信息。

登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，

否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索

用户名(即参数ch),找到则返回该用户名在users中的位置，否则返回0。已经给

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

窗体文件中的?改为正确的内容。注意：不得修改已经存在的程序和控件的属性，

最后程序按原文件名存盘。

标准答案：审题分析本题源程序在“注册”窗体的“痛定”按钮的单击事件过程中，

先判断是否输入用户名，若没有输入则弹出提示信息，否则通过调用标准模块中的

fmduser函数，检查输入用户是否存在于users数组中(条件表达式为：

fmduser(Trim$(Textl))>0),若该用户存在则弹出提示信息，否则进一步检查前后

两次输入的密码是否一致，若前后不一致则弹出提示信息，否则通过调用过程

writeusers将该用户名及密码写入数组users中，并在“启动”窗体的标签

(FormI.Labell)中显示“注册成功每调用一次过程writeusers,全局变量n将记

录新增一个用户，即n=n+l。在“登录”窗体的“登录”按钮的单击事件过程中，通过

调用标准模块中的finduser函数，检查输入用户是否存在于users数组中，若不存

在(条件表达式为：k=0)则弹出提示信息“否则进一步检查该用户的密码输入是否

正确(条件表达式为：Trims(Text2)Ousers(k,2)),若不正确则弹出提示信息，否则

在“启动”窗体的标签(Forml.Label1)中显示“登录成功”。操作步骤步骤1：打开

考生文件夹中的本题工程文件尔5.vbp,在代码编辑窗口，去掉程序中的注释符

将问号改为正确的内容。参考代码：。注册窗体Fonn2-n=n+IElself

flnduser(Trim$(Text1))>0ThenForm1.Label1.Caption="注册成功!”。一登录窗体

Form3-Ifk=OThenElselfTrim$(Text2)<>users(k,2)Then步骤2：按耍求将文件

保存至考生文件夹中。考点链接多窗体、Sub过程和函数过程。

知识点解析：暂无解析

9、在考生文件夹下有一个工程文件sjt5.vbpo在窗体文件中已经给出了全部控件

及部分程序。程序运行时，在文本框Tcxtl中输入一个大于2的偶数，并单击“分

解为“按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够

分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解

为5和19,也可以分解为11和13,要求取含有最小素数的组合，如图3-124所

示)。要求编写“分解为"按钮事件过程中“考生编写程序开始”和“考生编写程序结束”

之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果

:疥的$»n5-

是，返回值为True,否则返回值为False。图3/24注意：

不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输

入23456,单击“分解为”按钮，将结果显示在标签中，否则无成绩。最后把修改后

的文件按原文件名存盘。

标准答案：审题分析本题程序设计思路：两个整数之和为n的组合有：1和ml、2

和n-2…i和n-i,在For循环中按前一个加数由小到大的顺序，依次通过调用函数

IsPrime来判断每个组合中的两个加数是否均为素数，第一个找到的素数组合中即

含有能够分解出的最小素数。由于1不是素数，故循环变量的初值从2开始；由于

i和n-i的组合与n-i和i组合在本题中可被视为相同组合，故循环变量的终值设定

为n/2即可。操作步骤步骤1：打开考生文件夹中的本题工程文件sjt5.vbp,在

代码编辑窗口的指定位置编写以卜代码：参考代码：DimiAsIntegerDimnAs

Integern=Val(Textl.Text)IfnMod2<>0ThenMsgBox”请输入偶数!"ExitSubEnd

IfFori=2Ton/2IfIsPrime(i)AndIsPrime(n—i)ThenLabel1.CaDtion=i

Label2.CaDtion=n—iExitForEndIfNext步骤2：按键运行程序，在文本框中输

入23456,单击“分解为"按钮。步骤3：按要求将文件保存至考生文件夹中。考点

链接For循环结构、Sub过程和函数过程。

知识点解析：暂无解析

10、在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完

整的程序，请去掉程序中的注释符，把程序中的?改为正确的内容。本程序的功能

是：如果单击“取数”按钮，则把考生目录下的in5.txt文件中的15个姓名读到数

组a中，并在窗体上显示这些姓名；当在Textl中输入一个姓名，或一个姓氏后，

如果单击''查找"按钮，则进行查找，若找到，就把所有与Textl中相同的姓名或所

有具有Textl中姓氏的姓名显示在Text2中(如图2.⑷所示)；若未找到，则在

Text2中显示“未找到!'若Textl中没有查找内容，则在Text2中显示”未输入查找

内容!”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文

件按原文件名存盘。阳2.⑷

标准答案：步骤1：打开考生文件夹中的本题工程文件sjt5.vbp,打开代码编辑窗

口，去掉程序中的注释符”“二将问号"?”改为正确的内容。参考代码：Close利

n=Len(Textl.Text)IfLeft(a(k),n)=Textl.TextThenc=c+""+a(k)Text2.Text=c

步骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

国家二级VB机试(综合应用题)模拟试

卷第3套

一、综合应用题(本题共10题，每题1.0分，共10

分。)

1、在考生文件夹下有一个工程文件Vbsj5.vbp,已给出了部分控件和部分程序。

请在窗体上画三个标签，其名称分别为IblName、IblTel和IblPost,标题分别为“姓

名”、“电话号码'’和“邮政编码”。再画三个文本框,其名称分别为txtName、txlTel

和txtPost,初始内容均为空白，如图3-72所示。程序运行后，如果单击“显示第

三个记录''命令按钮，则读取考生文件夹下in5.txt文件中的第三个记录，将该记

录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文

件，共有5个记录)。单击“保存”按钮，则把该记录(三个字段)保存到考生文件夹下

的顺序文件out5.txt中。请编写“显示第三个记录”按钮的Click事件过程，以实现

上述功能。注意：考生不得修改已经存在的程序，必须用“保存”按钮存储结果，

否则无成绩。最后，按原文件名把程序存盘。

程序源码：PrivateTypePalTypeNameAs

String*8TelAsString*10PostAsLongEndType考生编写如下事件过程的程序

(cmdDisplay_Click)PrivateSubcmdDisplay_Click()EndSubPrivateSub

cmdSave_Click()Open"cut5.txt'TorOutputAs#lPrint#1,txtName.Text,

txtTel.Text,txtPosl.TextClose1EndSub

标准答案：步骤1：打开考生文件夹中的本题工程文件vbsj5.vbp,按表14在

窗体中画出控件并设置其相关属性。

ft4-44

对象属性值

NameIblNamc

标签1

Caption姓名

NameIblTd

标答2

Ciiptiun电话号码

NameIbIPost

标签3