国家二级VB机试（简单应用题）模拟试卷3（共60题）

家二级VB机试（简单应用题）模拟试

卷3（共6套）

（共60题）

家二级VB机试（简单应用题）模拟试

卷第1套

一、简单应用题（本题共70题，每题分，共70

分。）

1、（1）考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Textl的控

件数组；一个标题为“排序”的命令按钮。程序运行时，在文本框数组中输入8个整

数，如图3—29（a）所示；然后单击“排序”按钮，则8个整数按降序排序，如图3—

29（b）所示。图3.9在给出的窗体文件中己经有了全部

控件，但程序不完整。请将事件过程中的注释符去掉，把"?”改为正确的内容，以

实现上述程序功能。注意：考生不得修改窗体文件中己经存在的控件和程序，最

后将程序按原文件名存盘。（2）在考生文件夹下有工程文件尔4.vbpo其窗体界面

如图3—30所示，可以实现以下功能：“添加项目''夜钮可以把在组合框编辑区中输

入的新项目添加到组合框列表中，但不能添加重复项目；“删除项目”按钮从列表中

删除选中的项目；“添加爱好”按钮把组合框编辑区中的内容追加到下面的文本框原

有内容之后；“清除爱好''按钮清除该文本框内容。

在给出的窗体文件中已经有了全部控件，但程序

不完整。请将事件过程中的注释符去掉，把"?”改为正确的内容，以实现上述程序

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

文件名存盘。

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

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

容。参*代码：k=iFerj=i+1To7IfVal(Text1(j).Text)>Val(Textl(k).Text)

ThenTcxtl(k).Text=j步骤2：按要求将文件保存至考生文件夹中。第2小题

【操作步骤】步骤1：打开考生文件夹中的本题工程文件尔4.vbp,在代码编辑

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

Combo1.Tcxt=Combol.List(k)ThenCombo1.AdditemCombol.Text

Combol.RemoveItemCombol.ListindexTextl.Text=Textl.Text&"

Combol.TextTextl.Text="”步骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

2、(1)在考生文件夹下有一个工程文件sjt3.vbpo程序运行后，单击“读入数据”按

钮，可将考生文件夹下in3.txt文件中的所有英文单词读入，并在Textl文本框中

显示；单击“插入列表框“按钮，则按顺序将每个单词作为一项添加到Listl列表框

中(如图所示)。在in3.txt文件中，每个单词之间用一个空格字符隔开，最后一个

单词的后而没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去

掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改

程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

(2)在考生文件夹下有一个工

程文件件sjt4.vbp,窗体上已经添加所有控件，如图所示。在程序运行时，如果

单击“开始”按钮，则每隔0.1秒窗体上的汽车图标向右移动一次（初始状态下不移

动）；如果单击“停止”按钮，则停止移动。请完成以下工作：

①设置适当控件的适当属性，使得每

0.1秒汽车图标向右移动一次，而初始状态下不移动。②请去掉程序中的注释

符，把程序中的?改为正确的内容。③为两个命令按钮编写适当的事件过程，最后

以原文件名存盘。注意：不得修改已经给出的程序。编写事件的过程中不能使用

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

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

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

Coinmandl_Click()Dimst$.ch$OpenApp.Path&"\in3.txt'TorInputAs#1'打开

文件DoWhileNotEOF(l)，文件指针是否到达文件末尾Input#,ch，迭到文件末尾返

回true,否则返回falsest=st&ch'将读出的数据加到原有数据末尾LoopClose：

&1'关闭文件Textl=st'将内容显示在文本框中EndSubPrivateSubCommand?

Click（）Dimst$,word$,c$St=Textln=Lcn（st）Fork=1Tone=Mid（st,k,1）'从

st中依次取出1个字符进行比较IfcoM,,Thenword=Word&cElseListl.Additem

wordword=""将word清空，为下一次作准备EndIfNextListl.AdditemwordEnd

Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步

