2014年3月ACCESS预测题库操作题(60分)

第1套题

一、 基本操作题

在考生文件夹下有一个数据库文件\。在数据库文件中已经建立了一个表对象\学生基本情况\。根据以下操作要 求，完成各种操作：

(1)将\学生基本情况\表名称改为\。

(2)设置\身份ID\字段为主键；并设置\身份ID\字段的相应属性，使该字段在数据表视图中的显示标题为\身份证\。 (3)将\姓名\字段设置为\有重复索引\。

(4)在\家长身份证号\和\语文\两字段间增加一个字段，名称为\电话\，类型为文本型，大小为12。

(5)将新增\电话\字段的输入掩码设置为\－********\的形式。其中，\－\部分自动输出，后八位为0到9的数字显示。

注意：\电话\字段, 在\字段属性\下的\输入掩码\行输入\－\

(6)在数据表视图中将隐藏的\编号\字段重新显示出来。

二：简单应用题

考生文件夹下存在一个数据库文件\里面已经设计好表对象\、\和\，试按以下要求完成设计： （1）创建一个查询，查找党员记录，并显示\姓名\、\性别\和\入校时间\三列信息，所建查询命名为\。

（2）创建一个查询，当运行该查询时，屏幕上显示提示信息：\请输入要比较的分数：\，输入要比较的分数后，该查询 查找学生选课成绩的平均分大于输入值的学生信息，并显示\学号\和\平均分\两列信息，所建查询命名为\。

（3）创建一个交叉表查询，统计并显示各班每门课程的平均成绩，统计显示结果如下图所示（要求：直接用查询设计视图建立交叉表查询，不允许用其他查询做数据源），所建查询命名为\。

（4）创建一个查询，运行该查询后生成一个新表，表名为\表结构包括\学号\、\姓名\、\性别\、\课程名\和\成绩\等五个字段，表内容为90分以上（包括90分）或不及格的所有学生记录，并按课程名降序排序，所建查询命名为\。要求创建此查询后，运行该查询，并查看运行结果。 三：综合应用题

考生文件夹下有一个数据库文件\，其中存在设计好的表对象\和查询对象\，同时还设计出以\为数据源的报表对象\。请在此基础上按照以下要求补充报表设计：

(1)在报表的报表页眉节区添加一个标签控件，名称为\，标题为\年入学学生信息表\。

(2)在报表的主体节区添加一个文本框控件，显示\姓名\字段值。该控件放置在距上边0.1厘米、距左边3.2厘米的位置，并命名为\。 (3)在报表的页面页脚节区添加一个计算控件，显示系统年月，显示格式为：××××年××月（注意，不允许使用格式属性）。计算控件

放置在距上边0.3厘米、距左边10.5厘米的位置，并命名为\。 注意：\控件来源\行输入\年\月\

(4)按\编号\字段的前4位分组统计每组记录的平均年龄，并将统计结果显示在组页脚节区。计算控件命名为\。

注意：选择\排序与分组\，弹出\排序与分组\对话框，在\字段/

表达式\列输入“=left([编号]，4)”。

注意：不能修改数据库中的表对象\和查询对象\，同时也不允许修改报表对象\中已有的控件和属性。 第02套上机题 一、基本操作

在考生文件夹下有数据库文件\和Excel文件\，\中已建立表对象\和\，请按以下要求，完成表的各种操作：

(1)将考生文件夹下的Excel文件\导入到\表中。

(2)将\表中1975年到1980年之间(包括1975年和1980年)出生的学生记录删除。

注意：\出生日期\字段，在\条件\行输入\，单击菜单栏【查询】|【删除查询】，单击工具栏中\运行\按钮

(3)将\表中\性别\字段的默认值设置为\男\。

(4)将\表拆分为两个新表，表名分别为\和\。其中\表结构为：学号，姓名，性别，出生日期，院系，籍贯，主键为学号；\表结构为：院系，院长，院办电话，主键为\院系\。

要求：保留\表。

(5)建立\和\两表之间的关系。