骤1：打开本题工程文件,设置计时器Inteval的属性为100,将Enabled属性设置

为False。步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考答案

PrivateSubTimerl_Timer（）Pl.Lcft=Pl.Lcft+20EndSub需要考生编写的内容

PrivateSubCl_Click()Timerl.Enabled=TrueEndSubPrivateSubC2CIick()

Timerl.Enabled=FalseEndSub步骤3：调试并运行程序，关闭程序后按题目要求

存盘。

知识点解析：暂无解析

3、在考生文件夹下有一个数据库文件“samp2.aecdb”，其中存在已经设计好的3

个关联表对象“tStud"、“tCoursc”和“tScorc”及一个临时表对象“tTmp”。请按以卜要

求完成设计。（1）创建一个查询，查找并显示照片信息为空的男同学的“学号”、“姓

名,,、“性别,，和“年龄,,4个字段的内容，将查询命名为（2）创建一个查询，查

找并显示选课学生的“姓名”和“课程名”两个字段的内容，将查询命名为“qT2L（3）

创建一个查询，计算选课学生的平均分数，显示为“学号”和“平均分”两列信息，要

求按照平均分降序排列，将查询命名为“qT3”。（4）创建一个查询，将临时表对象

“tTmp”中女员工编号的第一个字符更改为“1”，所建查询命名为“qT4”。

图3.242步骤4：将查询

保存为“ql2”.关闭没计视图。⑶【操作步骤】步骤1：单击“创建”选项卡“查询”

组中的“查询设计”按钮，从“显示表”对话框中添加表々Score”，关闭“显示表”对话

框。步骤2：分别双击“学号”和“成绩”字段。单击“查询工具”的“设计”选项卡“显示

/隐藏”组中的“汇总”按钮，在“成绩”字段“总计”行下拉列表中选择“平均值”，在

“排序”行下拉列表中选择“降序在“成绩”字段前添加“平均分：”字样，如图

3.243所示。将查询保存为“qT3”，关闭设计视图。

图3.243

(4)【操作步骤】步骤1：单击“创建”

选项卡“查询”组中的“查询设计”按钮，从“显示表”对话框中添加表“iTmp”，关田

“显示表”对话框。步骤2：分别双击“编号”和“性另「字段。单击“查询工具”的“设

计”选项卡“查询类型”组中的"更新”按钮，在“编号”字段“更新到''行输入

“T&Mid(［编号］,2,5)”。在“性别”字段“条件”行输入“女”字样，如图3.244所

示。单击“设计”选项卡“结果”组中的“运行”按钮，在弹出的对话框中单击“是”按

钮。将查询保存为“qT4”。关闭设计视图。

图3.244

知识点解析：暂无解析

4、在考生文件夹下，存在一个数据库文件“samp2.accdb”，里而已经设计好表对

象“tDoctor"、“tOflice"、"tPatient"和"tSubscribe”,同时还设计出窗体对象

“fQucry”。试按以下要求完成设计。（1）创建一个查询，查找姓名为两个字的姓

"王''病人的预约信息，并显示病人的“姓名”、“年龄”、“性别”、“预约日期”、“科室

名称”和“医生姓名”，所建查询命名为“qTl”。（2）创建一个查询，统计星期一预约

病人的平均年龄，要求输出一列内容，显示标题为“平均年龄”，所建查询命名为

“qT2”。（3）创建一个查询，查找预约了但没有留下电话的病人，并显示“姓名”，所

建查询命名为“qT3”。注意：病人的姓名不允许重复显示。（4）现有一个已经建好

的“fQucry”窗体，运行该窗体后，在文本框（文本框名称为tNamc）中输入要查询的

医生姓名，然后按下'喳询"按钮，即运行一个名为“qT4”的包询。“qT4”杳询的功能

是显爪所查医生的“医生姓名”和“预约人数”两列信息，其中“预约人数”值由“病人

ID”字段统计得到，请设计“qT4”查询。