二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的一个表对象\。请按以下要求完成设计： (1)创建一个查询，计算并输出教师最大年龄与最小年龄的差值，显示标题为\，将查询命名为\。 注意：计算字段的输入，在字段行输入：m_age:Max([tTeacher]![年龄]-min([tTeacher]![年龄])

(2)创建一个查询，查找并显示具有研究生学历的教师的\编号\、\姓名\、\性别\和\系别\个字段内容，将查询命名为\。

(3)创建一个查询，查找并显示年龄小于等于38、职称为副教授或教授的教师的\编号\、\姓名\、\年龄\、\学历\和\职称\个字段，将查询命名为\。

(4)创建一个查询，查找并统计在职教师按照职称进行分类的平均年龄，然后显示出标题为\职称\和\平均年龄\的两个字段内容，将查询命名为\。

三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\和\及查询对象\，同时还设计出以\为数据源的报表对象\。请在此基础上按照以下要求补充报表设计：

(1)在报表的报表页眉节区添加一个标签控件，名称为\，标题为\职工基本信息表\。

(2)在\性别\字段标题对应的报表主体节区距上边0.1厘米、距左侧5.2厘米的位置添加一个文本框，用于显示\性别\字段值，并命名为\。 (3)设置报表主体节区内文本框\的控件来源为计算控件。要求该控件可以根据报表数据源里的\所属部门\字段值，从非数据源表对象\中检索出对应的部门名称并显示输出。(提示：考虑DLookup函数的使用。)

注意：\控件来源\行输入＝DLookUp(\名称\所属部门 =部门编号\

注意：不能修改数据库中的表对象\和\及查询对象\；不能修改报表对象\中未涉及的控件和属性。 第03套上机题 一、基本操作

(1)在考生文件夹下的\数据库中建立表\，表结构如下：

字段名称 编号 姓名 性别 年龄 工作时间 学历 职称 邮箱密码 联系电话 在职否 数据类型 文本 文本 文本 数字 日期/时间 文本 文本 文本 文本 是/否 字段大小 5 4 1 整型 短日期 5 5 6 8 格式 是/否 (2)根据\表的结构，判断并设置主键。

(3)设置\工作时间\字段的有效性规则为：只能输入上一年度五月一日以前(含)的日期(规定：本年度年号必须用函数获取)。 注意：\工作时间\字段，在\有效性规则\行输入<=DateSerial(Year(Date())-1,5,1)

(4)将\在职否\字段的默认值设置为真值，设置\邮箱密码\字段的输入掩码为将输入的密码显示为6位星号(密码)，设置\联系电话\字段的输入掩码，要求前4位为\，后8位为数字。

(5)将\性别\字段值的输入设置为\男\、\女\列表选择。 (6)在\表中输入以下两条记录：

二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的两个表对象\和\。请按以下要求完成设计： (1)创建一个查询，查找并显示没有运动爱好的职工的\编号\、\姓名\、\性别\、\年龄\和\职务\个字段内容，将查询命名为\。 (2)建立\和\两表之间的一对多关系，并实施参照完整性。

(3)创建一个查询，查找并显示聘期超过5年(使用函数)的开发部职工的\编号\、\姓名\、\职务\和\聘用时间\个字段内容，将查询命名为\。

注意：添加一新字段Year(Date())-Year([聘用时间])，在条件行中输入>5

(4)创建一个查询，检索职务为经理的职工的\编号\和\姓名\信息，然后将两列信息合二为一输出(比如，编号为\、姓名为\吴大伟\的数据输出形式为\吴大伟\，并命名字段标题为\管理人员\，将查询命名为\。

注意：添加新字段 管理人员:[编号]+[姓名] 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的窗体对象\及宏对象\。请在此基础上按照以下要求补充窗体设计：

(1)在窗体的窗体页眉节区添加一个标签控件，名称为\，标题为\窗体测试样例\。

(2)在窗体主体节区添加两个复选框选控件，复选框选项按钮分别命名为\和\，对应的复选框标签显示内容分别为\类型a\和\类型b\，标签名称分别为\和\。

(3)分别设置复选框选项按钮opt1和opt2的\默认值\属性为假值。

(4)在窗体页脚节区添加一个命令按钮，命名为\，按钮标题为\测试\。 (5)设置命令按钮bTest的单击事件属性为给定的宏对象m1。 (6)将窗体标题设置为\测试窗体\。

注意：不能修改窗体对象fTest中未涉及的属性；不能修改宏对象m1。 第4套上机题 一、基本操作

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\。请按照以下要求，完成对表的修改： (1)设置数据表显示的字体大小为14、行高为18。

(2)设置\简历\字段的设计说明为\自上大学起的简历信息\。 (3)将\年龄\字段的数据类型改为\整型\字段大小的数字型。

(4)将学号为\学生的照片信息改成考生文件夹下的\图像文件。 (5)将隐藏的\党员否\字段重新显示出来。 (6)完成上述操作后，将\备注\字段删除。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的3个关联表对象\、\和\及表对象\。请按以下要求完成设计：

(1)创建一个查询，查找并显示学生的\姓名\、\课程名\和\成绩\个字段内容，将查询命名为\。

(2)创建一个查询，查找并显示有摄影爱好的学生的\学号\、\姓名\、\性别\、\年龄\和\入校时间\个字段内容，将查询命名为\。 (3)创建一个查询，查找学生的成绩信息，并显示\学号\和\平均成绩\两列内容。其中\平均成绩\一列数据由统计计算得到，将查询命名为\。

(4)创建一个查询，将\表中女学生的信息追加到\表对应的字段中，将查询命名为\。 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\和宏对象\，同时还有以\为数据源的窗体对象\。请在此基础上按照以下要求补充窗体设计：

(1)在窗体的窗体页眉节区添加一个标签控件，名称为\，初始化标题显示为\雇员基本信息\，字体名称为\黑体\，字号大小为18。 (2)将命令按钮bList的标题设置为\显示雇员情况\。

(3)单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补充完整。 (4)取消窗体的水平滚动条和垂直滚动条；取消窗体的最大化和最小化按钮。

(5)在\窗体页眉\中距左边0.5厘米，上边0.3厘米处添加一个标签控件，控件名称为\，标题为\系统日期\。窗体加载时，将添加标签标题设置为系统当前日期。窗体\加载\事件已提供，请补充完整。

注意：不能修改窗体对象\中未涉及的控件和属性；不能修改表对象\和宏对象\。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 '*****Add1***** DoCmd.RunMacro \'*****Add1***** 第5套上机题

一、基本操作

在考生文件夹下的\数据库文件中已建立表对象\，同时在考生文件夹下还有\数据库文件。请按以下操作要求，完成表对象\的编辑和表对象\的导入：

(1)设置\游客ID\字段为主键。 (2)设置\姓名\字段为\必填\字段。

(3)设置\年龄\字段的\有效性规则\为：大于等于10且小于等于60。

(4)设置\年龄\字段的\有效性文本\为：\输入的年龄应在10岁到60岁之间，请重新输入。\

(5)在编辑完的表中输入如下一条新记录，其中\照片\字段数据设置为考生文件夹下的\照片1.bmp\图像文件。

(6)将\数据库文件中的表对象\导入到\数据库文件内，表名不变。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的两个表对象\和\及一个宏对象\。请按以下要求完成设计：

(1)创建一个查询，查找并显示教师的\编号\、\姓名\、\性别\、\年龄\和\职称\个字段内容，将查询命名为\。 (2)创建一个查询，查找并显示没有在职的教师的\编号\、\姓名\和\联系电话\个字段内容，将查询命名为\。

(3)创建一个查询，将\表中年龄小于等于45的党员教授或年龄小于等于35的党员副教授记录追加到\表的相应字段中，将查询命名为\。

(4)创建一个窗体，命名为\。将窗体\标题\属性设为\测试窗体\；在窗体的主体节区添加一个命令按钮，命名为\，标题为\测试\；设置该命令按钮的单击事件属性为给定的宏对象\。 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\和\，同时还有以\和\为数据源的报表对象\。请在此基础上按照以下要求补充报表设计：

(1)在报表的报表页眉节区添加一个标签控件，名称为\，标题显示为\团队旅游信息表，字体为\宋体\，字号为22，字体粗细为\加粗\，倾斜字体为\是\。

(2)在\导游姓名\字段标题对应的报表主体区添加一个控件，显示出\导游姓名\字段值，并命名为\。

(3)在报表的报表页脚区添加一个计算控件，要求依据\团队ID\来计算并显示团队的个数。计算控件放置在\团队数：\标签的右侧，计算控件命名为\。

在\控件来源\行输入＝Count(团队ID) (4)将报表标题设置为\团队旅游信息表\。

注意：不能改动数据库文件中的表对象\和\；不能修改报表对象\中已有的控件和属性。 第6套上机题 一、基本操作

(1)在考生文件夹下的\数据库文件中建立表\，表结构如下： 字段名称 编号 教材名称 数据类型 文本 文本 字段大小 8 30 格式

单价 库存数量 入库日期 需要重印否 简介 数字 数字 日期/时间 是/否 备注 单精度型 整型 小数位数2位 短日期 是/否 (2)判断并设置\表的主键。

(3)设置\入库日期\字段的默认值为系统当前日期的前一天的日期。 \入库日期\字段在\默认值\行输入Date()-1。 (4)在\表中输入以下2条记录：

注：\单价\为2位小数显示。

(5)设置\编号\字段的输入掩码为只能输入8位数字或字母形式。 \编号\字段,在\输入掩码\行输入\ (6)在数据表视图中将\简介\字段隐藏起来。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\、\和\，请按以下要求完成设计： (1)创建一个查询，查找并显示\姓名\、\项目名称\和\承担工作\个字段的内容，将查询命名为\。

(2)创建一个查询，查找并显示项目经费在10000元以下(包括10000元)的\项目名称\和\项目来源\两个字段的内容，将查询命名为\。 (3)创建一个查询，设计一个名为\单位奖励\的计算字段，计算公式为：单位奖励＝经费*10%，并显示\表的所有字段内容和\单位奖励\字段，将查询命名为\。

添加新字段 单位奖励=[经费]*0.1

(4)创建一个查询，将所有记录的\经费\字段值增加2000元，将查询命名为\。

三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\、\和\，查询对象\，窗体对象\，报表对象\和宏对象\。请在此基础上按以下要求补充设计：

(1)在报表的报表页眉节区内添加一个标签控件，其名称为\，标题显示为\读者借阅情况浏览\，字体名称为\黑体\，字体大小为22，同时将其安排在距上边0.5厘米、距左侧2厘米的位置上。

(2)设计报表\的主体节区内\文本框控件依据报表记录源的\性别\字段值来显示信息。 (3)将宏对象\改名为\。

(4)在窗体对象\的窗体页脚节区内添加一个命令按钮，命名为\，按钮标题为\显示借书信息\，其单击事件属性设置为宏对象\。

(5)窗体加载时设置窗体标题属性为系统当前日期。窗体\加载\事件的代码已提供，请补充完整。

注意：不允许修改窗体对象\中未涉及的控件和属性；不允许修改表对象\、\和\及查询对象\；不允许修改报表对象\的控件和属性。

程序代码只能在\与\之间的空行内补充一行语句，完成设计，不允许增删和修改其它位置已存在的语句。 '*****Add***** Form.Caption = Date '*****Add***** 第7套上机题 一、基本操作

在考生文件夹下的\数据库文件中已建立好表对象\和\、宏对象\和窗体\。请按以下要求，完成各种操作：

(1)分析并设置表\的主键。

(2)将学生\入校时间\字段的默认值设置为下一年度的一月一日(规定：本年度的年号必须用函数获取)。 入校时间\字段行，在\字段属性\的\默认值\行输入 DateSerial(Year(Date())＋1,1,1) (3)冻结表\中的\姓名\字段列。 (4)将窗体\的\标题\属性设置为\测试\。

(5)将窗体\中名为\的命令按钮的宽度设置为2厘米、与命令按钮\左边对齐。 (6)将宏\重命名保存为自动执行。AutoExec 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\、\和\，请按以下要求完成设计： (1)创建一个查询，查找收藏品中CD盘最高价格和最低价格信息并输出，标题显示为\和\，将查询命名为\。

(2)创建一个查询，查找并显示购买\价格\大于100元并且\购买日期\在2001年以后(含2001年)的\、\主题名称\、\价格\、\购买日期\和\介绍\个字段的内容，将查询命名为\。

(3)创建一个查询，通过输入CD类型名称，查询并显示\、\主题名称\、\价格\、\购买日期\和\介绍\个字段的内容，当运行该查询时，应显示参数提示信息\请输入CD类型名称：\，将查询命名为\。

(4)创建一个查询，对\表进行调整，将\类型ID\等于\的记录中的\类型介绍\字段更改为\古典音乐\，将查询命名为\。 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\、窗体对象\、报表对象\和宏对象\。请在此基础上按照以下要求补充设计：

(1)将表对象\中\聘用时间\字段的格式调整为\长日期\显示、\性别\字段的有效性文本设置为\只能输入男和女\。

(2)设置报表\按照\性别\字段降序(先女后男)排列输出；将报表页面页脚区内名为\的文本框控件设置为\页码/总页数\形式的页码显示（如1/35、2/35、?）。\控件来源\行输入 =[Page] & \

(3)将\窗体上名为\的标签上移到距\命令按钮1厘米的位置(即标签的下边界距命令按钮的上边界1厘米)。同时，将窗体按钮\的单击事件属性设置为宏\。

注意：不能修改数据库中的宏对象\；不能修改窗体对象\和报表对象\中未涉及的控件和属性；不能修改表对象\中未涉及的字段和属性。

第8套上机题 一、基本操作

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\。请按照以下要求，完成对表的修改： (1)设置数据表显示的字体大小为14、行高为18。

(2)设置\简历\字段的设计说明为\自上大学起的简历信息\。 (3)设置\入校时间\字段的格式为中日期。

注意：要求月日为两位显示、年4位显示，如\月15日2005\。 \入校时间\字段,在\格式\栏中输入 mm\\月dd\\日yyyy

(4)将学号为\学生的\照片\字段数据设置为考生文件夹下的\图像文件。 (5)将冻结的\姓名\字段解冻。

(6)完成上述操作后，将\备注\字段删除。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的3个关联表对象\、\、\和一个空表\，请按以下要求完成设计：

(1)创建一个查询，查找并显示\姓名\、\政治面貌\、\课程名\和\成绩\个字段的内容，将查询命名为\。

(2)创建一个查询，计算每名学生所选课程的学分总和，并依次显示\姓名\和\学分\，其中\学分\为计算出的学分总和，将查询命名为\。 (3)创建一个查询，查找年龄小于平均年龄的学生，并显示其\姓名\，将查询命名为\。 在\年龄\字段\条件\行输入 <(SELECT AVG([年龄]) from [tStudent])

(4)创建一个查询，将所有学生的\班级编号\、\学号\、\课程名\和\成绩\等值填入\表相应字段中，其中\班级编号\值是\表中\学号\字段的前6位，将查询命名为\。 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\和\，同时还有窗体对象\和\。请在此基础上按照以下要求补充\窗体的设计：

(1)将窗体中名称为\的标签控件上的文字颜色改为红色(红色代码为255)、字体粗细改为\加粗\。 (2)将窗体标题设置为\修改用户信息\。

(3)将窗体边框改为\对话框边框\样式，取消窗体中的水平和垂直滚动条、记录选定器、浏览按钮和分隔线。

(4)将窗体中\退出\命令按钮(名称为\上的文字颜色改为深红(深红代码为128)、字体粗细改为\加粗\，并给文字加上下划线。 (5)在窗体中还有\修改\和\保存\两个命令按钮，名称分别为\和\，其中\保存\命令按钮在初始状态为不可用，当单击\修改\按钮后，应使\保存\按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

******* 请在下面添加一条语句 ***** CmdSave.Enabled = True ***********************

要求：修改后运行该窗体，并查看修改结果。

注意：不能修改窗体对象\和\中未涉及的控件、属性；不能修改表对象\和\。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 第9套上机题 一、基本操作

在考生文件夹下，已有一个数据库文件\，其中已经建立两个表对象\和\，宏对象\和查询对象\。请按以下操作要求，完成各种操作：

(1)设置\表中\成绩\字段的显示宽度为20。

(2)设置\表的\学号\字段为主键，\性别\的默认值属性为\男\。

(3)在\表结构最后一行增加一个字段，字段名为\家庭住址\，字段类型为\文本\，字段大小为40；删除\像片\字段。 (4)删除\查询中的\毕业学校\列，并将查询结果按\姓名\、\课程名\和\成绩\顺序显示。 (5)将宏\重命名，保存为自动执行的宏。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的3个关联表对象\、\、\和一个空表\。此外，还提供窗体\和宏\，请按以下要求完成设计：

(1)创建一个查询，查找女学生的\姓名\、\课程名\和\成绩\个字段的内容，将查询命名为\。

(2)创建追加查询，将表对象\中有书法爱好学生的\学号\、\姓名\和\入校年\列内容追加到目标表\的对应字段内，将查询命名为\。(规定：\入校年\列由\入校时间\字段计算得到，显示为4位数字形式。)

创建计算字段：输入 入校年:Year([入校时间]) ，\追加到\行输入 入校年 (3)补充窗体\上\按钮(名为\的单击事件代码，实现以下功能：

打开窗体，在文本框\中输入一段文字，然后单击窗体\上的\按钮(名为\，程序将文本框内容作为窗体中标签\的标题显示。

'*****Add*****

bTitle.Caption ＝ tText '*****Add*****

注意：不能修改窗体对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计。 (4)设置窗体\上\按钮(名为\的单击事件为的宏对象\。 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\、\和\，查询对象\，窗体对象\，报表对象\和宏对象\。请在此基础上按以下要求补充设计：

(1)在报表\的报表页眉节区内添加一个标签控件，其名称为\，标题显示为\读者借阅情况浏览\，字体名称为\黑体\，字体大小为22，并将其安排在距上边0.5厘米、距左侧2厘米的位置。

(2)设计报表\的主体节区为\文本框控件，设置数据来源显示性别信息，并要求按\借书日期\字段升序显示，\借书日期\的显示格式为\长日期\形式。

(3)将宏对象\改名为\。

(4)在窗体对象\的窗体页脚节区内添加一个命令按钮，命名为\，按钮标题为\显示借书信息\，其单击事件属性设置为宏对象\。

(5)窗体加载时设置窗体标题属性为系统当前日期。窗体\加载\事件代码已提供，请补充完整。 '*****Add***** Form.Caption = Da '*****Add*****

注意：不允许修改窗体对象\中未涉及的控件和属性；不允许修改表对象\、\和\及查询对象\；不允许修改报表对象\的控件和属性。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不能增删和修改其它位置上已存在的语句。

第10套题

二、 基本操作题

考生文件夹下，\数据库文件中已建立3个关联表对象(名为\职工表\、\物品表\和\销售业绩表\和一个窗体对象 (名为\。请按以下要求，完成表和窗体的各种操作：

(1)分析表对象\销售业绩表\的字段构成，判断并设置其主键。 (2)将表对象\物品表\中的\生产厂家\字段重命名为\生产企业\。

(3)建立表对象\职工表\、\物品表\和\销售业绩表\的表间关系，并实施参照完整性。

(4)将考生文件夹下Excel文件Test.xls中的数据链接到当前数据库中，要求数据中的第一行作为字段名，链接表对象命名为\。 (5)将窗体fTest中名为\的控件设置为\特殊效果：阴影\显示。

(6)在窗体fTest中，以命令按钮\为基准，调整命令按钮\和\的大小和水平位置。要求：按钮\和\的大小尺寸与按钮

\相同，左边界与按钮\左对齐。

二：简单应用题

在考生文件夹下有一个数据库文件\，里面已经设计好两个表对象\和\。请按以下要求完成设计： (1)创建一个查询，查找产品最高储备与最低储备相差最小的数量并输出，标题显示为\，所建查询命名为\。 创建计算字段：字段行中输入 m_data: Min([最高储备]-[最低储备])

(2)创建一个查询，查找库存数量超过10000(不含10000)的产品，并显示\产品名称\和\库存数量\。所建查询命名为\。

（3）创建一个查询，按输入的产品代码查找其产品库存信息，并显示\产品代码\、\产品名称\和\库存数量\。当运行该查询时，应显示提示信息：\请输入产品代码：\。所建查询名为\。

(4)创建一个交叉表查询，统计并显示每种产品不同规格的平均单价，显示时行标题为产品名称，列标题为规格，计算字段为单价，所建查询名为\。

注意：交叉表查询不做各行小计。

三：综合应用题

在考生文件夹下有一个数据库文件\，里面已经设计了表对象\和窗体对象\。同时，给出窗体对象\上\计算\按钮(名为bt)的单击事件代码，试按以下要求完成设计。

(1)设置窗体对象\的标题为\信息输出\。

(2)将窗体对象\上名为\的标签以红色显示其标题。 (3)删除表对象\中的\照片\字段。 (4)按照以下窗体功能，补充事件代码设计。

'*****Add1****** If rs.RecordCount=0 Then '*****Add1****** '*****Add2****** tAge=sage '*****Add2******

窗体功能：打开窗体、单击\计算\按钮(名为bt)，事件过程使用ADO数据库技术计算出表对象\中党员职工的平均年龄，然后将结果显

示在窗体的文本框\内并写入外部文件中。

注意：不能修改数据库中表对象\未涉及的字段和数据；不允许修改窗体对象\中未涉及的控件和属性。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置上已存在的语句。

第11套上机题 一、基本操作

(1)有一个名为samp1.mdb数据库。修改职工表\，增加\姓名\字段。其数据类型为文本型，长度为6，并对应职工号添加其姓名，见下表。

(2)判断并设置表\的主键，同时将上面增加的\姓名\字段隐藏。 (3)设置表\的\基本工资\字段的默认值为1000。

(4)在当前数据库中，对表\做一个备份，并命名为表\。

(5)设置表\的有效性规则为：\津贴\字段的值必须小于等于\基本工资\字段值。

(6)将已有的\水费．xls\文件导入到samp1.mdb数据库中，并导入的表命名为\水费记录\。\水费记录\表结构如下表所示。

二、简单应用

考生文件夹下存在一个数据库文件\，里面已经设计好三个关联表对象\、\、\和一个空表\。试按以下要求完成设计：

（1）

创建一个查询，统计人数在5人以上（不含5）的院系人数，字段显示标题为\院系号\和\人数\，所建查询命名为\。

注意：要求按照学号来统计人数。

（2）创建一个查询，查找非\院系的选课学生信息，输出其\姓名\、\课程名\和\成绩\三个字段内容，所建查询命名为\。 （3）创建一个查询，查找还没有选课的学生的姓名，所建查询命名为\。 在\学号\字段的\条件\行中输入：Not In (select tScore.学号 from tScore)

（4）创建追加查询，将前5条记录的学生信息追加到表\的对应字段中，所建查询命名为\。

先设计，然后切换到SQL视图，将第二行的SQL语句修改为：SELECT TOP 5 tStud.学号, tStud.姓名, tStud.年龄。 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\产品\、\供应商\、查询对象\按供应商查询\和宏对象\打开产品表\、\运行查询\、\关闭窗口\。请按以下要求完成设计：

创建一个名为\的窗体，要求如下：

(1)对窗体进行如下设置：在距窗体左边1厘米、距上边0.6厘米处，依次水平放置3个命令按钮：\显示修改产品表\名为\、\查询\名为\和\退出\名为\，命令按钮的宽度均为2厘米，高度为1.5厘米，每个命令按钮相隔1厘米。

(2)设置窗体标题为\主菜单\。

(3)当单击\显示修改产品表\命令按钮时，运行宏\打开产品表\，即可浏览\产品\表。 (4)当单击\查询\命令按钮时，运行宏\运行查询\，即可启动查询\按供应商查询\。 (5)当单击\退出\命令按钮时，运行宏\关闭窗口\，关闭\窗体，返回到数据库窗口。 第12套上机题 一、基本操作

在考生文件夹下有一个数据库文件\，里边已建立两个表对象\和\；同时还存在一个Excel文件\。请按以下操作要求，完成表的编辑：

(1)将Excel文件\链接到\数据库文件中，链接表名称不变，要求：数据中的第一行作为字段名。

(2)将\表中隐藏的列显示出来。

(3)将\表中\政治面貌\字段的默认值属性设置为\团员\，并将该字段在数据表视图中的显示标题改为\政治面目\。 (4)设置\表的显示格式，使表的背景颜色为\深青色\、网格线为\白色\、文字字号为五号。 (5)建立\和\两表之间的关系。 二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好3个关联表对象(名为\、\、\、一个空表(名为\和一个窗体对象(名为\。请按以下要求完成设计：

(1)创建一个选择查询，查找没有绘画爱好学生的\学号\、\姓名\、\性别\和\年龄\个字段内容，所建查询命名为\。 在\简历\字段的\条件\行输入 not like \绘画*\

(2)创建一个选择查询，查找学生的\姓名\、\课程名\和\成绩\个字段内容，将查询命名为\。

(3)创建一个参数查询，查找学生的\学号\、\姓名\、\年龄\和\性别\个字段内容。其中设置\年龄\字段为参数，参数值要求引用窗体fTemp上控件tAge的值，将查询命名为\。

(4)创建追加查询，将表对象\中\学号\、\姓名\、\性别\和\年龄\个字段内容追加到目标表\的对应字段内，将查询命名为\。(规定：\姓名\字段的第一个字符为姓。要求将学生学号和学生的姓组合在一起，追加到目标表的\标识\字段中)。 创建计算字段：标识: [学号]+Left([姓名],1) 三、综合应用

考生文件夹下存在一个数据库文件\，里面已经设计好表对象\同时还设计出窗体对象\和子窗体对象\。请在此基础上按照以下要求补充\窗体的设计。 （1）将窗体标题改为\学生查询\。

（2）将窗体的边框样式改为\细边框\，取消窗体中水平和垂直滚动条、记录选定器、浏览按钮（导航按钮）和分割线；将子窗体边框样式改为\细边框\，取消子窗体中的记录选定器、浏览按钮（导航按钮）和分割线。

（3）在窗体中有两个标签控件，名称分别为\和\，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色（紫蓝色代码为8388608）。

（4）将窗体主体节中控件的Tab次序改为：

\→\→\→\→\→\→\简单查询\→\。 （5）按照以下窗体功能，补充事件代码设计。

在窗体中有一个组合框控件和一个文本框控件，名称分别为\和\；有两个标签控件，名称分别为\和\；

还有三个命令按钮，名称分别为\、\和\。在\组合框中选择某一项目后，\标签控件将显示出所选项目名加上\内容：\。在\文本框中输入具体项目值后，单击\命令按钮，如果\和\两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为\注意\，提示文字为\查询项目和查询内容不能为空！！！\，消息框中只有一个\确定\按钮；单击\命令按钮，在子窗体中显示\表中的全部记录；单击\命令按钮，将\和\两个控件中的值清空。

'************************* Add1 ************************ Dim aa

aa = cItem.Value

Ldetail.Caption = aa + \内容：\

'************************* Add1 ************************ '************************* Add2 ************************ fDetail.Form.RecordSource = \

'************************* Add2 ************************

'************************* Add3 ************************* MsgBox \查询项目和查询内容不能为空\注意\'************************* Add3 *************************

注意：不允许修改窗体对象\和子窗体对象\中未涉及的控件、属性和任何VBA代码；不允许修改表对象\。代码设计只允许补充一条语句、完成设计，不允许增删和修改其他位置已存在的语句。

第13套上机题 一、基本操作

在考生文件夹下的\数据库文件中已建立表对象\。请按以下操作要求，完成表的编辑： (1)判断并设置\表的主键。 (2)设置\性别\字段的默认值为\男\。 (3)删除表中1949年以前出生的雇员记录。 (4)删除\照片\字段。

(5)设置\雇员编号\字段的输入掩码为只能输入10位数字或空格形式。 (6)在编辑完的表中追加如下新记录：

二、简单应用

在考生文件夹下有一个数据库文件\，其中存在已经设计好的3个关联表对象\、\和\及一个临时表对象\。请按以下要求完成设计：

(1)创建一个查询，查找并显示照片信息为空的男同学的\学号\、\姓名\、\性别\和\年龄\个字段的内容，将查询命名为\。 (2)创建一个查询，查找并显示选课学生的\姓名\和\课程名\两个字段内容，将查询命名为\。

(3)创建一个查询，计算选课学生的平均分数，显示为\学号\和\平均分\两列信息，要求按照平均分降序排列，将查询命名为\。 (4)创建一个查询，将临时表对象\中女员工编号的第一个字符更改为\，所建查询命名为\。 在\编号\字段\更新到\行输入\编号]，2,5) 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\和查询对象\，同时还设计出以\为数据源的报表对象\。请在此基础上按照以下要求补充报表设计：

(1)报表的报表页眉节区添加一个标签控件，标题为\职员基本信息表\，并命名为\。 (2)将报表主体节区中名为\的文本框显示内容设置为\聘用时间\字段值。

(3)在报表的页面页脚区添加一个计算控件，以输出页码。计算控件放置在距上边0.25厘米、距左侧14厘米的位置，并命名为\。规定页码显示格式为\当前页/总页数\，如1/20、2/20、?、20/20等。

注意：不能修改数据库中的表对象\和查询对象\；不能修改报表对象\中未涉及的控件和属性。 第14套上机题 一、基本操作

在考生文件夹下有一个数据库文件\和一个图像文件\。在数据库文件中已经建立了一个表对象\。请按以下操作要求，完成各种操作：

(1)设置\字段为主键；并设置\字段的相应属性，使该字段在数据表视图中的显示名称为\学号\。

(2)删除\备注\字段。

(3)设置\入校时间\字段的有效性规则和有效性文本，具体规则是：输入日期必须在2000年1月1日之后(不包括2000年1月1日)；有效性文本内容为：\输入的日期有误，重新输入\。

(4)将学号为\学生的\照片\字段值设置为考生文件夹下的\图像文件(要求使用\由文件创建\方式)。 (5)将冻结的\姓名\字段解冻；并确保\姓名\字段列显示在\学号\字段列的后面。

(6)将\表中的数据导出到文本文件中，并以\文件名保存到考生文件夹下。 二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好了个关联的表对象\、\、\和一个空表\，请按以下要求完成设计：

(1)创建一个查询，查找并显示年龄在18到20之间(包括18岁和20岁)的学生\姓名\、\性别\、\年龄\和\入校时间\，所建查询名为\。 (2)创建一个查询，将所有学生设置为非党员，所建查询名为\。

(3)创建一个交叉表查询，要求能够显示各门课程男女生不及格人数，结果如下图所示，所建查询名为\。

要求：直接用查询设计视图建立交叉表查询，不允许用其他查询做数据源。交叉表查询不做各行小计。

(4)创建一个查询，将有不及格成绩的学生的\姓名\、\性别\、\课程名\和\成绩\等信息追加到\表的对应字段中，并确保\表中男生记录在前、女生记录在后，所建查询名为\；要求创建此查询后运行该查询，并查看运行结果。 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\和\，同时还设计出窗体对象\和\。请在此基础上按以下要求补充\窗体的设计：

(1)将窗体中名称\的标签控件上的文字颜色改为\蓝色\蓝色代码为16711680)、字体粗细改为\加粗\。 (2)将窗体标题设置为\显示/修改用户口令\。

(3)将窗体边框改为\细边框\样式，取消窗体中的水平和垂直滚动条、记录选择器、浏览按钮和分隔线；保留窗体的关闭按钮。

(4)将窗体中\退出\命令按钮(名称为\上的文字颜色改为棕色(棕色代码为128)、字体粗细改为\加粗\，并在文字下方加下划线。 (5)在窗体中还有\修改\和\保存\两个命令按钮，名称分别为\和\，其中\保存\命令按钮在初始状态为不可用，当单击\修改\按钮后，\保存\按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在\口令\文本框中输入的内容与在\确认口令\文本框中输入的内容不相符，当单击\保存\按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

要求：修改后运行该窗体，并查看修改结果。

注意：不要修改窗体对象\和\中未涉及的控件、属性；不要修改表对象\和\。

程序代码只能在\与\之间的空行内补充一行语句，完成设计，不允许增删和修改其它位置已存在的语句。 '*************************Add*************************' MsgBox \请重新输入口令！\

'*************************Add*************************' 第15套上机题 一、基本操作

在考生文件夹下，\数据库文件中已建立3个关联表对象(名为\线路\、\游客\和\团队\和窗体对象\。试按以下要求，完成表和窗体的各种操作：

(1)按照以下要求修改表的属性：

\线路\表：设置\线路ID\字段为主键、\线路名\字段为必填字段。

\团队\表：设置\团队ID\字段为有索引(无重复)、\导游姓名\字段为必填字段。 按照以下要求修改表结构：

向\团队\表增加一个字段，字段名称为\线路ID\，字段类型为文本型，字段大小为8。 (2)分析\团队\表的字段构成、判断并设置主键。 (3)建立\线路\和\团队\两表之间的关系并实施参照完整。

(4)将考生文件夹下Excel文件\中的数据链接到当前数据库中。要求：数据中的第一行作为字段名，链接表对象命名为\。 (5)删除\游客\表对象。

(6)修改\窗体对象的属性，取消\记录选择器\和\分隔线\显示，将窗体标题栏的标题改为\线路介绍\。 二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好两个表对象住宿登记\和住房信息表\。请按以下要求完成设计： (1)创建一个查询，查找并显示客人的\姓名\、\入住日期\和\价格\个字段内容，将查询命名为\。

(2)创建一个参数查询，显示客人的\姓名\、\房间号\和\入住日期\个字段信息。将\姓名\字段作为参数，设定提示文本为\请输入姓名\，所建查询命名为\。

(3)以表对象\为基础，创建一个交叉表查询。要求：选择楼号为行标题列名称显示为\楼号\，\房间类别\为列标题来统计输出每座楼房的各类房间的平均房价信息。所建查询命名为\。

注：房间号的前两位为楼号。 交叉表查询不做各行小计。

(4)创建一个查询，统计出各种类别房屋的数量。所建查询显示两列内容，列名称分别为\和\，所建查询命名为\． 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。试在此基础上按照以下要求补充设计：

(1)设置表对象\中\年龄\字段的有效性规则为：年龄值在20到50之间(不含20和50)，相应有效性文本设置为\请输入有效年龄\。 (2)设置报表\按照\性别\字段降序(先女后男)排列输出；将报表页面页脚区域内名为\的文本框控件设置为\第N页/共M页\形式显示。

(3)将\窗体上名为\的命令按钮由灰色无效状态改为有效状态。设置窗体标题为\职工信息输出\。

(4)根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在\窗体上单击\输出\命令按钮(名为\，弹出一个输入对话框，其提示文本为\请输入大于0的整数值\。

输入1时，相关代码关闭窗体(或程序)。

输入2时，相关代码实现预览输出报表对象\。

输入>＝3时，相关代码调用宏对象\以打开数据表\。

注意：不要修改数据库中的宏对象\；不要修改窗体对象\和报表对象\中未涉及的控件和属性；不要修改表对象\中未涉及的字段和属性。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 Private Sub btnP_Click() Dim k As String '*****Add1*****

k = InputBox(\请输入大于0的整数值\'*****Add1***** If k = \Select Case Val(k) Case Is >= 3

DoCmd.RunMacro \ Case 2

'*****Add2*****

DoCmd.OpenReport \ '*****Add2***** Case 1

DoCmd.Close End Select End Sub 第16套上机题 一、基本操作

在考生文件夹下，存在两个数据库文件和一个照片文件，数据库文件名分别为\和\，照片文件名为\照片．bmp\。请按以下操作要求，完成表的建立和修改：

(1)将考生文件夹下\数据库中的\表导入到samp1.mdb数据库中。 (2)创建一个名为\的新表，其结构如下：

字段名称 部门编号 部门名称 房间号 (3)判断并设置表\的主键。

(4)设置新表\中的\房间号\字段的\有效性规则\，保证输入的数字在100到900之间(不包括100和900)。 (5)在\表中输入如下新记录：

部门编号 001 002 003 部门名称 数量经济 公共关系 商业经济 房间号 222 333 444 类型 文本 文本 数字 字段大小 16 10 整型 (6)在\表中增加一个新字段，字段名为\照片\，类型为\对象\。设置\李丽\记录的\照片\字段数据为考生文件夹下的\照片.BMP\图像文件。

二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\、\和\，请按以下要求完成设计： (1)创建一个查询，查找并显示\姓名\、\政治面貌\和\毕业学校\等3个字段的内容，所建查询名为\。

(2)创建一个查询，计算每名学生的平均成绩，并按平均成绩降序依次显示\姓名\、\平均成绩\两列内容，其中\平均成绩\数据由统计计算得到，所建查询名为\。

假设：所用表中无重名。

(3)创建一个查询，按输入的班级编号查找并显示\班级编号\、\姓名\、\课程名\和\成绩\的内容。其中\班级编号\数据由统计计算得到，其值为\表中\学号\的前6位，所建查询名为\；当运行该查询时，应显示提示信息：\请输入班级编号：\。

(4)创建一个查询，运行该查询后生成一个新表，表名为\分以上\，表结构包括\姓名\、\课程名\和\成绩\等3个字段，表内容为90分以上(含90分)的所有学生记录，所建查询名为\；要求创建此查询后运行该查询，并查看运行结果。 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。请在此基础上按照以下要求补充设计：

(1)设置表对象\中\聘用时间\字段的有效性规则为：1991年1月1日(含)以后的时间。相应有效性文本设置为\输入一九九一年以后的日期\。

(2)设置报表\按照\性别\字段升序(先男后女)排列输出；将报表页面页脚区域内名为\的文本框控件设置为\页码/总页数-\形式的页码显示（如-1/15-、-2/15-、?）。

(3)将\窗体上名为\的标签上移到距\命令按钮1厘米的位置(即标签的下边界距命令按钮的上边界1厘米)，并设置其标题为\职工信息输出\。

(4)根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在\窗体上单击\输出\命令按钮(名为\，弹出一输入对话框，其提示文本为\请输入大于0的整数值\。

输入1时，相关代码关闭窗体(或程序)。

输入2时，相关代码实现预览输出报表对象\。

输入>＝3时，相关代码调用宏对象\以打开数据表\。

注意：不要修改数据库中的宏对象\；不要修改窗体对象\和报表对象\中未涉及的控件和属性；不要修改表对象\中未涉及的字段和属性。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 Private Sub btnP_Click() Dim k As String

k = InputBox(\请输入大于0的整数值\If k = \Select Case Val(k) '*****Add1***** Case Is >= 3 '*****Add1*****

DoCmd.RunMacro \ Case 2

'*****Add2*****

DoCmd.OpenReport \ '*****Add2*****

Case 1

DoCmd.Close End Select End Sub 第17套上机题 一、基本操作

在考生文件夹下的\数据库文件中已建立3个关联表对象(名为\职工表\、\物品表\和\销售业绩表\、一个窗体对象(名为\和一个宏对象(名为\。请按以下要求，完成表和窗体的各种操作：

(1)分析表对象\销售业绩表\的字段构成，判断并设置其主键。

(2)为表对象\职工表\追加一个新字段。字段名称为\类别\、数据类型为\文本型\、字段大小为2，设置该字段的有效性规则为只能输入\在职\与\退休\值之一。

(3)将考生文件夹下文本文件Test.txt中的数据链接到当前数据库中。其中，第一行数据是字段名，链接对象以\命名保存。 (4)窗体fTest上命令按钮\和命令按钮\大小一致，且上对齐。现调整命令按钮\的大小与位置，要求：按钮\的大小尺寸与按钮\相同、上边界与按钮\上对齐、水平位置处于按钮\和\的中间。

注意，不要更改命令按钮\和\的大小和位置。

(5)更改窗体上3个命令按钮的Tab键移动顺序为：bt1－>bt2－>bt3－>bt1－>...。 (6)将宏\重命名为\。 二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好3个关联表对象\、\、\和表对象\。请按以下要求完成设计：

(1)创建一个选择查询，查找并显示没有摄影爱好的学生的\学号\、\姓名\、\性别\和\年龄\个字段内容，将查询命名为\。 (2)创建一个总计查询，查找学生的成绩信息，并显示为\学号\和\平均成绩\两列内容。其中\平均成绩\一列数据由统计计算得到，将查询命名为\。

(3)创建一个选择查询，查找并显示学生的\姓名\、\课程名\和\成绩\个字段内容，将查询命名为\。 (4)创建一个更新查询，将表\中\年龄\字段值加1，并清除\团员否\字段的值，所建查询命名为\。 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。请在此基础上按照以下要求补充设计：

(1)设置表对象\中\聘用时间\字段的有效性规则为：2006年9月30日(含)以前的时间。相应有效性文本设置为\输入二零零六年九月以前的日期\。

(2)设置报表\按照\年龄\字段降序排列输出；将报表页面页脚区域内名为\的文本框控件设置为\页码-总页数\形式的页码显示（如1-15、2-15、?）。

(3)将\窗体上名为\的标签宽度设置为5厘米、高度设置为1厘米，设置其标题为\数据信息输出\并居中显示。

(4)\窗体上单击\输出\命令按钮(名为\，实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为\的文本框内并输出到外部文件保存；单击\打开表\命令按钮(名为\，调用宏对象\以打开数据表\。

Fibonacci数列： F1＝1 n＝1 F2＝1 n＝2 Fn＝Fn－1＋Fn－2 n>＝3

调试完毕后，必须点击\输出\命令按钮生成外部文件，才能得分。

试根据上述功能要求，对已给的命令按钮事件进行补充和完善。

注意：不要修改数据库中的宏对象\；不要修改窗体对象\和报表对象\中未涉及的控件和属性；不要修改表对象\中未涉及的字段和属性。

程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 Private Sub btnP_Click() Dim i As Integer Dim s As Integer '*****Add1***** Dim f(19) As Integer '*****Add1***** f(1) = 1: f(2) = 1 For i = 3 To 19 '*****Add2*****

f(i) = f(i - 1) + f(i - 2) '*****Add2***** Next i

'数据输出到文本框内 '*****Add3***** tData = f(19) '*****Add3***** '以下是文件操作

If Dir(CurrentProject.Path & \ Kill CurrentProject.Path & \ End If

Open CurrentProject.Path & \ Print #1, Me!tData Close #1 End Sub 第18套上机题 一、基本操作

在考生文件夹下有一个Excel文件\和一个数据库文件\。\数据库文件中已建立3个表对象(名为\线路\、\游客\和\团体\和一个窗体对象(名为\。请按以下要求，完成表和窗体的各种操作：

(1)将\线路\表中的\线路ID\字段设置为主键；设置\天数\字段的有效性规则属性，有效性规则为大于0。 (2)将\团队\表中的\团队ID\字段设置为主键；添加\线路ID\字段，数据类型为\文本\，字段大小为8。

(3)将\游客\表中的\年龄\字段删除；添加两个字段，字段名分别为\证件编号\和\证件类别\；\证件编号\的数据类型为\文本\，字段大小为20；使用查阅向导建立\证件类别\字段的数据类型，向该字段键入的值为\身份证\、\军官证\或\护照\等固定常数。

(4)将考生文件夹下\文件中的数据链接到当前数据库中。要求：数据中的第一行作为字段名，链接表对象命名为\。 (5)建立\线路\、\团队\和\游客\表之间的关系，并实施参照完整性。

(6)修改窗体\，取消\记录选定器\和\分隔线\显示，在窗体页眉处添加一个标签控件(名为Line)，标签标题为\线路介绍\，字体名称为隶书、字体大小为18。

二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好两个表对象\和\。请按以下要求完成设计： (1)创建一个查询，查找并显示所有客人的\姓名\、\房间号\、\电话\和\入住日期\个字段内容，将查询命名为\。

(2)创建一个查询，能够在客人结账时根据客人的姓名统计这个客人已住天数和应交金额，并显示\姓名\、\房间号\、\已住天数\和\应交金额\，将查询命名为\。

注：输入姓名时应提示\请输入姓名：\应交金额＝已住天数*价格。

(3)创建一个查询，查找\身份证\字段第4位至第6位值为\的纪录，并显示\姓名\、\入住日期\和\价格\个字段内容，将查询命名为\。 (4)以表对象\为数据源创建一个交叉表查询，使用房间号统计并显示每栋楼的各类房间个数。行标题为\楼号\，列标题为\房间类别\，所建查询命名为\。 注：房间号的前两位为楼号。 三、综合应用

在考生文件夹下有一个数据库文件\，里面已经设计了表对象\、查询对象\和窗体对象\。同时，给出窗体对象\上两个按钮的单击事件代码，请按以下要求补充设计。

(1)将窗体\上名称为\的文本框控件改为组合框控件，控件名称不变，标签标题不变。设置组合框控件的相关属性，以实现从下拉列表中选择输入性别值\男\和\女\。

(2)将查询对象\改为参数查询，参数为窗体对象\上组合框\的输入值。

(3)将窗体对象\上名称为\的文本框控件设置为计算控件。要求依据\党员否\字段值显示相应内容。如果\党员否\字段值为True，显示\党员\两个字；如果\党员否\字段值为False，显示\非党员\个字。

(4)在窗体对象\上有\刷新\和\退出\两个命令按钮，名称分别为\和\。单击\刷新\按钮，窗体记录源改为查询对象\；单击\退出\按钮，关闭窗体。现已编写了部分VBA代码，请按VBA代码中的指示将代码补充完整。

注意：不要修改数据库中的表对象\；不要修改查询对象\中未涉及的内容；不要修改窗体对象\中未涉及的控件和属性。 程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 Private Sub bt1_Click() '动态设置窗体记录源属性 '*****Add1*****

Form.RecordSource = \ '*****Add1***** '刷新窗体 Me.Requery End Sub

Private Sub bt2_Click() '关闭窗口 '*****Add2***** DoCmd.Close '*****Add2***** End Sub 第19套上机题 一、基本操作

在考生文件夹下的\数据库文件中已建立两个表对象(名为\员工表\和\部门表\。请按以下要求，顺序完成表的各种操作：

(1)在报表的报表页眉节区添加一个标签控件，名称为\，标题为\团员基本信息表\。

(2)在报表的主体节区添加一个文本框控件，显示\性别\字段值。该控件放置在距上边0.1厘米、距左边5.2厘米处，并命名为\。 (3)在报表页脚节区添加一个计算控件，计算并显示学生平均年龄。计算控件放置在距上边0.2厘米、距左边4.5厘米处，并命名为\。 (4)按\编号\字段前4位分组统计各组记录个数，并将统计结果显示在组页脚节区。计算控件命名为\。 注意：不能改动数据库中的表对象\和查询对象\，同时也不能修改报表对象\中已有的控件和属性。 第35套上机题 一、基本操作

考生文件夹下，已有\和\数据库文件。

\中已建立表对象\，\中已建立表对象\和\。试按以下要求，完成表的各种操作： (1)将表对象\中\工号\的字段大小设置为8。

(2)设置表对象\中\姓名\和\年龄\两个字段的显示宽度为20。 (3)将表对象\中\聘用时间\字段改名为\聘用日期\。 (4)隐藏表对象\中的\简历\字段列。

(5)完成上述操作后，建立表对象\和\的表间一对多关系，并实施参照完整性。

(6)将考生文件夹下\数据库文件中的表对象\链接到\数据库文件中，要求链接表对象重命名为tTemp。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的3个关联表对象\、\、\和一个空表\，请按以下要求完成设计：

(1)创建一个查询，查找并显示\姓名\、\政治面貌\、\课程名\和\成绩\个字段的内容，将查询命名为\。

(2)创建一个查询，计算每名学生所选课程的学分总和，并依次显示\姓名\和\学分\，其中\学分\为计算出的学分总和，将查询命名为\。 (3)创建一个查询，查找年龄小于平均年龄的学生，并显示其\姓名\，将查询命名为\。

(4)创建一个查询，将所有学生的\班级编号\、\学号\、\课程名\和\成绩\等值填入\表相应字段中，其中\班级编号\值是\表中\学号\字段的前6位，将查询命名为\。 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\，查询对象\，同时还有以\为数据源的窗体对象\。请在此基础上按照以下要求补充窗体设计：

(1)将窗体\的记录源改为查询对象\。

(2)在窗体\的窗体页眉节区添加一个标签控件，名称为\，标题为\明细\，字体为\黑体\，字号为20，字体粗细为\加粗\。

(3)将窗体标题栏上的显示文字设为\明细显示\。

(4)在窗体页脚节区添加一个命令按钮，命名为\，按钮标题为\改变颜色\。

(5)设置命令按钮bC的单击事件，使用单击该命令按钮后，CDID文本框内内容显示颜色改为红色。要求用VBA代码实现。

注意：不能修改窗体对象\中未涉及的控件和属性；不能修改表对象\和查询对象\。 Private Sub bc_Click()

CDID_标签.ForeColor = vbRed 或 CDID_标签.ForeColor = 255 End Sub 第36套上机题 一、基本操作

考生文件夹下存在一个数据库文件\，里面已经设计好表对象\和\、窗体对象\和宏对象mTest。并按照以下

要求完成操作：

(1)将\表中\简历\字段的显示宽度设置为40。 (2)分析并建立表\与表\之间的关系。

(3)将窗体\中标题为\的命令按钮改为\按钮\，同时将其设置为灰色无效状态。 (4)将学生\入校时间\字段的默认值设置为本年度的一月一日(规定：本年度年号必须用函数获取)。 (5)设置\表的\课程号\字段的输入掩码为只能输入5位数字或字母形式。 (6)将\表中的\简历\字段隐藏起来。 二、简单应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\、\和\。请按以下要求完成设计：

(1)创建一个查询，当运行该查询时，应显示参数提示信息\请输入爱好\，输入爱好后，在简历字段中查找具有指定爱好的学生，显示\学号\、\姓名\、\性别\、\年龄\和\简历\个字段的内容，将查询命名为\。

(2)创建一个查询，查找学生的成绩信息，并显示为\学号\、\姓名\和\平均成绩\列内容，其中\平均成绩\一列数据由计算得到，将查询命名为\。

(3)创建一个查询，查找没有任何选课信息的学生，并显示其\学号\和\姓名\两个字段的内容，将查询命名为\。

(4)创建一个查询，将表\中男学生的信息追加到\表对应的\学号\、\姓名\、\年龄\、\所属院系\和\性别\字段中，将查询命名为\。 三、综合应用

考生文件夹下有一个数据库文件\，其中存在已经设计好的表对象\、窗体对象\、报表对象\和宏对象\。请在此基础上按照以下要求补充设计：

(1)将表对象\中\聘用时间\字段的格式调整为\长日期\显示、\性别\字段的有效性文本设置为\只能输入男和女\。

(2)设置报表\，使其按照\聘用时间\字段升序排列并输出；将报表页面页脚区内名为\的文本框控件设置为系统的日期。 (3)将\窗体上名为\的标签上移到距\命令按钮1厘米处(即标签的下边界距命令按钮的上边界1厘米)。同时，将窗体按钮\的单击事件属性设置为宏\，以完成单击按钮打开报表的操作。

注意：不能修改数据库中的宏对象\；不能修改窗体对象\和报表对象\中未涉及的控件和属性；不能修改表对象\中未涉及的字段和属性。 第37套上机题 一、基本操作

在考生文件夹下有一个数据库文件\。请按以下操作要求，完成表的建立和修改： (1) 创建一个名为\的新表，其结构如下： 字段名称 职工ID 姓名 职称 聘任日期 数据类型 文本 文本 文本 日期/时间 字段大小 5 10 6 格式 常规日期 (2)判断并设置表\的主关键字。

(3)在\聘任日期\字段后添加\借书证号\字段，字段的数据类型为文本，字段大小为10，有效性规则为：不能是空值。 (4)将\表中的\职称\字段的\默认值\属性设置为\副教授\。 (5)设置\职工ID\字段的输入掩码为只能输入5位数字形式。

(6)向\表中填入如下内容(\借书证号\字段可输入任意非空内容)： 职工ID 00001 00002 00003 00004 00005 00006 二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好一个表对象\和一个查询对象\。请按以下要求完成设计： (1)创建一个查询，计算并输出学生的最大年龄和最小年龄信息，标题显示为\和\，将查询命名为\。 (2)创建一个查询，查找并显示年龄小于等于25的学生的\编号\、\姓名\和\年龄\，将查询命名为\。

(3)创建一个查询，按照入校日期查找学生的报到情况，并显示学生的\编号\、\姓名\和\团员否\个字段的内容。当运行该查询时，应显示参数提示信息：\请输入入校日期：\，将查询命名为\。

(4)更改\查询，将其中的\年龄\字段按升序排列。不要修改\查询中其他字段的设置。 三、综合应用

考生文件夹下存在一个数据库文件\，里面已经设计了表对象\、窗体对象\、报表对象\和宏对象\。试在此基础上按照以下要求补充设计：

（1）设置报表\按照\性别\字段分组降序排列输出，同时在其对应组页眉区添加一个文本框，命名为\内容输出为性别值；将报表页面页脚区域内名为\的文本框控件设置为\页码/总页数\形式的页码显示（如1/15、2/15、?）。

（2）将窗体对象\上的命令按钮（名为\）从灰色状态设为可用，然后设置控件的Tab键焦点移动顺序为：控件tData-〉btnP-〉btnQ 。 （3）在窗体加载事件中实现代码重置窗体标题为标签\的标题内容。 （4）\窗体上单击\输出\命令按钮（名为\），实现以下功能：

计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为\的文本框内并输出到外部文件保存。 单击\打开表\命令按钮（名为\），代码调用宏对象\以打开数据表\。 试根据上述功能要求，对已给的命令按钮事件过程进行代码补充并调试运行。

注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；

只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。

Private Sub btnP_Click() Dim n As Integer Dim mn As Integer

'计算10000以内的素数数量，将其存放在变量n内；10000以内的最大素数，将其存放在变量mn内 '提示：可以调用下面提供的素数判断函数 '***** Add2 ***** n = 0

For i = 2 To 10000 If sushu(i) Then n = n + 1 mn = i

姓名 112 113 114 115 116 117 职称 副教授 教授 讲师 副教授 副教授 教授 聘任日期 1995－11－1 1995－12－12 1998－10－10 1992－8－11 1996－9－11 1998－10－28

End If Next i

'***** Add2 *****

'将素数数量及最大素数的值显示在文本框\内 Me!tData = \数量:\最大值:\'以下是文件操作

If Dir(CurrentProject.Path & \ Kill CurrentProject.Path & \End If

Open CurrentProject.Path & \ Print #1, n & \ Close #1 End Sub

Private Sub btnQ_Click() '代码调用宏对象\'***** Add3 ***** DoCmd.RunMacro \'***** Add3 ***** End Sub

Private Sub Form_Load()

'设置窗体标题为标签\的标题内容 '***** Add1 *****

Form.Caption = bTitle.Caption '***** Add1 ***** End Sub 第38套上机题 一、基本操作

在考生文件夹下，\数据库文件中已建立3个关联表对象(名为\职工表\、\物品表\和\销售业绩表\。请按以下要求，完成表和窗体的各种操作：

(1)向表对象\物品表\中增添一个字段，名为\生产日期\、类型为\日期/时间型\。设置该字段默认值为2006年4月1日。 (2)分析表对象\销售业绩表\的字段构成，判断并设置其主键。

(3)将考生文件夹下Excel文件Test.xls中的数据导入到当前数据库中。要求：数据中的第一行作为字段名，选\学号\数据列为主键，导入表对象命名为\。

(4)建立表对象\职工表\、\物品表\和\销售业绩表\的表间关系，并实施参照完整性。 (5)将窗体fTest中名为\的控件设置为\特殊效果：凿痕\显示。

(6)在窗体fTest上，以命令按钮\为基准(这里按钮\和\尺寸相同、左边对齐)，调整命令按钮\的大小和位置。要求：按钮\的大小尺寸与按钮\相同、左边界与按钮\左对齐、竖直方向位于按钮\和\的中间位置。 二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\、\、\，请按以下要求完成设计： (1)创建一个查询，查找三月份上课的信息，并显示\教师姓名\、\职称\、\学院\、\课程ID\、\课程名称\和\上课日期\六个字段的内容，

所建查询名为\。

(2)创建一个查询，根据教师姓名查找某教师的授课情况，并按\上课日期\字段降序显示\教师姓名\、\课程名称\和\上课日期\个字段的内容，所建查询名为\；当运行该查询时，应显示参数提示信息\请输入教师姓名\。

(3)创建一个查询，查找学生的课程成绩大于等于80且小于等于100的学生情况，显示\学生姓名\、\课程名称\和\成绩\个字段的内容，所建查询名为\。

(4)创建一个查询，假设\学生ID\字段的前4位代表年级，要统计各个年级不同课程的平均成绩，显示\年级\、\课程ID\和\成绩之平均值\，并按\年级\降序排列，所建查询为\。 三、综合应用

在考生文件夹下有一个数据库文件\里面已经设计了表对象\、查询对象\和窗体对象\。同时，给出窗体对象\上\退出\按钮的单击事件代码，请按以下功能要求补充设计。

(1)将窗体\上文本框\更改为组合框类型，且控件名称保持不变。

(2)修改查询对象\为参数查询，参数为引用窗体对象\上文本框\的输入值。

(3)设置窗体对象\上文本框\为计算控件。要求根据\年龄\字段值依据以下计算公式计算并显示人员的出生年。 计算公式：出生年＝Year(Date())－年龄或出生年＝Year(Now())－年龄。 (4)单击\退出\按钮(名为\，关闭窗体。补充事件代码。

注意：不能修改数据库中的表对象\；不允许修改查询对象\中未涉及的内容；不能修改窗体对象\中未涉及的控件和属性。 程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 Private Sub bt2_Click() '关闭窗口 '*****Add***** DoCmd.Close '*****Add***** End Sub 第39套上机题 一、基本操作

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\。请按以下要求，完成表的编辑： (1)根据\表的结构，判断并设置主键。

(2)设置\性别\字段的\有效性规则\属性为：只能输入\男\或\女\。 (3)设置\年龄\字段的输入掩码为只能输入两位数字，并设置其默认值为19。

(4)删除表结构中的\照片\字段；并删除表中职工编号为\和\的两条记录。

(5)使用查阅向导建立\职务\字段的数据类型，向该字段键入的值为\职员\、\主管\或\经理\等固定常数。 (6)在编辑完的表中追加以下新记录：

二、简单应用

在考生文件夹下有一个数据库文件\，里面已经设计好表对象\档案表\和\水费\，请按以下要求完成设计： (1)设置\档案表\表中的\性别\字段的有效性规则为其值只能为\男\或\女\，有效性文本为\性别字段只能填写男或女\。

本文来源：https://www.bwwdw.com/article/06y6.html