标准答案：（1）【操作步骤】步骤1：单击“创建”选项卡下“查询”组中的“查询设计”

按钮,在弹出的“显示表”对话框中双击添加表“Doctor"、“tOffice"、"Patient”和

“tSubscMbc”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：双击tPaticnt

表的“姓名”、“年龄”、“性别”字段,双击［Subscribe表的“预约日期”字段，双击

（Office表的“科室名称”却（Doctor表的“医生姓名”字段；在“姓名”字段的“条件”行

中输入“Ukc”王?”“，如图4.12所示。

图4.12

步骤3：单击快速访问工具栏中

的“保存”按钮，另存为RT1”，关闭设计视图。（2）【操作步骤】步骤1：单击“创

建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中双击表

“tPatient”和“［Subscribe”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：双

击tPatient表中的“年龄”字段以及tSubscribc表中的“预约日期”字段，然后在“年龄”

字段前加“平均年龄：”字样。步骤3：单击“杳询工具”的“设计”选项卡下“显示/

隐藏”组中的“汇总”按钮，在“平均年龄”字段的“总计”行中选择“平均值”，在“预约

日期”字段的“总计”行中选择“Where”,在“预约日期”的“条件”行中输入

“Weekday（［预约H期］）=2"，如图4.13所示，然后单击快速访问工具栏中的“保

存”按钮,另存为“qT2”.

中（3）【操作步骤】步骤

1：单击“创建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框

中双击表“tPaticnt”和“tSubscribc”，然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2：双击“姓名”和“电话”字段，然后取消“电话”字段“显示”行复选框的勾选。

步骤3：单击“查询工具”的“设计”选项卡下“显示/隐藏”组中的“汇总”按钮，在“电

话”字段对应的“总计”行中选择“Where”,在“条件”行中输入“IsNull”,如图4.14

所示，然后单击快速访问工具栏中的“保存”按钮，另存为“qT3”。

图4.14

(4)【操作步骤】步骤1：

单击“创建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中双

击表“iDoclor”和“tSubscribe”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤

2：双击tDoctor。表中“医生姓名”字段，[Subscribe表中的“病人ID”字段，并在“病

人ID”字段前加“预约人数：”字样。步骤3：单击“查询工具”的“设计”选项卡不“显

示/隐藏”组中的“汇总"按钮，在“预约人数”字段的“总计”行中选择“计数”，在“医

生姓名”字段的“条件”行中输入“[Forms]![fQuery]![tName『，如图4.15所示，然后

单击快速访问工具栏中的“保存”按钮，另存为“qT4\关闭“设计视图”。

图4.15

知识点解析：暂无解析

5、(1)在考生目录下有一个工程文件sjt3.vbp。程序的功能是：通过键盘向文本

框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输

入的字符。单击名称为Command］、标题为“添加I”的命令按钮，则将文本框中的数

字添加到名称为Combol的组合框中。在给出的窗体文件中已经添加了全部控件，

但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：

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

盘。(2)在考生目录下有一个工程文件sjt4.vbp。该程序的功能是计算

M!+(M+l)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本

框，用于接收输入的M和N(要求M<N)。单击名称为Command］、标题为“计

算”的命令按钮，计算M!+(M+l)!+(M+2)!+…+N!之和，并将计算结果显示在标签

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

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

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

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

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

参考代码：Combol.AddltemText1.TextIfKeyAscii>57OrKeyAscii<48Then

KcyAscii=O步骤2：按要求将文件保存至考生文件夹中。笫2小题【操作步骤】

步骤1：打开考生文件口的本题工程文件sjl3.vbp,在代码编辑窗口，去掉程序中

的注释符将问号“?”改为正确的内容。参考代码：Fori=mTont=f(i)s=s+

tt二步骤2：按VF5>键键运行程序，在第一个文本框中输入一个整数，

第二个文本框中输入比第一个文本框中大的数，然后单击“计算”按钮。步骤3：按

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

知识点解析：暂无解析

6、(1)在考生文件夹中有一个工程文件sjt3.vbp,窗体控件布局如图1-214

(a)所示°程序运行时，在文本框Tex”中输入一个正整数,选择“奇数和”或“偶

数和”，则在Label2中显示所选的计算类别。单击“计算”按钮时，将按照选定的

“计算类别”计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在

Label3中。程序的一次运行结果如图1—214(b)所示。在窗体文件中已经给出了

(a)(b)

全部控件，但程序不完整。图1-214要求：请

去掉程序中的注释符，物程序中的?改为正确的内容，使其实现上述功能，但不能

修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在

考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击“开始”按钮，则图

片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移

出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则

图片停止移动，如图1—215所示。在窗体文件中已经给出了全部控件，但程序不

完整。图】-215要求：请去掉程序中的注

释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他

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

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

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

参考代码：Callcalc(i)Lbl2.Caption=Optionl(i).Captionx=Val(Texll.Text)IfiMod

2=1ThenLabel3.Caption=result步骤2：按要求将文件保存至考生文件夹中。第

2小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt4.vbp°步躲

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

考代码：Timerl.Enabled=FalseTimer!.Interval=500IfPicture1.Left>

Form1.WidthThenPicture1.Left=0步骤3：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

7、(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”

的框架，在框架中有一个名称为Txtl的文本框数组，含六个元素；文本框Txl2用

来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系

数后，单击“计算分数”按钮，则可计算出最后得分并在文本框Txt3中显示(如图1

—335所示)。图1935计算方法：去掉1个最高得

分和1个最低得分，求剩下得分的平均分，再乘以3,再乘以难度系数。最后结果

保留到第2位小数，不四舍五入。注意：文件中已经给出了所有控件和程序，但

程序不完整，请去掉程序中的注释符，把程序中的改为正确的内容。考生不能

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

程序源码：PrivateSubCmdl_Click()DimkAsInteger,sAsSingle,aAs_Single,b

AsSinglea=Val(Txt1(O).Text)s=ab=a'Fork=lTo?s=s+

Val(Txtl(k).Text)"If?<Val(Txtl(k).Text)Thena=Val(Txti(k).Text)EndIfIfb>

Val(Txtl(k).Text)Thenb=Val(Txtl(k).Text)EndIfNextk's=(s—a—b)/?'s

=?*3*Val(Txt2.Text)*?=Int(s*100)/100EndSub(2)在名称为Forml的窗

体上画一个名称为picOpen的图片框，并利用属性窗口把考生目录中的图标文件

Open.ico放到图片框中；再画一个通用对话框控件，名称为cdlOpen,利用属性窗

口设置相应属性，即打开对话框时：标题为“打开文件”，文件类型为“Word文

档“，初始目录为C盘根目录。再编写适当的事件过程，使得在运行时，单击P1

图片框，可以打开上述对话框。运行后的窗体如图1—336所示。

CForml«=j0£3

FOF：

♦计丽♦和u©/“ZMaa:ES£aa

图1-336注意：存盘时必

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

中不得使用任何变量。

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

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

容。参*代码：Fork=ITo5Ifa<Val(Txtl(k).Text)Thens=(s-a-b)/4s=s*

3*Val(Txt2.Text)Txt3.Text=Int(s*100)/100步骤2：按要求将文件保存至考生文

件夹中。第2小题【操作步骤】步骤I：新建一个“标准EXE”工程，按表2—177

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

表2-177

对象属性值

NamepicOpen

图片框

PictureOpen.ico

NamecdlOpen

DialogTitle打开文件

通用对话框

FilterWord文档|*.doc

Filterindex1

InitDirC:

步骤2：打开代码编辑窗

口，编写如下事件过程。参考代码：PrivateSubpicOpen_Click()

cdlOpen.ShowOpenEndSub步骤3：按要求将文粹保存至考生文件夹中。

知识点解析：暂无解析

8、在考生文件夹下有一个工程文件sjl3.vbpo程序的功能是通过键盘向文本框中

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

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

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

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

图3432注意：不能修改程序的其他部分和控件

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

标准答案：审题分析本题源程序在For循环体中(其中循环终值应为文本框的字符

长度，即n=Len(Textl.Text)),用Mid函数逐一取出文本框中的每个字符，并用

Asc函数返回其ASCII码。若取出字符的ASCII码在48〜57之间，则记录数字个

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

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

增1。操作步骤步骤1：打开考生文件夹中的本题工程文件sjl3.vbp,在代码编

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

n=Len(Textl.Text)b=Asc(Mid(s»i,1))SelectCasebFori=0To2⑴步骤

2：按要求将文件保存至考生文件夹中。考点链接数组定义与操作、常用内部函

数、多分支结构。

知识点解析：暂无解析

9、在考生文件夹下有一个工程文件sjl3.vbp0程序的功能是：在运行时，如果选

中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做

相应的设置，如图2-140所示。窗体上的控件已经画出，但没有给出主要程序内

容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部

分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选

框，并单击''确定”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成

・•••I

V

cM厂下.131

<IMPtHI

绩。最后把修改后的文，‘牛按原文件名存盘。图2/的

标准答案：步骤1：打开考生文件下的本题工程文件sjl3.vbpo步骤2：打开代码

编辑窗口，编写“确定"按钮的Click事件过程，代码如下。参考代码：PrivateSub

Commandl_Click()IfOpl.ValueThenTextl.FontName=Opl.CaptionElself

Op2.ValueThenTextl.FontName=Op2.CaptiOnEndlfIfCh1.Value=lThen

Text).FontUndcrline=TrueElseTextl.FontUndcrline=FaIseEndlfIfCh2.Value=l

ThenTextl.FontItalic=TrtleElseTextl.FontItalic=FalseEndlfEndSub步骤3：按要

求将文件保存至考生文件夹中。步骤4：按＜F5＞键运行程序，选中一个单选按

钮和至少一个复选框，并单击“确定“按钮，最后单击窗体右上角的关闭按钮结束程

序。

知识点解析：暂无解析

1。、在名称为卜orml的窗体上画两个图片框，名称分别为Pl、P2,高度均为

1900,宽度均为1700,通过属性窗口把图片文件picl.bmp放入P1中，把图片文

件pic2.jpg放入P2中：再画一个命令按钮，名称为C1,标题为“交换图片”（如图

2-208所示）。编写适当的事件过程，使得在运行时，如果单击”交换图片…按钮，则

在P1中显示pic2.jpg,在P2中显示picl.bmp。程序中不得使用任何变量，也不

能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为

sit3.vbp,窗体文件名为sjt3.fnr）o网zcos

标准答案：步骤1：新建一个‘标准EXE”工程，在窗体Forml中如表3-122画出所

•3-122

■

Namen

hcturc

MHK1

IWO

Height]700

_Namen

PictureRbmp

ran*2

Wwkh1900

幄小1700

MmeCl

列控件并设置其相关属性。Optra小阳片步骤2：打开代码编辑

窗口，编写命令按钮的Click事件过程：参考代码：PrivateSubCI_Click()

Picl.Picture=LoadPicture(App.Path+_"\pic2.bmp”)

Pic2.Picture=LoadPicture(App.Path+_**\picl.bmp")EndSub步骤3：按要求将

文件保存至考生文件夹中。

知识点解析：暂无解析

国家二级VB机试(简单应用题)模拟试

卷第2套

一、简单应用题(本题共10题，每题1.0分，共10

分。)

1、(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件名为

vbsj3.frmo在窗体上有一个命令按钮，其名称为cmdAdd,标题为“添加”；有一

个文本框，名称为txtSentense,初始内容为空白；有一个列表框，名称为

IstWordo程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之

间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把

每个单词作为一个项目添加到列表框中，如图3—64所示。该程序不完整，请把它

补充完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能

正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

程序源码：PrivateSubcmdAdd_click()DimSIAsString,S2AsStringDimIIAs

Integer'Sl=?11=1Do'DoWhileMid(Sl,II,l)O?AndIl<=Len(Sl)

S2=S2&Mid(Sl,II,1)11=11+1LoopUstword.Additem??S2=?11=11+1LoopWhile

I1V二Len(Sl)(2)在考生文件夹下有一个工程文件vbsj4.vbp,请在窗体上画三个

文本框，其名称分别为Txtl、Txt2和。txtResult,文本框内容分别设置为“等级考

试”、“全国计算机”和空白。然后画两个单选按钮，其名称分别为optChange和

optLink,标题分别为“交换”和“连接”，如图3—65所示。编写适当的事件程序，要

求在程序运行时，先单击“交换''单选按钮，使Txll文本框中内容与Txt2文本框中

内容进行交换，并使“交换”单选按钮消失；然后单击“连接”单选按钮，则把交换后

的Txtl和Txt2的内容以Txtl在前,Txt2在后的顺序连接起来，并在txtResuh文

本框中显示连接后的内容。存盘时，工程文件名为vbsj4.vbp,窗体文件名为

r

vbsj4.frm。图？・64图工65注

意：不得修改已经给出的程序。在结束程序运行之前，必须先单击"交换''单选按

钮，后单击“连接”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否

则可能无成绩。程序源码：PrivateSubForm_Unload(CancelAsInteger)

Open"out4.txt"ForOutputAs#lPrint#1,Txtl.Text,Txt2.Text,

_txtResult.TextClose#lEndSub

标准答案：第1小题步骤1;打开考生文件夹下的工程文件vbsj3.vbpo步骤2：

打开代码编辑窗口，去淖程序中的注释符将问号"?”改为正确的内容。参考代

码：Sl=txtSentense.TextDoWhileMid(Sl,II,1)<>H"AndII_<=Len(Sl)

1stWord.AddltemS2s2="”步骤3：按要求将文件保存至考生文拜夹中。第2小

题步骤I：新建一个“标准EXE”工程，按表4—40在窗体中画出控件并设置其相

表44)

对象属性值

SameTxil

文本和1

Text等级考试

NameTxi2

文人框2

lext全国计旗机

NametxtRcsult

-3

lext

NameoptChange

单选按钮1

Cupturn交换

NameoptLink

处乩按钮2

Cdpiion连接

关属性。-------------步骤2：在代码编辑窗

口，编写3个按钮的单击事件过程。参考代码：PrivateSubopiChange_Click()

DimtempAsStringtemp=Txtl.TextTxtl.Text=Txt2.TextTxt2.Text=temp

optChange.Visible=FalseEndSubPrivateSuboptLink_Click()

IxtResult.Text=Txtl.Text&Txt2.TextEndSub步骤3：按要求将文件保存至考生

文件夹中。

知识点解析：第1小题：程序设计思路：从文本框的第1个字符开始依次检查其后

面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添

加到列表框中。在D。循环(指内循环，循环条件为：取出的字符为非空格字符且

取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(Sl,II,I)<>n

"AndIl<=Len(Sl),其中Sl=txtSentense.Text,将Mid函数从文本框中取出的非

空格字符，逐个连接成一个单词，语句为：S2=S2&Mid(Sl,II,1),每执行一次

循环体取字符的起始位置加1,即11=11+1。当遇到空格时结束循环，将得到的单

词(即变量S2的值)用Additem方法添加到列表框中，并且清空变量s2,将取宁符

的起始位置加1。之后继续执行内循环以得到下一个单词，直到取字符的起始位置

(即变量II的值)超过文本框的总字符数为止，外循环的条件为：UV=Len(Sl)0第

2小题：根据题目要求，设计本题程序的思路：在叩［Change单选按钮的Click事

件应实现：将Txtl和Txt2文本框中的内容互换，可以通过一个中间变量来交换两

个文木框中的内容，然后将optChange的Enable属性设置为Falseo在oplLink单选

按钮的Click事件应实现：将两个文本框中的内容连接进来，这罩我们可以采用连

接字符符号来连接两个义本框的Text属性。

2、（1）在考生文件夹下有一个工程文件sjt3.vbpo程序的功能是：1）程序运行时，

文件列表框显示当前文件夹中的所有扩展名为jpg的文件。2）双击文件列表框中某

个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息（包括路

图3y2

3）“下一张”命令按钮的功

能：选中并显示上次选中文件的下一个图片文件（如果文件列表框中没有被选中的

图片文件或上次选中的是最后一个文件名，则从第1个图片文件始）。在当前程序

所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的

窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去抻，把

“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经

存在的控件和程序，最后将程序按原文件名存盘。（2）在考生文件夹下有一个工程

文件sjt4.vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击

♦・・・••»・・・▲、・・・・・・、・•

图373

若未找到查找内容，查找结

束；若找到查找内容，被找到的内容在文本框中以反相显示（即呈选中状态），每找

到一次都给出提示，并在左下角文本框中显示累计的次数，如图3—44所示。

图3*若单击提示对话框的“是”

按钮，则继续向后查找；若单击“否”按钮，则终止杳找。在给出的窗体文件中已经

有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把"?”改为正确的

内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和

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

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

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

容。参考代码：IfFilel.Listindex=_1OrFilel.Listindex=File1.ListCount—I

ThenFilel.Listindex=Filel.Listindex+1Label1.Caption=App.Path+"\"+

Filel.FileNameFilel.Pallem="*.jpq”步骤2：按要求将文件保存至考生文件夹

中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件

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

容。参考代码:Textl.SelStart=pos—1Textl.SelLength=Len(fstr)times=times

+1pos=InStr(pos,ostr,fstr)步窥2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

3、(1)在考生文件夹下有一个工程文件sjt3.vbpo程序运行时，单击窗体则显示如

图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不

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

\一_____----------1(2)在考生文件夹下有一个工程文件

sjt4.vbp,窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横

向或纵向运行(通过选择单选按钮米决定)，碰到矩形的边时，则向其相反方向运

动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运

动方向。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符把

程序中的？改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将

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

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

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

Form_Click()Fori=lTo5,输入5行Forj=lTo6—i，循环实现输入空格，每行依次

减少一个空格Print"：NextjForj=iTo2*i—1图像每行*的个数Print”*"：Nextj

PrintNextiFori=1To4Forj=1Toi+1'同问题1Print'"；NextjForj=1To(9~

2*i)，同问题2Print"*"；NextjPrintNextiEndSub程序结束步骤3：调试并运行程

序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开：木题工程文

件。步骤2：打开代码编辑窗U,去掉程序中的注释符“巾，将问号改为正确的内

容。参考答案DimdAsIntegerPrivateSubCommandlClick()Timerl.Enabled=

True'当单击"开始"按钮时,Timer生效EndSubPrivateSubCommand!Click()

Timerl.Enabled=False'当单击"停止"按钮时，Timer失效EndSubPrivateSub

Form_Load（）d=1EndSubPrivateSubTimerlTimer（）IfOption!Then'判断Oplion】

是否版单击Shape2.Top=Shape2.Top+d*50'实现圆垂直移动IfShape2.Top<

=Shape1.ToporShape2.Top+Shape2.Width>=Shape1.Top+Shape1.Height

Then，判断Shape2与Shapel的位置d=-d'当圃移出Shape）时，改变移动方向

EndIfElselfOption?ThenShape2.Left=Sh叩e2.Left+d*50'实现水平移动If

Shape2.Left<=ShapeI.LeftOrSh叩e2.Left+Shape2.Width>=Shape1.Left

+Shapel.WidihThend=-d'当圃移出Shapel时，则改变移动方向EndIfEndIf

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

知识点解析：暂无解析

4、在考生文件夹下，存在一个数据库文件“samp2.accdb”，里面已经设计好三个

关联表对象“tStud"、“Course"、"Score”和一个临时表对象“tTemp”。试按以下要求

完成设计工（1）创建一个查询，按所属院系统计学生的平均年龄，字段显示标题为

“院系”和“平均年龄”，所建查询命名为“qTl”。要求：平均年龄四舍五人取整处

理。（2）创建一个查询，查找上半年入学的学生，井显示“姓名”、“性别”、“课程

名''和"成绩”等字段内容，所建查询命名为“qT2”。（3）创建一个查询，查找没有选

课的同学，并显示其“学号”和“姓名”两个字段内容，所建查询命名为“qT3”。（4）创

建删除查询，将表对象“tTemp”中年龄值高于平均年龄（不含平均年龄）的学生记录

删除，所建查询命名为“qT40

标准答案：（1）【操作步骤】步骤1:单击“创建”选项卡下“查询”组中的喳询设计”

按钮，在弹出的“显示表”对话框中双击添加表“tStud”，然后单击“关闭”按钮，关闭

“显示表”对话框。步骤2：在“字段”行中分别输入“院系：所属院系”和“平均年

龄：Round（Avg（［年龄］）,0）“。步骤3：单击“查询工具”的“设计”选项卡下“显示/

隐藏”组中的“汇总”按钮，然后在“平均年龄：Round（Avg（［年龄］）,0）”字段的“总计”

行的下拉列表中选择“Expression”命令，如图4.34所示。

图4.34步骤张单击陕速访问工具栏

中的“保存”按钮，另存为“qTl”。（2）【操作步骤】步骤1：单击“创建”选项卡下

“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中版击表“Stud”、

'Course”和“tScore”，然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：选中

表“tStud”中的“学号”字段,然后拖动鼠标指针到表“tScore”中的“学号”字段,放开

鼠标左键，选中表々Course”中的“课程号”字段，然后拖动鼠标指针到表“Score”中

的“课程号”字段，放开鼠标左键。步骤3：分别双击添加“姓名”、“性别”、“课程

名”、“成绩”和“入校时间”字段，在其下一字段行中输入“Month（［入校时间］）”，取

消“Month（［入校时间］）”字段显示行复选框的勾选，在“Month（［入校时间］）”字段的

“条件'行中输入">=1AndV=6”,如图4.35所示。

图4・35步骤张单击快速访问工

具栏中的“保存”按钮，另存为“qT2L（3）【操作步骤】步骤1：单击“创建”选项卡

下查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中双击添加表“tStud”，

然后单击“关闭”按钮，关闭“显示表”对话框。步骤2：双击添加“学号”和“姓名”字

段，在“学号”的“条件”行中输入“Notln（SELECTtSlud.学号FROMtStudINNER

JOINtScoreON（Stud.学号=tScore.学号GROUPBYtStud.学号）”，如图4.36

所示。图4.36步骤3：单击

快速访问工具栏中的“保存”按钮，另存为“qT3”。（4）【操作步骤】步骤1：单击

“创建”选项卡“查询”组中的“查询设计”按钮，在弹山的“显示表”对话框中双击添加

表Fcmp”，然后单击“关闭”按钮，关闭、'显示表”对话框。步骤2：双击添加、洋

龄”字段。步骤3：单击“查询工具”的“设计”选项卡下“查询类型”组中的“删除”按

钮，在“年龄”字段的“条件”行中输入“〉（selectavg（年龄）from[tTemp]）”，如图4.37

所示。图4.37步骤击单击“查询工

具”的“设计”选项卡下“结果”组中的“运行”按钮，在弹出的“MicrosoftAccess”对话

框中单击“是”按钮。步骤5：单击快速访问工具栏中的“保存”按钮，另存为

“qT4”，关闭“设计视图”。

知识点解析：暂无解析

5、（I）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示

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

0For...五

*

***

*****

*******

*********

*******

*****

***