第01套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“tEmployee ”。试按以下操作要求，完成表的编辑：

（60-1）

(1) 分析“tEmployee”表的结构，判断并设置主键。

(2) 删除表中的“所属部门”字段；设置“年龄”字段的有效性规则为只能 输入大于16的数据。

(3) 在表结构中的“年龄”与“职务”两个字段之间增添一个新的字段：字 段名称为“党员否”，字段类型为“是/否”型；删除表中1999年5月聘 用、并具有“相声”爱好的女职工记录。

(4) 设置“职务”字段值的输入方式为从下拉列表中选择“职员”、“主管 ”或“经理”选项值。

(5) 设置“聘用时间”字段的相关属性，使该字段按照“XXXX/XX/XX”格式 输入。例如，2013/06/08。

(6) 将表中聘用时间超过30年（不含30年）的职工“职务”字段值更改为“ 退休”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tStud”和“tTemp”。tStud表是学校历年来招收的学生名单，每名学生均 有身份证号。对于现在正在读书的“在校学生”，均有家长身份证号，对于已 经毕业的学生，家长身份证号为空。

（ 26-2 ）

例如，表中学生“张春节”没有家长身份证号，表示张春节已经从本校毕 业，是“校友”。

表中学生“李强”的家长身份证号为“110107196201012370”，表示李强 为在校学生。由于在tStud表中身份证号“110107196201012370”对应的学生姓 名是“李永飞”，表示李强的家长李永飞是本校校友。

“张天”的家长身份证号为“110108196510015760”，表示张天是在校学 生；由于在tStud表中身份证号“110108196510015760”没有对应的记录，表示 张天的家长不是本校的校友。 请按下列要求完成设计：

(1) 创建一个查询，要求显示在校学生的“身份证号”和“姓名”两列内容， 所建查询命名为“qT1”。

(2) 创建一个查询，要求按照身份证号码找出所有学生家长是本校校友的学生 记录。输出学生身份证号、姓名及家长姓名三列内容，标题显示为“身份 证号”、“姓名”和“家长姓名”，所建查询命名为“qT2”。

(3) 创建一个查询，统计数学成绩为100分的学生人数，标题显示为“num”， 所建查询命名为“qT3”。

要求：使用“身份证号”字段进行计数统计。

(4) 创建一个查询，将“tStud”表中总分成绩超过270分（含270）的学生信 息追加到空表“tTemp”中。其中，“tTemp”表的入学成绩为学生总分， 所建查询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象 “tStudent”，同时还设计出窗体对象“fQuery”、“fStudent”和“fCount” 。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计：

（70-3）

（1）加载“fQuery”时重置窗体标题改为“显示查询信息”，将窗体中“退出 ”命令按钮（名称为“cQuit”）上显示的文字颜色自动改为红色（红色 值为255），字体粗细改为“加粗”（加粗值为700）。 请按照VBA代码中 的指示将实现此功能的代码补充完整。

（2）在“fQuery”窗体距主体节上边0.4厘米、左边0.4厘米位置添加一个矩 形控件，其名称为“rRim”；矩形宽度为16.6厘米、高度为1.2厘米、特 殊效果为“凿痕”。将窗体边框改为“对话框边框”样式，取消窗体中 的水平和垂直滚动条、记录选择器、导航按钮和分隔线。

（3）在“fQuery”窗体中有一个“显示全部记录”命令按钮（名称为bList），

单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。 现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。

（4）在“fCount”窗体中有两个列表框、一个文本框和一个命令按钮，名称 分别为“List0”、“List1”、“tData”和“Cmd”。在“tData”文本 框中输入一个数，单击“Cmd”按钮，程序将判断输入的值是奇数还是偶 数，如果是奇数将填入“List0”列表中，否则填入“List1”列表中。 根据以上描述，请按照VBA代码中的指示将代码补充完整。

注意：不允许修改窗体对象“fQuery”、“fStudent”和“fCount”中 未涉及的控件、属性；不允许修改表对象“tStudent”。

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第02套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”。试按以下要求，完成表的各种操作：

（54-1）

（1）分析两个表对象“员工表”和“部门表”的构成，判断其中的外键属性， 将其字段名称作为“员工表”表属性中说明的内容进行设置。

（2）将“员工表”中有摄影爱好的员工其“备注”字段的值设为True（即复 选框里打上钩）。

（3）删除聘用时间超过30年（含30年）、“职务”为“经理”的职工。 （4）将考生文件夹下文本文件Test.txt中的数据导入追加到当前数据库的“ 员工表”相应字段中。

（5）设置相关属性，使“员工表”中“密码”字段以密码方式输入并显示。 （6）建立“员工表”和“部门表”的表间关系，并实施参照完整性。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse”和“tScore”及表对象“tTemp”。试按以 下要求完成设计：（60-2）

（1）创建一个查询，查找选课学分超过3分或没有先修课的学生记录，并显示 学生的“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名 为“qT1”。

（2）创建一个查询，查找5号入校的学生，显示其“学号”、“姓名”、“性 别”和“年龄”四个字段内容，所建查询命名为“qT2”。

（3）创建一个查询，查找选课成绩均在80分（含80分）以上的学生记录，并 显示“学号”和“平均成绩”两列内容。其中“平均成绩”一列数据由 统计计算得到，所建查询命名为“qT3”。

（4）创建一个查询，将“tStud”表中女学生的信息追加到“tTemp”表对应的 字段中，所建查询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tEmployee”和宏对象“m1”，同时还设计出以“tEmployee”为数据源的 窗体对象“fEmployee”。试在此基础上按照以下要求补充窗体设计：

（4-3）

（1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”， 初始化标题显示为“雇员基本信息”，字体名称为“黑体”，字号为 18。

（2）将命令按钮bList的标题设置为“显示雇员情况”。

（3）单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补 充完整。

（4）取消窗体的水平滚动条和垂直滚动条；取消窗体的最大化和最小化按 钮。

（5）窗体加载时，将“Tda”标签标题设置为“YYYY年雇员信息”，其中

“YYYY”为系统当前年份（要求使用相关函数获取），例如，2013年 雇员信息。窗体“加载”事件代码已提供，请补充完整。

注意：不允许修改窗体对象“fEmployee”中未涉及的控件和属性；不允许 修改表对象“tEmployee”和宏对象“m1”。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已存 ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第03套：

考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“tEmp”。试 按以下操作要求，完成对表“tEmp”的编辑修改和操作：

（29-1）

（1）将“编号”字段改名为“工号”，并设置为主键；按所属部分修改工号， 修改规则为：部门“01”的“工号”首字符为“1”，部门“02”首字符 为“2”，依次类推。

（2）设置“年龄”字段的有效性规则为不能是空值。

（3）设置“聘用时间”字段的默认值为系统当前年的一月一号。

（4）删除表结构中的“简历”字段；设置“聘用时间”字段的相关属性，使 该字段按照“XXXX/XX/XX”格式输入，例如，2013/07/08。

（5）将考生文件夹下“samp0.accdb”数据库文件中的表对象“tTemp”导入到 “samp1.accdb”数据库文件中。

（6）完成上述操作后，在“samp1.accdb”数据库文件中做一个表对象“tEmp ”的备份，命名为“tEL”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好二个表 对象“tTeacher1”和“tTeacher2”。试按以下要求完成设计：（29-2）

（1）创建一个查询，查找并显示在职教师的“编号”、“姓名、“年龄”和“性 别”四个字段内容，所建查询命名为“qT1”。

（2）创建一个查询，查找年龄低于所有职工平均年龄的职工记录，并显示“编 号姓名”和“联系电话”两列信息，其中“编号姓名”由“编号”与“姓 名”两个字段合二为一构成，所建查询命名为“qT2”。

（3）创建一个查询，按输入的参加工作时间的月份查找，并显示教师的“编号” 、“姓名”、“年龄”和“性别”四个字段内容，当运行该查询时，应显 示提示信息：“请输入月份”，所建查询命名为“qT3”。 （4）创建一个查询，将“tTeacher1”表中的党员教授的记录追加到 “tTeacher2”表相应的字段中，所建查询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail ”，同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按 照以下要求补充“fStud”窗体和“rStud”报表的设计：

（57-3）

（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“团员基本信息表”；将名称为“tSex”的文本框控件的输出内容设 置为 “性别”字段值。在报表页脚节区添加一个计算控件，其名称为“tAvg”, 设置相关属性，输出学生的平均年龄。

（2）将“fStud”窗体对象主体节中控件的Tab键焦点移动顺序设置为： “CItem”→“TxtDetail” →“CmdRefer” →“CmdList” → “CmdClear” →“fDetail” →“简单查询”。

（3）在窗体加载事件中，实现重置窗体标题为标签“tTitle”的标题内容。 （4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行 调试。

在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和 “TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还 有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。

在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选 项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击 “CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值， 则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框， 提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！！！”， 提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显 示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件 “cItem”和“TxtDetail”中的值。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第04套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“tEmployee ”。试按以下操作要求，完成表的编辑：

（34-1）

(1) 分析表的结构，判断并设置主键。

(2) 设置“年龄”字段的“有效性规则”属性为：非空且非负。 (3) 设置“聘用时间”字段的默认值为：系统当前月的最后一天。 (4) 交换表结构中的“职务”与“聘用时间”两个字段的位置。 (5) 删除1995年聘用的“职员”职工信息。 (6) 在编辑完的表中追加以下一条新记录：

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 关联表对象“tStaff”和“tSalary”及表对象“tTemp”。试按以下要求完成设 计：

（34-2）

（1）创建一个查询，查找下半年聘用的经理，并显示“工号”、“姓名、“年 龄”和“性别”四个字段内容，所建查询命名为“qT1”。

（2）创建一个查询，查找各位员工在2005年的工资信息，并显示“工号”、“ 工资合计”和“水电房租费合计”三列内容。其中，“工资合计”和“水 电房租费合计”两列数据均由统计计算得到，所建查询命名为“qT2”。 （3）创建一个查询，查找并显示员工的“年月”、“姓名”、“工资”、“水电 房租费”及“应发工资”五列内容。其中“应发工资”列数据由计算得到, 计算公式为：应发工资=工资-水电房租费，所建查询命名为“qT3”。 （4）创建一个查询，将表“tTemp”中“年龄”字段值均加1，所建查询命名 为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”和查询对象“qStud”，同时还设计出以“qStud”为数据源的报表 对象“rStud”。试在此基础上按照以下要求补充报表设计：

（34-3）

（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“团员基本信息表”。

（2）在报表的主体节区添加一个文本框控件，显示“性别”字段值。该控 件放置在距上边0.1厘米、距左边5.2厘米，并命名为“tSex”。 （3）在报表页脚节区添加一个计算控件，计算并显示学生平均年龄。计算 控件放置在距上边0.2厘米、距左边4.5厘米，并命名为“tAvg”。 （4）利用表达式按“编号”字段前四位分组统计各组记录个数，并将统计 结果显示在组页脚节区。计算控件命名为“tCount”。 要求：按“编号”字段进行统计操作。

注意：不允许改动数据库中的表对象“tStud”和查询对象“qStud”，同时 也不允许修改报表对象“rStud”中已有的控件和属性。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第05套：

在考生文件夹下，存在一个数据库文件“samp1.accdb”，里边已建立两个 表对象“tGrade”和“tStudent”；同时还存在一个Excel文件“tCourse.xls” 。试按以下操作要求，完成表的编辑：

（12-1）

（1）将Excel文件“tCourse.xls”链接到“samp1.mdb”数据库文件中，链接表 名称不变，要求：数据中的第一行作为字段名。 （2）将“tGrade”表中隐藏的列显示出来。

（3）将“tStudent”表中“政治面貌”字段的默认值属性设置为“团员”，并 使该字段在数据表视图中的显示标题改为“政治面目”。

（4）设置“tStudent”表的显示格式，使表背景颜色为主题颜色的“橄榄色，强 调文字颜色3，深色50%”，文字颜色为标准色中的“黄色”、字号为10号。 （5）将北京五中毕业学生的学号第3、4位改为“09”。 （6）建立“tGrade” 和“tStudent”两表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 和“tScore”。试按以下要求完成设计：

（51-2）

（1）创建一个查询，查找并显示有摄影爱好的男女学生各自人数，字段显示标 题为“性别”和“NUM”，所建查询命名为“qT1” 。 注意，要求用学号字段来统计人数。

（2）创建一个查询，查找上半年入校的学生选课记录，并显示“姓名”和 “课程名”两个字段内容，所建查询命名为“qT2” 。

（3）创建一个查询，查找没有先修课程的课程相关信息，输出其“课程号”、 “课程名”和“学分”三个字段内容，所建查询命名为“qT3” 。

（4）创建更新查询，将表对象“tStud”中低于平均年龄（不含平均年龄）学 生的“备注”字段值设置为True，所建查询命名为“qT4”。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tStud\，同时还设计出窗体对象“fStud”和子窗体对象“fDetail\。请在此基 础上按照以下要求补充“fStud”窗体的设计：

（12-3）

（1）将窗体标题改为“学生查询”。

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

（3）在窗体中有两个标签控件,名称分别为“Label1”和“Label2”,将这两个标 签上的文字颜色改为“#FFFFFF”,背景颜色设置为“#2F3699”。 （4）将窗体主体节中控件的Tab键次序改为：

“CItem”→“TxtDetail” →“CmdRefer” →“CmdList” →“CmdClear ” →“fDetail” →“简单查询” →“Frame18\。 （5）按照以下窗体功能，补充事件代码设计。

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

注意：不允许修改窗体对象“fStud” 和子窗体对象“fDetail\中未涉及 的控件、属性和任何VBA代码；不允许修改表对象“tStud”。 代码设计只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一条语句、完成设计，不允许增删和修改其它位置已存

在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第06套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”及一个报表对象“rEmp”。试按以下要求顺序，完成表及报表 的各种操作：

（55-1）

（1）设置“员工表”的职务字段有效性规则为只能输入“经理”、“主管”和“ 职员”三者之一；同时设置相应有效性文本为“请输入有效职务”。

（2）分析员工的聘用时间，将截止到2008年聘用期在10年（含10年）以上的员工 其“说明”字段的值设置为“老职工”。

要求：以2008年为截止期判断员工的聘用期，不考虑月日因素。比如，聘用 时间在2000年的员工，其聘用期为8年。 （3）删除员工表中姓名含“钢”字的员工纪录。

（4）将“员工表”中女职工的前四列信息（编号，姓名，性别，年龄）导出到考 生文件夹下，以文本文件形式保存，命名为Test.txt。 要求各数据项间以逗号分隔，且第一行包含字段名称。

（5）建立表对象“员工表”和“部门表”的表间关系，并实施参照完整性。 （6）将报表对象“rEmp”的记录源设置为表对象“员工表”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好四个 关联表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”以及表 对象“tTemp”，同时还设计出窗体对象“fQuery”。试按以下要求完成设计：

（41-2）

（1）创建一个查询，查找姓“王”病人的基本信息，并显示“姓名”、“年龄 ”、“性别”，所建查询名为“qT1”。

（2）创建一个查询，统计年龄小于30岁的医生被病人预约的次数，输出“医生 姓名”和“预约人数”两列信息。要求预约人数用“病人ID”字段计数并 降序排序，所建查询名为“qT2”。

（3）创建一个查询，删除表对象“tTemp”内所有“预约日期”为10月份中20 日以后（含 20日）的记录，所建查询名为“qT3”。

（4）现有一个已经建好的“fQuery”窗体。运行该窗体后，在文本框（文本框名 称为tName）中输入要查询的科室名，然后按下“查询”按钮，即运行一个 名为“qT4”的查询。“qT4”查询的功能是显示所查科室的“科室ID”和 “预约日期”。请设计“qT4”查询。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tAddr”和“tUser\，同时还设计出窗体对象“fEdit”和“fEuser”。请在 此基础上按照以下要求补充“fEdit”窗体的设计：

（41-3）

（1） 将窗体中名称为“Lremark”的标签控件上的文字颜色设置为“#FF0000” 、字体粗细改为“加粗”。

（2）将窗体标题设为“显示/修改用户口令”。

（3）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、 记录选择器、导航按钮、分隔线和控制框。

（4）将窗体中“退出”命令按钮（名称为“cmdquit”）上的文字字体粗细改为 “加粗”，并在文字下方加上下划线。

（5）在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit” 和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修 改”按钮后，“保存”按钮变为可用。当单击“保存”按钮后，输入焦点 移到“修改”按钮。此时，程序可以修改已有的用户相 关信息，现已编写了部分VBA代码，请补充完整。 要求：修改后运行该窗体，并查看修改结果。

注意：不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属 性；不允许修改表对象“tAddr”和“tUser”。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第07套：

在考生文件夹下，“samp1.accdb”数据库文件中已创建两个表对象“员工 表”和“部门表”及一个窗体对象“fEmp”。试按以下要求顺序，完成表及窗体 的各种操作：

（56-1）

（1）对表对象“员工表”操作，按照员工性别不同，为编号字段值增补前 置字符，男性员工编号前增补字符“8”，女性员工编号前增补字符“ 6”，如男性的000001更改为8000001，女性的000002更改为6000002。 （2）查出员工张汉望的对应密码内容，将密码实际值追加到其简历内容末 尾。

（3）设置表对象“员工表”的部门号字段值为列表框下拉选择，其值引用 “部门表”的对应字段。

（4）将“员工表”姓名中的所有“小”字替换为“晓”。

（5）依据“员工表”中的职务信息，在经理和主管员工对应的“说明”字 段内输入“干部”信息。

（6）设置窗体对象“fEmp”的“记录源”属性和“筛选”属性，使其打开 后输出“员工表”的女员工信息。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 表对象住宿登记表“tA”和住房信息表“tB”，其中“tA”和“tB”表中“房 间号”的前两位为楼号。试按以下要求完成设计：

（15-2）

（1）创建一个查询，查找楼号为“01”的客人记录，并显示“姓名”、“入住 日期”和“价格”三个字段内容，所建查询命名为“qT1” 。

（2）创建一个查询，按输入的房间价格区间查找，显示“房间号”字段信息。 当运行查询时，应分别显示提示信息“最低价”和“最高价”，所建查询 命名为“qT2” 。

（3）以表对象“tB”为基础，创建一个交叉表查询。要求：选择楼号为行标题、 列名称显示为“楼号”，“房屋类别”为列标题来统计输出每座楼房的各 类房间的平均房价信息。所建查询命名为“qT3”。 注：房间号的前两位为楼号。 交叉表查询不做各行小计。

（4）创建一个查询，统计出各种类别房屋的数量。输出两列信息，字段标题分 别为“type”和“num”，所建查询命名为“qT4” 。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tNorm”和“tStock”，查询对象“qStock”和宏对象“m1”，同时还设计 出以“tNorm”和“tStock”为数据源的窗体对象“fStock”和“fNorm”。试 在此基础上按照以下要求补充窗体设计：

（27-3）

（1）将“fStock”窗体的标题设置为“库存浏览”；在“fStock”窗体对 象的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，初 始化标题显示为“库存浏览”，字体名称为“黑体”，字号为18，字 体粗细为“加粗”。

（2）在“fStock”窗体对象的窗体页脚节区位置添加一个命令按钮，命名 为“bList”，按钮标题为“显示信息”。

（3）设置所建命令按钮bList的单击事件属性为运行宏对象m1。 （4）设置相关属性，取消在子窗体中添加新记录的功能。

（5）将“fStock”窗体对象中的“fNorm”子窗体的导航按钮去掉。 （6）为当前数据库设置“启用布局视图”。

注意：不允许修改窗体对象中未涉及的控件和属性；不允许修改表对象“ tNorm”、“tStock”和宏对象“m1”。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

第08套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”。试按以下要求，完成表的各种操作：

（45-1）

（1）设置表对象“员工表”的聘用时间字段有效性规则为：1950年（含）以后的 日期；同时设置相应有效性文本为“请输入有效日期”。

（2）将表对象“员工表”中编号为“000008”的员工的照片字段值替换为考生文 件夹下的图像文件“000008.bmp”数据。

（3）删除员工表中姓名字段含有“红”字的员工纪录；隐藏表对象“员工表”的 “所属部门”字段。

（4）查找部门“04”的女主管，将其“编号”字段首字符更改为“4”。

（5）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建立 正确关系。

（6）将考生文件夹下Excel文件Test.xls中的数据导入到当前数据库的新表中。 要求第一行包含列标题，导入其中的“编号”、“姓名”“性别”“年龄” 和“职务”五个字段，选择“编号”字段为主键，新表命名为“tmp”。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 、“tScore”和一个临时表“tTemp”及一 个窗体对象“fTmp”。试按以下要求完成设计：

（45-2）

（1）创建一个查询，查找并显示没有运动爱好学生的“学号”、“姓名”、“ 性别”和“年龄”四个字段内容，所建查询命名为“qT1”。

（2）创建一个查询，查找并显示所有学生的“姓名”、“课程号”和“成绩” 三个字段内容，所建查询命名为“qT2” 。

注意，这里涉及选课和没选课的所有学生信息，要考虑选择合适查询联接 属性。

（3）创建一个参数查询，查找并显示学生的“学号”、“姓名”、“性别”和“ 年龄”四个字段内容。其中设置性别字段为参数，参数条件要引用窗体“ fTmp”上控件“tSS”的值，所建查询命名为“qT3”。

（4）创建一个查询，删除临时表对象“tTemp”中年龄为奇数的记录，所建查询 命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了两个表 对象“tEmp”和“tGroup”，同时还设计了窗体对象“fEmp”、报表对象“ rEmp”和宏对象“mEmp”，试按以下功能要求补充设计。

（73-3）

（1）将报表“rEmp”中的记录数据按姓氏分组升序排列，并在相关的组页眉节 区域添加一个文本框控件（命名为“tNum”），计算并显示各姓氏员工的 人数。

注意：这里不需考虑复姓情况。所有姓名的第一个字符视为其姓氏信息。 要求：使用分组表达式进行分组；用“编号”字段统计各姓氏人数。 （2）将报表“rEmp”主体节区内文本框“tDept”的控件来源属性设置为计算 控件。要求该控件可以根据报表数据源里的“所属部门”字段值，从非数 据源表对象“tGroup”中检索出对应的部门名称并显示输出。 提示：考虑使用DLookup函数。

（3）设置相关属性，将“fEmp”窗体的整个背景显示为考生文件夹内的图像文 件“bk.bmp”。在窗体加载事件中设置窗体标题为显示“××年度报表输 出”。

说明：“××”为两位的当前年显示。 要求：当前年的年份使用相关函数获取。

（4）在“fEmp”窗体中单击“报表输出”按钮（名为“bt1”），调用事件代 码先将“退出”按钮标题设为粗体显示，再以预览方式打开报表“rEmp” ，请按VBA代码指示将代码补充完整。设置“退出”按钮（名为“bt2”） 的相关事件，当单击该按钮时，调用设计好的宏“mEmp”来关闭窗体。

注意：不允许修改数据库中的表对象“tEmp”、 “tGroup”和宏对象“

mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉 及的控件和属性；已给事件过程，只允许在“*****Add*****”与 “*****Add*****”之间的空行内补充语句、完成设计，不允许增 删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第09套：

在考生文件夹下，存在一个数据库文件“samp1.accdb” 、一个Excel文件 “tScore.xls”和一个图像文件“photo.bmp”。在数据库文件中已经建立了一 个表对象“tStud”。试按以下操作要求，完成各种操作：

（46-1）

（1）设置“ID”字段为主键；并设置“ID”字段的相应属性，使该字段在数据 表视图中的显示标题为“学号”；

（2）将“性别”字段的默认值属性设置为“男”，设置“入校时间”字段的相 关属性，使该字段的输入格式为“XXXX/XX/XX”，例如，2013/06/08； （3）设置“入校时间”字段的有效性规则和有效性文本。有效性规则为：输入 的入校时间必须为9月；有效性文本内容为“输入的月份有误，请重新输 入”；

（4）将学号为“20041002”学生的“照片”字段值设置为考生文件夹下的“ photo.bmp”图像文件（要求使用“由文件创建”方式）；

（5）设置“政治面目”字段的输入方式为从下拉列表中选择“团员”、“党员” 和“其他”选项值；

（6）将考生文件夹下的“tScore.xls”文件导入到“samp1.mdb”数据库文件 中，表名不变，主键为表中的“ID”字段。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tScore”和“tCourse”，试按以下要求完成设计：

（46-2）

（1）创建一个查询，查找年龄高于平均年龄的党员记录，并显示“姓名”、“ 性别”和“入校时间”。所建查询命名为“qT1”。

（2）创建一个查询，按输入的成绩区间查找，并显示“姓名”、“课程名”和 “成绩”。当运行该查询时，应分别显示提示信息：“最低分”和“最高 分”。所建查询命名为“qT2”。

（3）创建一个查询，统计并显示各门课程男女生的平均成绩，统计显示结果如 下图所示。所建查询命名为“qT3”。

要求：平均分结果用Round函数取整输出。

（4）创建一个查询，运行该查询后生成一个新表，表名为“tTemp”，表结构包 括“姓名”、“课程名”和“成绩”等三个字段，表内容为不及格的所有 学生记录。所建查询命名为“qT4”。要求创建此查询后，运行该查询，并 查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：

（46-3）

（1）在窗体的“窗体页眉”中距左边1.2厘米、距上边1.2厘米处添加一个直线 控件，控件宽度为7.8厘米，边框颜色改为“蓝色\（ 蓝色代码为 #0000FF），控件命名为“tLine”；

（2）将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色\（ 蓝色 代码为#0000FF）、字体名称改为“华文行楷”、字号改为22；

（3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选 择器、导航按钮和分隔线；并且只保留窗体的关闭按钮；

（4）假设“tStud”表中，“学号”字段的第5位和6位编码代表该生的专业信息， 当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理”专业 。设置窗体中名称为“tSub”的文本框控件的相应属性，使其根据“学号” 字段的第5位和第6位编码显示对应的专业名称；

（5）在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,单击该按钮，弹出 提示框。提示框标题为“提示”，提示框内容为“确认退出?”，并显示问 号图标；提示框中有两个按钮，分别为“是”和“否”，单击“是”按钮， 关闭消息框和当前窗体，单击“否”按钮，关闭消息框。请按照VBA代码中 的指示将实现此功能的代码填入指定的位置中。

注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代 码；不允许修改表对象“tStud”；

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第10套：

在考生文件夹下，存在一个数据库文件“samp1.accdb”和一个Excel文件“ tQuota.xls”。在数据库文件中已经建立了一个表对象“tStock”。试按以下操 作要求，完成各种操作：

（47—1）

（1）分析“tStock”表的字段构成，判断并设置其主键。

（2）在“tStock”表的“规格”和“出厂价”字段之间增加一个新字段，字段 名称为“单位”，数据类型为文本，字段大小为1；设置有效性规则，保 证只能输入“只”或“箱”。

（3）删除“tStock”表中的“备注”字段，并为该表的“产品名称”字段创建 查阅列表，列表中显示“灯泡”、“节能灯”和“日光灯”三个值。 （4）向“tStock”表中输入数据有如下要求：第一，“出厂价”只能输入3位 整数和2位小数（整数部分可以不足3位），第二，“单位”字段的默认值 为“只”。设置相关属性以实现这些要求。

（5）将考生文件夹下的“tQuota.xls”文件导入到“samp1.accdb”数据库文 件中，表名不变，分析该表的字段构成，判断并设置其主键；设置表的相 关属性，保证输入的“最低储备”字段值低于“最高储备”字段值，当输 入的数据违反有效性规则时，提示“最低储备值必须低于最高储备值”。 （6）建立“tQuota”表与“tStock”表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好表对象 “tDoctor”、“tOffice”、“tPatient”和“tSubscribe”，同时还设计出 窗体对象“fQuery”。试按以下要求完成设计：

（70-2）（52-2）

（1）创建一个查询，查找姓名为两个字的姓“王”病人的预约信息，并显示病 人的“姓名”、“年龄”、“性别”、“预约日期”、“科室名称”和“ 医生姓名”，所建查询命名为“qT1”。

（2）创建一个查询，统计星期一预约病人的平均年龄，要求输出一列内容，显 示标题为“平均年龄”，所建查询命名为“qT2”。

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

注意：病人的姓名不允许重复显示。

（4）现有一个已经建好的“fQuery”窗体，运行该窗体后，在文本框（文本框 名称为tName）中输入要查询的医生姓名，然后按下“查询”按钮，即运行 一个名为“qT4”的查询。“qT4”查询的功能是显示所查医生的“医生姓 名”和“预约人数”两列信息，其中“预约人数”值由“病人ID”字段统 计得到，请设计“qT4”查询。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好窗体 对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计：

（59-3）

（1）将窗体的边框样式设置为“对话框边框”，取消窗体中的水平和垂直滚动条 、记录选择器、导航按钮、分隔线、控制框、关闭按钮、最大化按钮和最小 化按钮。

（2）将窗体标题栏显示文本设置为“系统登录”。

（3）将窗体中“用户名称”（名称为“lUser”）和“用户密码”（名称为“ lPass）两个标签上的文字颜色改为浅综色（浅综色代码为#800000)、字 体粗细改为“加粗”。

（4）在窗体加载时，“tPass”文本框的内容以密码形式显示。窗体“加载”事 件代码已给出，请补充完整。

（5）按照以下窗体功能，补充事件代码设计。

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser ”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“ cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用 户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确， 如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示 框；如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“ tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框 中。当单击窗体上的“退出”按钮后，关闭当前窗体。

注意：不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码。 只允许在“*****Add*****”与“*****Add*****”之间的空行内补充 一条语句，不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第11套：

在考生文件夹下，存在一个数据库文件“samp1.mdb” ，里边已经设计好了 表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”，同时还设 计了窗体对象“fSubscribe”。试按以下操作要求，完成各种操作：

（70-1）（（1）分析“tSubscribe”预约数据表的字段构成，判断并设置其主键。设置“ 科室ID”字段的字段大小，使其与“tOffice”表中相关字段的字段大小一 致。删除医生“专长”字段。

（2）设置“tSubscribe”表中“医生ID”字段的相关属性，使其输入的数据只 能为第1个字符为“A”，从第2个字符开始后三位只能是0～9之间的数字， 并设置该字段为必填字段。设置“预约日期”字段的有效性规则为：只能 输入系统时间以后的日期。 要求：使用函数获取系统时间。

（3）设置“tDoctor”表中“性别”字段的默认值为“男”，并设置该字段值 的输入方式为从下拉列表中选择“男”或“女”选项值。设置“年龄”字 段的有效性规则和有效性文本，有效性规则为：输入年龄必须在18岁至60 岁之间（含18岁和60岁），有效性文本内容为：“年龄应在18岁到60岁之 间”。

（4）设置“tDoctor”表的显示格式，使表的背景颜色为“褐色2”，网格线为 “黑色”。设置数据表中显示所有字段。

（5）通过相关字段建立“tDoctor”、“tOffice”、“tPatient”和“ tSubscribe”等四表之间的关系，并实施参照完整性。

（6）将窗体“fSubscribe”主体节区内文本框“tDept”和“tDoct”的控件来 源属性设置为计算控件。要求该控件可以根据窗体数据源里的“科室ID” 和“医生ID”字段值，分别从非数据源表对象“tPatient”和“tDoctor” 中检索出对应的科室名称和医生姓名并显示输出。 提示：考虑使用DLookup函数。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个关 联表对象“tStud”、“tCourse” 、“tScore”和一个空表“tTemp”。试按 以下要求完成设计：

（55-56---2）

（1）创建一个查询，统计人数在5人以上（不含5）的院系人数，字段显示标题

52-1）

为“院系号”和“人数”，所建查询命名为“qT1” 。 注意：要求按照学号来统计人数。

（2）创建一个查询，查找非“04” 院系的选课学生信息，输出其“姓名”、“ 课程名”和“成绩”三个字段内容，所建查询命名为“qT2” 。

（3）创建一个查询，查找还没有选课的学生的姓名，所建查询命名为“qT3”。 （4）创建一个查询，将前5条记录的学生信息追加到表“tTemp”的对应字段中， 所建查询命名为“qT4”。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail” ，同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照 以下要求补充“fStud”窗体和“rStud”报表的设计：

（57-3）

（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“团员基本信息表”；将名称为“tSex”的文本框控件的输 出内容设置为 “性别”字段值。在报表页脚节区添加一个计算控件， 其名称为“tAvg”,设置相关属性，输出学生的平均年龄。

（2）将“fStud”窗体对象主体节中控件的Tab键次序移动顺序设置为： “CItem”→“TxtDetail” →“CmdRefer” →“CmdList” → “CmdClear” →“fDetail” →“简单查询”。

（3）在窗体加载事件中，实现重置窗体标题为当前年月加标签“tTitle” 的标题内容，如“2013年06月xxxx”。其中，当前年月要求用函数获 得，xxxx部分是标签“tTitle”的标题内容。

（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行 调试。

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

注意：不允许修改窗体对象“fStud” 和子窗体对象“fDetail”中未涉 及的控件、属性和任何VBA代码；不允许修改报表对象“rStud”中已有的控 件和属性；不允许修改表对象“tStud”和查询对象“qStud”。只允许在 “*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句、 完成设计，不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第12套：

在考生文件夹下，存在一个Excel文件“Test.xls”和一个数据库文件“ samp1.accdb”。库文件中已建立三个表对象（名为“线路”、“游客”和“团 队”）和一个窗体对象（名为“brow”）。试按以下要求，完成表和窗体的各 种操作：

（18-1）

（1）将“线路”表中的“线路ID”字段设置为主键；设置“天数”字段的有效 性规则属性，有效性规则为非空且大于0。

（2）将“团队”表中的“团队ID”字段设置为主键；追加“线路ID”新字段， 数据类型为“文本”，字段大小为8。

（3）将“游客”表中的“年龄”字段删除；添加两个字段，字段名分别为“证 件编号”和“证件类别”；“证件编号”的数据类型为“文本”，字段大 小为20；“证件类别”字段的数据类型为“文本”，字段大小为8，其值

的输入要求从下拉列表选择“身份证”、“军官证”或“护照”之一。 （4）将考生文件夹下Test.xls文件中的数据链接到当前数据库中。要求：数据 中的第一行作为字段名，链接表对象命名为“tTest”。

（5）建立“线路”、“团队”和“游客”三表之间的关系，并实施参照完整性。 （6）修改窗体“brow”，取消“记录选择器”和“分隔线”显示，在窗体页眉 处添加一个标签控件（名为Line）,标签标题为“线路介绍”，字体名称 为隶书、字体大小为18。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好两个表对 象“tA”和“tB”。试按以下要求完成设计：

（18-2）

（1）创建一个查询，查找并显示6月份入住客人的“姓名”、“房间号”、“ 电话”和“入住日期”四个字段内容，所建查询命名为“qT1”。

（2）创建一个查询，能够在客人每次结账时根据客人的姓名提示统计这个客人 已住天数和应交金额，并显示“姓名”、“房间号”、“已住天数”和“ 应交金额”，所建查询命名为“qT2”。 注：输入姓名时应提示“请输入姓名”。

已住天数按系统时间为客人结账日进行计算。 应交金额=已住天数*价格。

（3）创建一个查询，查找“身份证”字段第4位至第6位值为“102”的纪录，并 显示“姓名”、“入住日期”和“价格”三个字段内容，所建查询命名为 “qT3”。

（4）以表对象“tB”为数据源创建一个查询，使用房间号统计并显示每栋楼的 各类房间个数。行标题为“楼号”，列标题为“房间类别”，所建查询命 名为“qT4”。

注：房间号的前两位为楼号。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对象 “tEmp”、查询对象“qEmp”和窗体对象“fEmp”。同时，给出窗体对象“fEmp ”上两个按钮的单击事件代码，试按以下要求补充设计。

（18-3）

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

（2）选择合适字段，将查询对象“qEmp”改为参数查询，参数为引用窗体对象 “fEmp”上组合框“tSS”的输入值。

（3）将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。要求 依据“党员否”字段值显示相应内容。如果“党员否”字段值为True,显示 “党员”两个字；如果“党员否”字段值为False,显示“非党员”三个字。 （4）在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为 “bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp ”；单击“退出”按钮，关闭窗体。现已编写了部分VBA代码，请按照VBA 代码中的指示将代码补充完整。

注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp ”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和 属性。

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第13套：

在考生文件夹下，存在一个数据库文件“samp1.accdb”。在数据库文件中已 经建立了五个表对象“tOrder”、“tDetail”、“tEmployee”、“tCustom” 和“tBook”。试按以下操作要求，完成各种操作：

（49-1）

（1）分析“tOrder”表对象的字段构成，判断并设置其主键。

（2）设置“tDetail”表中“订单明细ID”字段和“数量”字段的相应属性，使 “订单明细ID”字段在数据表视图中的显示标题为“订单明细编号”，将 “数量”字段取值非空且大于0 。

（3）删除“tBook”表中的“备注”字段；并将“类别”字段的“默认值”属性 设置为“计算机” 。

（4）设置“tEmployee”表中“性别”字段相关属性，实现下拉列表选择“男” 和“女”之一。

（5）将“tCustom”表中“邮政编码”和“电话号码”两个字段的数据类型改 为“文本”，将“邮政编码”字段的“输入掩码”属性设置为“邮政编码 ”，将“电话号码”字段的输入掩码属性设置为“010-XXXXXXXX”，其中， “X”为数字位，且只能是0～9之间的数字。 （6）建立五个表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好表对象 “tCourse”、“tSinfo”、“tGrade”和“tStudent”，试按以下要求完成设 计：

（74-2）

（1）创建一个查询，计算每名学生所选课程的学分总和，并显示“姓名”和“ 学分”，其中“学分”为计算出的学分总和，所建查询命名为“qT1”。 （2）创建一个查询，查找未选课的团员学生信息，并显示其“姓名”字段内 容，所建查询命名为“qT2”。

（3）创建一个查询，查找与李红所学课程相同（含部分相同）的学生，并显 示其“姓名”和“课程编号”两列信息，所建查询命名为“qT3”。 （4）创建一个查询，查找所选课的平均成绩超过80（含80）的学生，并将 其“班级编号”、“姓名”和“平均成绩”等值填入“tSinfo”表相 应字段中，所建查询命名为“qT4”。

说明：“班级编号”值是“tStudent”表中“学号”字段的前6位。 要求：创建查询后，运行查询，查看结果。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tOrder”、“tDetail”和“tBook”，查询对象“qSell”，报表对象“rSell ”。请在此基础上按照以下要求补充“rSell”报表的设计：

（49-3）

（1）对报表进行适当设置，使报表显示“qSell”查询中的数据。

（2）对报表进行适当设置，使报表标题栏上显示的文姓名字为“销售情况报表”； 在报表页眉处添加一个标签，标签名为“bTitle”，显示文本为“图书销 售情况表”，字体名称为“黑体”、颜色为褐色（褐色代码为#7A4E2B）、 字号为20，文字不倾斜。

（3）对报表中名称为“txtMoney”的文本框控件进行适当设置，使其显示每本 书的金额（金额=数量*单价）。

（4）在报表适当位置添加一个文本框控件（控件名称为“txtAvg”），计算每 本图书的平均单价。

说明：报表适当位置指报表页脚、页面页脚或组页脚 要求：使用Round函数将计算出的平均单价保留两位小数

（5）在报表页脚处添加一个文本框控件（控件名称为“txtIf”），判断所售图 书的金额合计，如果金额合计大于30000，“txtIf”控件显示“达标”， 否则显示“未达标” 。

注意：不允许修改报表对象“rSell”中未涉及的控件、属性；不允许修 改表对象“tOrder”、“tDetail”和“tBook”，不允许修改查 询对象“qSell”。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第14套：

在考生文件夹下，存在一个数据库文件“samp1.accdb” ，里边已经设计好 了表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”。试按以

下操作要求，完成各种操作：

（41-1）

（1）在“samp1.mdb”数据库中建立一个新表，名为“tNurse”，表结构如下表 所示：

（2）判断并设置表“tNurse”的主键。

（3）设置“护士姓名”字段为必需字段、“工作日期”字段的默认值为系统当 前月的第一天（规定：系统日期必须由函数获取）。设置“护士ID”字段 的有效性规则，保证输入的第一个字符为“N”。

（4）将下表所列数据输入到“tNurse”表中，且显示格式应与下表相同。

（5）向“tDoctor”表“性别”字段中输入数据有如下要求：第一，输入方式 为从下拉列表中选择“男”、或“女”值；第二，初始值为“男”。设置 相关属性以实现这些要求。

（6）通过相关字段建立“tDoctor”、“tOffice”、“tPatient”和“ tSubscribe”等四表之间的关系，同时使用“实施参照完整性”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 表对象“tEmployee”和“tGroup”。试按以下要求完成设计：

（3-2）

（1）创建一个查询，查找并显示没有运动爱好的职工的“编号”、“姓名” 、“性别”、“年龄”和“职务”五个字段内容，所建查询命名为“ qT1”。

（2）创建一个查询，查找并显示聘期超过5年（必须使用函数获取）的开发 部职工的“编号”、“姓名”、“职务”和“聘用时间”四个字段内 容，所建查询命名为“qT2”。

（3）创建一个查询，计算5月份聘用的、男女生每个部门的最小年龄。要 求，第一列显示性别，第一行显示部门名称，所建查询名为“qT3”。 （4）创建一个查询，查找年龄低于所有职工平均年龄并且职务为经理的职 工记录，并显示“管理人员”信息。其中管理人员由“编号”和“姓 名”两列信息合二为一构成（比如，编号为“000011”、姓名为“吴 大伟”的数据输出形式为“000011吴大伟”），所建查询命名为“ qT4”。

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

（55-3）

（1）设置报表“rEmp”按照“年龄”字段升序排列输出；将报表页面页脚区域 内名为“tPage”的文本框控件设置为“第N页，共M页”形式的页码显示

（如第1页，共15页、第2页，共15页、?）。

（2）设置窗体对象“fEmp”背景图像为考生文件夹下的图像文件“photo.bmp” ，并将该图像以平铺方式显示。

（3）在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。 （4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。 在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），计算满足表 达式1+2+3+?+n<=30000的最大n值，并将n的值显示在窗体上名为“tData” 的文本框内并输出到外部文件保存。单击“打开表”命令按钮（名为“ btnQ”），代码调用宏对象“mEmp”以打开数据表“tEmp”。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许 修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性； 只允许在“*****Add*****”与“****Add******”之间的空行内补 充语句、完成设计，不允许增删和修改其它位置已存在的语句。 ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第15套：

在考生文件夹下，存在一个数据库文件“samp1.accdb”，里面已经建立了 表对象“tBook”、“tDetail”、“tEmp”和“tOrder” ，宏对象“mTest”。 试按以下要求，完成各种操作：

（58-1）

（1）将“tOrder”表中“订单ID”字段的数据类型改为“文本”，字段大 小改为10；设置该字段的相关属性，使其在数据表视图中显示为“订 单号”。

（2）向“tOrder”表“订购日期”字段中输入数据有如下要求：第一，输 入格式为“XXXX/XX/XX(如，2011/01/08)”；第二，输入的数据为 2011年1月至8月产生的；第三，当输入的数据不符合要求时，显示“ 输入数据有误，请重新输入”信息。设置相关属性以实现这些要求。 （3）向“tBook”表“类别”字段中输入数据有如下要求：第一，输入方 式为从下拉列表中选择“JSJ”、或“KJ”值；第二，初始值为“ JSJ”。设置相关属性以实现这些要求。

（4）在数据表视图中进行相关设置，使其能够显示出“tEmp”表中所有字 段的数据。

（5）建立“tBook”、“tDetail”、“tEmp”和“tOrder”等四张表之 间的关系，并全部实施参照完整性。

（6）将宏“mTest”重命名，保存为自动执行的宏。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tCourse”、“tScore”和“tStud”，试按以下要求完成设计：

（58-2）

（1）创建一个查询，查找人数为20的班级，并显示“班级编号”和“班级 人数”。所建查询名为“qT1”。 要求：使用“姓名”字段统计人数。

说明：“学号”字段的前8位为班级编号。

（2）创建一个查询，查找平均成绩最高的课程，并显示“课程名”和“平 均成绩”。所建查询名为“qT2”。

要求：使用Round函数实现平均成绩保留整数。

（3）创建一个查询，计算男女生每门课程的最高成绩。要求，第一列显示 性别，第一行显示课程名。所建查询名为“qT3”。

（4）创建一个查询，运行该查询后生成一张新表，表名为“tNew”，表结 构包括“姓名”、“课程名”和“成绩”等三个字段，表内容为90分 以上（包括90分）或不及格的所有学生记录。所建查询名为“qT4”。 要求：

1、所建新表中的记录按照“成绩”降序保存。 2、创建此查询后，运行该查询，并查看运行结果。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tBook”、“tDetail”、“tEmp”和“tOrder”，查询对象“qSell”，窗 体对象“fEmp”。同时还设计出以“qSell”为数据源的报表对象“rSell”。 请在此基础上按照以下要求补充“fEmp”窗体和“rSell”报表的设计

：（58-3）

（1）将“rSell”报表标题栏上的显示文本设置为“销售报表”；对报表中 名称为“txtNum”的文本框控件进行适当设置，使其显示每本书的售 出数量；在报表适当位置添加一个计算控件（控件名称为“txtC2”） ，计算各出版社所售图书的平均单价。

说明：报表适当位置指报表页脚、页面页脚或组页脚。 要求：计算出的平均单价使用函数保留两位小数。

（2）在“fEmp”窗体页眉节区添加一个标签，标签名为“bTitle”，显示 文本为“雇员基本情况查询”，字号为26。

（3）将“fEmp”窗体中命令按钮（名称为“CmdRefer”）上的文字颜色改 为褐色（褐色代码为#7A4E2B）、字体粗细改为“加粗”、文字下方显 示“下划线”。

（4）将“fEmp”窗体中窗体页眉节区控件的Tab键移动次序设置为：“ TxtDetail”→“CmdRefer”。

（5）试根据以下窗体功能要求，补充已给的事件代码，并运行调试。 在“fEmp”窗体的窗体页眉节区有一个文本框控件和一个命令按钮，名称 分别为“TxtDetail”和“CmdRefer”；在主体节区有多个文本框控件，显示 “tBook”表中的相关信息。在“TxtDetail”文本框中输入具体值后，单击“ CmdRefer”命令按钮。如果“TxtDetail”文本框中没有值，则显示提示框， 提示文字为“对不起!未输入雇员姓名，请输入！”；如果“TxtDetail”文 本框中有值，则在“tBook”表中进行查找，如果找到了相应记录，则显示在 主体节对应的文本框控件中,如果没有找到，则显示提示框，提示框显示标题 为“查找结果”，提示文字为“对不起!没有这个雇员!”，提示框中只有一个 “确定”按钮，然后清除“TxtDetail”文本框中的内容，并将光标置于“ TxtDetail”文本框中。

注意：不允许修改报表对象“rSell”中未涉及的控件、属性；不允许修 改表对象“tBook”、、“tDetail” 、“tEmp”和“tOrder”，不允许修改 查询对象“qSell”。不允许修改窗体对象“fEmp”中未涉及的控件、属性和 任何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的空行 内补充一条代码语句、不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第16套：

在考生文件夹下，已有“samp1.accdb”数据库文件和Stab.xls文件， “samp1.mdb”中已建立表对象“student”和“grade”，试按以下要求，完成 表的各种操作：

(66-1) （2-1）

（1）将考生文件夹下的Stab.xls文件导入到“student”表中。

（2）将“student”表中1975年和1976年出生的学生记录删除。

（3）将“student”表中“性别”字段的默认值属性设置为“男”；将“学 号”字段的相关属性设置为只允许输入9位的0-9数字；将姓名中的“ 丽”改为“莉”。

（4）将“student”表拆分为两个新表，表名分别为“tStud”和“tOffice” 。其中“tStud”表结构为：学号，姓名，性别，出生日期，院系，籍贯 ，主键为学号；“tOffice”表结构为：院系，院长，院办电话，主键为 “院系”。

要求：保留“student”表。

（5）在“grade”表中增加一个字段，字段名为“总评成绩”，字段值为： 总评成绩 = 平时成绩*30% + 考试成绩*70%，计算结果的“结果类型” 为“整型”，“格式”为“标准”，“小数位数”为0。 （6）建立“student”和“grade”两表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好一个 表对象“tTeacher”。试按以下要求完成设计：

（66-2）

（1）创建一个查询，计算并显示教师最大年龄与最小年龄的差值，显示标 题为“m_age”，所建查询命名为“qT1”。

（2）创建一个查询，查找工龄不满30年、职称为副教授或教授的教师，并 显示“编号”、“姓名”、“年龄”、“学历”和“职称”五个字段 内容，所建查询命名为“qT2”。 要求：使用函数计算工龄。

（3）创建一个查询，查找年龄低于在职教师平均年龄的在职教师，并显示 “姓名”、“职称”和“系别”三个字段内容，所建查询命名为“ qT3”。

（4）创建一个查询，计算每个系的人数和所占总人数的百分比，并显示“ 系别”、“人数”和“所占百分比（%）”，所建查询命名为“ qT4”。

注意：“人数”和“所占百分比”为显示标题。

要求：①按照编号来统计人数；②计算出的所占百分比以两位整数显 示（使用函数实现）。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tEmployee”和“tGroup”及查询对象“qEmployee”，同时还设计出以“ qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补 充报表设计：

（2-3）

（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“职工基本信息表”。

（2）预览报表时，报表标题显示标签控件“bTitle”的内容，请按照VBA 代码中的指示将代码补充完整。

（3）在“性别”字段标题对应的报表主体节区距上边0.1厘米、距左侧5.2 厘米位置添加一个文本框，显示出“性别”字段值，并命名为“tSex ”； 在报表适当位置添加一个文本框，计算并显示每类职务的平均年 龄，文本框名为tAvg。

注意：报表适当位置是指报表页脚、页面页脚或组页脚。

（4）设置报表主体节区内文本框“tDept”的控件来源属性为计算控件。要 求该控件可以根据报表数据源里的“所属部门”字段值，从非数据源 表对象“tGroup”中检索出对应的部门名称并显示输出。（提示：考 虑DLookup函数的使用。）

注意：不允许修改数据库中的表对象“tEmployee” 和“tGroup”及查询 对象“qEmployee”；不允许修改报表对象“qEmployee”中未涉及 的控件和属性。程序代码只允许在“*******Add******”与“ *******Add******”之间的空行内补充一行语句、完成设计，不允 许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第17套：

在考生文件夹下，已有“samp1.accdb”数据库文件和Teacher.xlsx文件， 试按以下要求，完成表的各种操作：

(68-1)（3-1）

(1) 在考生文件夹下，“samp1.accdb”数据库文件中建立表“tTeacher”， 表结构如下。

(2) 将考生文件夹下的Teacher.xlsx文件导入到“tTeacher”表中，根据 “tTeacher”表的结构，判断并设置主键。

(3) 将“工作时间”字段的有效性规则设置为只能输入上一年度5月1日以 前（含5月1日）的日期（要求：本年度年号必须用函数获取）； 将表 的有效性规则设置为输入的出生日期小于输入的工作时间。

(4) 将“在职否”字段的默认值设置为真值，设置“邮箱密码”字段的输入 掩码为将输入的密码显示为6位星号，设置“联系电话”字段的输入掩 码，要求前四位为“010-”，后八位为数字；将“性别”字段值的输入 设置为“男”、“女”列表选择。

(5) 将工作时间超过30年（不含30）的职工的“在职否”字段值改为“ 否”。

(6) 设置表格式，确保在浏览数据表时，“姓名”字段列不移出屏幕，且 网格线颜色为黑色。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 、“tScore”和一个空表“tTemp”。试 按以下要求完成设计：

（像55）

（1）创建一个查询，查找并输出姓名是三个字的男女学生各自的人数，字段显 示标题为“性别”和“NUM”，所建查询命名为“qT1”。 要求：按照学号来统计人数。

（2）创建一个查询，查找“02”院系还未选课的学生信息，并显示其“学号” 和“姓名”两个字段内容，所建查询命名为“qT2”。

（3）创建一个查询，计算有运动爱好学生的平均分及其与所有学生平均分的差， 并显示“姓名”、“平均分”和“平均分差值”等内容，所建查询命名为 “qT3”。

注意：“平均分”和“平均分差值”由计算得到。

（4）创建一个查询，查找选修了没有先修课程的课程的学生，并将成绩排名前5 位的学生记录追加到表“tTemp”对应字段中，所建查询命名为“qT4”。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好窗体 对象“fTest”及宏对象“m1”。试在此基础上按照以下要求补充窗体设计：

（像3-3）

（1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”， 标题显示为“窗体测试”。

（2）打开窗体时，窗体标题显示内容为：“**月**日####”，请按照VBA代 码中的指示将代码补充完整。

注意：①显示标题中，月和日均为本年度当月和当日，“####”为标 签控件“bTitle”的内容；②显示内容中间及前后不允许出现空格； ③如果月或日小于10，按实际位数显示。

要求：本年度当月和当日的时间必须使用函数获取。

（3）在窗体主体节区内添加二个复选框控件，复选框选项按钮分别命名为“ opt1”和“opt2”，对应的复选框标签显示内容分别为“类型a”和“ 类型b”, 标签名称分别为“bopt1”和“bopt2”；分别设置复选框选 项按钮opt1和opt2的“默认值”属性为假值。

（4）在窗体页脚节区位置添加一个命令按钮，命名为“bTest”，按钮标题 为“测试”；设置命令按钮bTest的单击事件属性为给定的宏对象m1。 注意：不允许修改窗体对象fTest中未涉及的属性；不允许修改宏对象m1。 程序代码只允许在“*******Add******”与“*******Add******” 之间的空行内补充一行语句、完成设计，不允许增删和修改其它位 置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第18套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“ tEmployee”。试按以下操作要求，完成表的编辑：

（61-1）

(1) 根据“tEmployee”表的结构，判断并设置主键；删除表中的“学历”字 段。

(2) 将“出生日期”字段的有效性规则设置为只能输入大于16岁的日期（要 求：必须用函数计算年龄）；将“聘用时间”字段的有效性规则设置为 只能输入上一年度9月1日以前（不含9月1日）的日期（要求：本年度年 号必须用函数获取）；将表的有效性规则设置为输入的出生日期小于输 入的聘用时间。

(3) 在表结构中的“简历”字段后增加一个新字段，字段名称为“在职否”， 字段类型为“是/否”型；将其默认值设置为真。 (4) 将有“书法”好爱的记录全部删除。

(5) 将“职务”字段的输入设置为“职员”、“主管”或“经理”列表选择。 (6) 根据“所属部门”字段的值修改“编号”，“所属部门”为“01”，将 “编号”的第1位改为“1”；“所属部门”为“02”，将“编号”的第1 位改为“2”，依次类推。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 、“tScore”和一个空表“tTemp”。试按 以下要求完成设计：

（61-2）

（1）创建一个查询，统计人数在7人以上（含7）的院系人数，字段显示标题 为“院系号”和“人数”，所建查询命名为“qT1” 。 要求：按照学号来统计人数。

（2）创建一个查询，查找非“04” 院系还未选课的学生信息，并显示“学号” 和“姓名”两个字段内容，所建查询命名为“qT2” 。

（3）创建一个查询，计算组织能力强的学生的平均分及其与所有学生平均分的 差，并显示“姓名”、“平均分”和“平均分差值”等内容，所建查询命 名为“qT3”。

注意：“平均分”和“平均分差值”由计算得到。

要求：“平均分差值”以整数形式显示（使用函数实现）。

（4）创建一个查询，查找选修了有先修课程的课程的学生，并将成绩排在前3 位的学生记录追加到表“tTemp”的对应字段中，所建查询命名为“qT4”。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tTeacher”、窗体对象“fTest”，报表对象“rTeacher”和宏对象“m1”。 试在此基础上按照以下要求补充窗体设计和报表设计：

（61-3）（26-3）

（1）将报表对象rTeacher的报表主体节区中名为“性别”的文本框显示内

容设置为“性别”字段值，并将文本框名称更名为“tSex”。

（2）在报表对象rTeacher的报表页脚节区位置添加一个计算控件，计算并 显示教师的平均年龄。计算控件放置在距上边0.3厘米、距左侧3.6厘 米，命名为“tAvg”。 要求：平均年龄保留整数。

（3）设置“fTest”窗体。打开窗体时，窗体标题显示内容为：“**月**日 ####样例”，请按照VBA代码中的指示将代码补充完整。

注意：①显示标题中，月和日均为本年度当月和当日，“####”为标 签控件“bTitle”的内容；②显示内容中间及前后不允许出现空格； ③如果月或日小于10，按实际位数显示。

要求：本年度当月和当日的时间必须使用函数获取。

（4）设置窗体对象fTest上名为“btest”的命令按钮的单击事件属性为给 定的宏对象m1。

注意：不允许修改数据库中的表对象“tTeacher”和宏对象“m1”；不允许 修改窗体对象“fTest” 和报表对象“rTeacher”中未涉及的控件和 属性。程序代码只允许在“*******Add******”与“*******Add**** **”之间的空行内补充一行语句、完成设计，不允许增删和修改其它 位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第19套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立好表对象“tStud” 和“tScore”、宏对象“mTest”和窗体“fTest”。试按以下要求，完成各种操 作：

（像7-1）

（1）分析并设置表“tScore”的主键；冻结表“tStud”中的“姓名”字段列。 （2）将表“tStud”中的“入校时间”字段的默认值设置为下一年度的9月1日 （要求：本年度的年号必须用函数获取）。

（3）根据表“tStud”中“所属院系”字段的值修改“学号”，“所属院系” 为“01”，将“学号”的第1位改为“1”；“所属院系”为“02”，将“ 学号”的第1位改为“2”，依次类推。

（4）在“tScore”表中增加一个字段，字段名为“总评成绩”，字段值为： 总评成绩 = 平时成绩*40% + 考试成绩*60%，计算结果的“结果类型” 为“整型”，“格式”为“标准”，“小数位数”为0。

（5）将窗体“fTest”的“标题”属性设置为“测试”；将窗体中名为“bt2” 的命令按钮，其宽度设置为2厘米、左边界设置为左边对齐“bt1”命令 按钮。

（6）将宏“mTest”重命名保存为自动执行的宏。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tCollect”、“tpress”和“tType”，试按以下要求完成设计：

（像7-2）

（1）创建一个查询，查找并显示购买“价格”大于100元并且“购买日期”在 2001年以后(含2001年)的“CDID”、“主题名称”、“价格”、“购买日 期”、“介绍”、 “出版单位名称”和“CD类型名称”七个字段的内容， 所建查询名为“qT1”。

（2）创建一个查询，查找收藏品中CD盘最高价格和最低价格，计算两种价格的 差值，并输出，标题显示为“v_Max”、“v_Min”和“价格差”，所建查 询名为“qT2”。

（3）创建一个查询，查找“类型ID”为“02”的CD盘中，价格低于所有CD盘 平均价格的信息，并显示“CDID”和“主题名称”，所建查询名为“ qT3”。

（4）创建一个查询，对“tType”表进行调整，将“类型ID”等于“05”的记 录中的“类型介绍”字段更改为“古典音乐”，所建查询名为“qT4”。 **********************************************************************

考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、查询对象“qEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对 象“mEmp”。试在此基础上按照以下要求补充设计：

无

（1）消除报表的“性别”排序，重新按照职工姓氏进行排列，并在合适页脚区 域添加一个文本框控件（命名为tmAge），输出不同姓氏职工的最小年龄 值。

说明：这里不考虑复姓情况。

（2）将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码/总页数 ”形式的页码显示（如1/35、2/35、...）。

（3）将“fEmp”窗体上名为“bTitle”的标签上移到距“btnP”命令按钮0.5 厘米的位置（即标签的下边界距命令按钮的上边界0.5厘米）。同时，将 窗体按钮“btnP”的单击事件属性设置为宏“mEmp”。

（4）在“fEmp”窗体的左侧有一个名称为“COMBO1”的组合框和两个名称分别 为“btitle1”、“btitle2”的标签。“btitle1”标签用于显示组合框 左侧的标题内容，“btitle2”标签用于显示计算的平均年龄。“COMBO1” 组合框中列出性别值“男”和“女”，当在组合框中选择某一性别值后， 计算该性别的平均年龄，并将计算的结果显示在“btitle2”标签中，显示 内容及格式如下图所示。请按照VBA代码中的指示将代码补充完整。

注意：不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“ fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改 表对象“tEmp”和查询对象“qEmp”中未涉及的字段和属性。程 序代码只允许在“*******Add******”与“*******Add******” 之间的空行内补充一行语句、完成设计，不允许增删和修改其它 位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第20套：

考生文件夹下，已有“samp0.accdb”和“samp1.accdb”数据库文件。 “samp0.accdb”中已建立表对象“tTest”，“samp1.accdb”中已建立表对象 “tEmp”和“tSalary”。试按以下要求，完成表的各种操作：

67-1

（1）根据“tSalary”表的结构，判断并设置主键；将“tSalary”表中的“ 工号”字段的字段大小设置为8。

（2）将“tSalary”表中的“年月”字段的有效性规则设置为只能输入本年 度10月1日以前（不含10月1日）的日期（要求：本年度年号必须用函 数获取）； 将表的有效性规则设置为输入的水电房租费小于输入的工

资。

（3）在“tSalary”表中增加一个字段，字段名为“百分比”，字段值为： 百分比 = 水电房租费 / 工资，计算结果的“结果类型”为“双精 度型”，“格式”为“百分比”，“小数位数”为2。

（4）将表“tEmp”中“聘用时间”字段改名为“聘用日期”；将“性别” 字段值的输入设置为“男”、“女”列表选择；将“姓名”和“年龄 ”两个字段的显示宽度设置为20；将善于交际的职工记录从有关表中 删除；隐藏“简历”字段列。

（5）完成上述操作后，建立表对象“tEmp”和“tSalary”的表间一对多 关系，并实施参照完整。

（6）将考生文件夹下“samp0.accdb”数据库文件中的表对象“tTest” 链接到“samp1.accdb”数据库文件中，要求链接表对象重命名为 tTemp。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tCourse”、“tGrade”、“tStudent”和一个空表“tSinfo”， 同时还有两个窗体“tStudent”和“tGrade 子窗体”，试按以下要求完成设计：

67-2

（1）创建一个查询，查找年龄小于所有学生平均年龄的男学生，并显示其“姓 名”，所建查询名为“qT1”。

（2）创建一个查询，计算“北京五中”每名学生的总成绩和所占全部学生总成 绩的百分比，并显示“姓名”、“成绩合计”和“所占百分比”，所建查 询命名为“qT2”。

注意：“成绩合计”和“所占百分比”为计算得到。

要求：将计算出的“所占百分比”设置为百分比显示格式，小数位数为2。 （3）创建一个查询，将所有学生的“班级编号”、“学号”、“课程名”和“ 成绩”等值填入“tSinfo”表相应字段中，其中“班级编号”值是 “tStudent”表中“学号”字段的前6位，所建查询名为“qT3”。

（4）窗体“tStudent”和“tGrade 子窗体”中各有一个文本框控件，名称分别 为“tCountZ”和“tCount”。对两个文本框进行设置，能够在“tCountZ” 文本框中显示出每名学生的所选课程数。

注意：不允许修改窗体对象“tStudent”和“tGrade 子窗体”中未涉及 的控件和属性。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tCollect”，同时还设计出以“tCollect”为数据源的窗体对象“ fCollect”。 试在此基础上按照以下要求补充窗体设计：

（1）将窗体“fCollect”的记录源设置为根据输入的“CDID”，查找“CDID” 、“主题名称”、“价格”、“购买日期”、“出版单位ID”和“介绍” 等字段的数据。

注意：输入提示参数为“请输入CDID：”。

（2）在窗体“fCollect”的窗体页眉节区位置添加一个标签控件，其名称为 “bTitle”，标题显示为“CD明细”，字体名称为“黑体”，字号为 14，字体粗细为“加粗”。

（3）打开窗体时，将窗体标题栏上的显示文字设为“CD明细显示”，请按 照VBA代码中的指示将代码补充完整。

要求：①显示文字中的“CD明细”使用“bTitle”标签控件的内容。 ②将程序代码填写在“*******Add******”与“*******Add******” 之间的空行内，只允许补充一行语句。

（4）在窗体页脚节区位置添加一个命令按钮，命名为“bC”，按钮标题为 “改变颜色”；设置所建命令按钮bC的单击事件，使用户单击该命令 按钮后，CDID标签的文字显示颜色改为红色。要求用VBA代码实现。 注意：不允许修改窗体对象“fCollect”中未涉及的控件和属性；不 允许修改表对象“tCollect”。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第21套：

考生文件夹下存在一个数据库文件“samp1.accdb”，里面已经设计好表对 象“tStud”和“tScore”，窗体对象“fTest”和宏对象 mTest。并按照以下 要求完成操作：

62-1

（1）将表“tStud”中“学号”字段的字段大小改为7；将“性别”字段的输入 设置为“男”或“女”列表选择；将“入校时间”字段的默认值设置为本 年度的1月1日（要求：本年度年号必须用函数获取）。

（2）将表“tStud”中1995年入校的学生记录删除；根据“所属院系”字段的值 修改学号，“所属院系”为“01”，将原学号前加“1”；“所属院系”为 “02”，将原学号前加“2”，依次类推。

（3）将“tStud”表的“所属院系”字段的显示宽度设置为15；将“简历”字段 隐藏起来。

（4）将“tScore”表的“课程号”字段的输入掩码设置为只能输入5位数字或字 形母式；将“成绩”字段的有效性规则设置为只能输入0～100（包含0和 100）之间的数字。

（5）分析并建立表“tStud”与表“tScore”之间的关系。

（6）将窗体“fTest”中显示标题为“Button1”的命令按钮改为显示“按钮”, 同时将其设置为灰色无效状态。

********************************************************************* 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tStud”、“tCourse”、“tScore”和“tTemp”。试按以下要求完成设计：

62-2

（1）创建一个查询，当运行该查询时，应显示参数提示信息“请输入爱好”， 输入爱好后，在简历字段中查找具有指定爱好的学生，显示“姓名”、 “性别”、“年龄”、“课程名”和“成绩”五个字段内容，所建查询命 名为“qT1”。

（2）创建一个查询，查找平均成绩低于所有学生平均成绩的学生信息，并显 示“学号”、“平均成绩”和“相差分数”三列内容，其中“平均成绩” 和“相差分数”两列数据由计算得到，所建查询命名为“qT2”。

（3）创建一个查询，查找“04”院系没有任何选课信息的学生，并显示其“姓 名”字段的内容，所建查询命名为“qT3”。

（4）创建一个查询，将表“tStud”中组织能力强、年龄最小的3个女学生的信 息追加到“tTemp”表对应的字段中，所建查询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“产品”、“供应商”、查询对象“按供应商查询”，窗体对象“characterS ”和宏对象“打开产品表”、“运行查询”、“关闭窗口”。试按以下要求完成 设计：

（62-3）

1. 创建一个名为“menu”的窗体，要求如下：

（1）对窗体进行如下设置：在距窗体左边1厘米、距上边0.6厘米处依次水平放 置三个命令按钮“显示产品表”（名为“bt1”）、“查询”（名为“bt2 ”）和“退出”（名为“bt3”），命令按钮的宽度均为2厘米，高度为1.5 厘米，每个命令按钮相隔1厘米。 （2）设置窗体标题为“主菜单”。

（3）当单击“显示产品表”命令按钮时，运行宏“打开产品表”，就可以浏览 “产品”表；当单击“查询”命令按钮时，运行宏“运行查询”，即可启 动查询“按供应商查询”；当单击“退出”命令按钮时，运行宏“关闭窗 口”，关闭“menu”窗体。

2. 窗体“characterS”中有两个文本框，名称分别为“bTxt1”和“bTxt2”， 还有一个命令按钮，名称为“bC”。窗体功能为：单击“bC”按钮将“

bTxt1”文本框中已输入的字符串反向显示在“bTxt2”文本框中。请按照 VBA代码中的指示将代码补充完整。

注意：不允许修改数据库中的表对象“产品”、“供应商”、查询对象“ 按供应商查询”和宏对象“打开产品表”、“运行查询”、“关闭 窗口”；不允许修改窗体对象“characterS”中未涉及的控件和属 性。程序代码只允许在“*******Add******”与“*******Add**** **”之间的空行内补充一行语句、完成设计，不允许增删和修改其 它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第22套：

考生文件夹下存在一个数据库文件“samp1.accdb”，里面已经设计好表对 象“tEmployee”和窗体对象“fList”。试按以下要求完成编辑：

63-1

(1) 根据“tEmployee”表的结构，判断并设置主键；将“编号”字段的字段 大小改为7；删除“照片”字段。

(2) 设置“性别”字段的“有效性规则”属性为只能输入“男”或“女”； 设置“年龄”字段的“输入掩码”为只能输入两位数字，并设置其默认 值为19；设置“工作时间”的“有效性规则”属性为只能输入当前时间 之前的时间（含当前时间）。

(3) 设置“职务”字段的输入为“职员”、“主管”或“经理”列表选择。 (4) 删除有“摄影”爱好的员工记录。

(5) 根据“所属部门”字段的值修改“编号”，“所属部门”为“01”，将 原“编号”前加“1”；“所属部门”为“02”，将原“编号”前加“2 ”，依次类推。

(6) 设置“fList”窗体中“Txt”文本框的相关属性，使其在窗体打开时输 出“tEmployee”表里员工张娜的“简历”内容。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对象“tEmployee”、“tOrder”、“tDetail”和“tBook”，试按以下要求完成 设计：

63-2

（1）创建一个查询，查找7月出生的雇员，并显示姓名、书籍名称、数量， 所建查询名为“qT1”。

（2）创建一个查询，计算每名雇员的奖金，并显示“姓名”和“奖金额”， 所建查询名为“qT2”。

注意：奖金额=每名雇员的销售金额合计数×0.08 销售金额=数量*售出单价

要求：使用相关函数实现奖金额按2位小数显示。

（3）创建一个查询，统计并显示该公司没有销售业绩的雇员人数，显示标题 为“没有销售业绩的雇员人数”，所建查询名为“qT3”。 要求：使用关联表的主键或外键进行相关统计操作。

（4）创建一个查询，计算并显示每名雇员各月售书的总金额，显示时行标题 为“月份”，列标题为“姓名”，所建查询名为“qT4”。 注意：金额=数量*售出单价

要求：使用相关函数，使计算出的总金额按整数显示。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象“tBand”和“tLine”，同时还设计出以“tBand”和“tLine”为数据源的 报表对象“rBand”。试在此基础上按照以下要求补充报表设计：

（69-3）（ （1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle” ，标题显示为“旅游线路信息表”，字体名称为“宋体”，字体大小 为22，字体粗细为“加粗”，倾斜字体为“是”。

（2）预览报表时，报表标题显示为：“**月#######”，请按照VBA代码中 的指示将代码补充完整。

注意：①显示标题中的月为本年度当月，“#######”为标签控件“

63-3）

bTitle”的内容；②如果月份小于10，按实际位数显示。 要求：本年度当月的时间必须使用函数获取。

（3）在“导游姓名”字段标题对应的报表主体区位置添加一个控件，显 示出“导游姓名”字段值，并命名为“tName”。

（4）在报表适当位置添加一个文本框控件，计算并显示每个导游带团的 平均费用，文本框控件名称为tAvg。

注意：报表适当位置是指报表页脚、页面页脚或组页脚。

注意：不允许改动数据库文件中的表对象“tBand”和“tLine”，同时 也不允许修改报表对象“rBand”中已有的控件和属性。程序代码 只允许在“*******Add******”与“*******Add******”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已 存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第23套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象(名为“fEmp”)。试按以下要求顺 序，完成表及窗体的各种操作：

64-1

（1）设置“员工表”职务字段值的输入方式为从下拉列表中选择“经理”、“ 主管”或“职员”选项值。

（2）分析员工的聘用时间，将截止到2013年聘用期超过30年（含30年）的员工 其“说明”字段的值设置为“老职工”。

要求：判断员工的聘用期，不考虑月日因素。比如，聘用时间在2007年的 员工，其聘用期为6年。

（3）将“员工表”姓名字段中的所有“小”字改为“晓”。

（4）将“员工表”中男职工的前四列信息（编号，姓名，性别，年龄）导出到 考生文件夹下，以文本文件形式保存，命名为Test.txt。 要求：各数据项间以逗号分隔，第一行包含字段名称。

（5）建立“员工表”和“部门表”的表间关系，并实施参照完整。

（6）将窗体对象“fEmp”的记录源设置为表对象“员工表”；设置系统相关属 性，实现窗体对象“fEmp”打开时以重叠窗口形式显示。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tEmployee”、“tSell”和“tBook”，试按以下要求完成设计：

64-2

（1）创建一个查询，查找并显示单价高于平均单价的图书“书名”和“出版社 名称”二个字段内容，所建查询名为“qT1”。

（2）创建一个查询，按输入的售出日期查找某日期的售书情况，并按数量降序 显示“姓名”、“书名”、“数量”三个字段的内容，所建查询名为

“qT2”；当运行该查询时，应显示参数提示信息：“请输入售出日期”。 （3）创建一个查询，查找双子星座出生雇员的图书销售信息，显示“姓名”、 “售出日期”和“书名”三个字段的内容，所建查询名为“qT3”。 说明：双子星座是指5月21日（含）到6月21日（含）的日期段。

（4）创建一个查询，统计图书销售额超过2500（含）的雇员信息，并显示“姓 名”和“销售额”两个字段的内容，所建查询名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStudent” 和“tGrade”，同时还设计出窗体对象“fGrade”和“ fStudent”。请在此基础上按照以下要求补充“fStudent”窗体的设计：

64-3

（1）将“fStudent”窗体标题改为“团员信息显示”， 边框改为“对话框边 框”样式，取消窗体中的水平和垂直滚动条。

（2）将名称为“标签15”的标签控件名称改为“tStud”,标题改为“团员成绩”。 （3）在“fStudent”窗体装载事件中，代码设置相关属性完成团员信息输出。 （4）在“fStudent”窗体打开事件中，代码设置“子对象”控件的源对象属 性为“fGrade”窗体，并取消其“导航按钮”。

（5）单击“fStudent”窗体的“退出”命令按钮（名称为bQuit），应关闭窗 体。系统已提供了部分VBA代码，请按照VBA代码中的指示将代码补充完 整。

注意：不允许修改窗体对象“fGrade”和“fStudent”中未涉及的控件、 ；属性不允许修改表对象“tStudent” 和“tGrade”。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一条代码语句、不允许增删和修改其它位置已存在的语 句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第24套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立好表对象“tStud” 和“tScore”、宏对象“mTest”和窗体“fTest”。试按以下要求，完成各种 操作：

（42-1）

（1）分析表对象“tScore”的字段构成、判断并设置其主键。

（2）删除 “tStud” 表结构的“照片”字段列、在“简历”字段之前增添一 个新字段（字段名称：团员否 数据类型：“是/否”型）。

（3）隐藏“tStud”中的“所属院系”字段列；将年龄字段的默认值设置为现 有记录中人数最多的学生年龄值。

（4）将考生文件夹下文本文件Test.txt中的数据导入到当前数据库中。其中， 第一行数据是字段名，导入的数据以“tTest”数据表命名保存。

（5）将窗体“fTest”中名为“bt2”的命令按钮，其高度设置为1厘米、左边 界设置为左边对齐“bt1”命令按钮；设置相关属性，当打开窗体“fTest ”时使“bt2” 命令按钮处于不可用状态。 （6）将宏“mTest”重命名为自动运行的宏。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse”和“tScore”。此外，还提供窗体“fTest ”，试按以下要求完成设计：

（68-2）

（1）创建一个查询，查找第三季度入校的学生信息，输出其“姓名”、“年龄 ”和“性别”三个字段内容，所建查询命名为“qT1”。

（2）创建一个查询，查找年龄在所有学生平均年龄上下2岁（含）范围内的信 息，输出其“姓名”、“课程名”和“成绩”三个字段内容，所建查询命 名为“qT2” 。

（3）创建生成表查询，组成字段是没有任何爱好学生的“学号”、“姓名”和 “入校年”三列内容（其中“入校年”数据由“入校时间”字段计算得到 ，显示为四位数字年的形式），生成的数据表命名为“tTemp”，所建查询 命名为“qT3”。

（4）补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码， 实现以下功能：

当单击按钮“test1”，将文本框中输入的内容与文本串“等级考试测试” 连接并消除连接串的前导和尾随空白字符，用标签“bTitle”显示连接结 果。

注意：不允许修改窗体对象“fTest”中未涉及的控件和属性；只允许在“ *****Add1*****”与“*****Add1*****”之间的空行内补充语句、 完成设计。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tEmployee”和查询对象“qEmployee”，同时还设计出以“qEmployee”为 数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计：

68-3

（1）在报表的合适页脚区域添加一个计算控件，以输出页码。计算控件放 置在距上边0.3厘米、距左侧7厘米位置，并命名为“tPage”。规定 页码显示格式为“当前页/总页数”，如1/20、2/20、...、20/20等。

（2）报表的报表页眉节区位置添加一个标签控件，其标题显示为 “Employee基本信息”，字号为24，并命名为“bTitle”。

（3）在相关事件代码中，设置报表标题为引用标签“bTitle”的值。同时， 将其中的英文内容部分大写输出。

（4）在相关事件代码中，依据报表“聘用时间”字段值情况，设置报 表文本框“tStatus”的输出内容。具体规定是：截止2012年，聘用 期在30年（含）以上的员工，输出“老员工”标示信息；否则，输出 “普通员工”标示信息。

注意：不允许修改数据库中的表对象“tEmployee”和查询对象“

qEmployee”；不允许修改报表对象“rEmployee”中未涉及的控件 和属性；代码只允许在“*****Add*****”与“*****Add*****”之 间的空行内补充一条语句、完成设计。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第25套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）。试按以下要求，顺序完成表的各种操作：

（65-1）

（1）将“员工表”的行高设为15。

（2）设置表对象“员工表”的年龄字段有效性规则为：大于17且小于65（不含 17和65）；同时设置相应有效性文本为“请输入有效年龄”。

（3）在表对象“员工表”的年龄和职务两字段之间新增一个字段，字段名称为 “密码”，数据类型为文本，字段大小为6，同时，要求设置输入掩码使 其以密码方式显示。

（4）查找年龄在平均年龄上下1岁（含）范围内的员工，其简历信息后追加“ (平均)”文字标示信息。

（5）设置表对象“员工表”的聘用时间字段默认值为：系统日期当前年当前 月的1号；冻结表对象“员工表”的姓名字段。

（6）建立表对象“员工表”和“部门表”的表间关系，实施参照完整性。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 和“tScore”及一个临时表对象“tTemp” 。试按以下要求完成设计：65-2

（1）创建一个查询，查找并显示入校时间非空且年龄最大的男同学信息，输出 其“学号”、“姓名”和“所属院系”三个字段内容，所建查询命名为“ qT1” 。

（2）创建一个查询，查找姓名由三个或三个以上字符构成的学生信息，输出其 “姓名”和“课程名”两个字段内容，所建查询命名为“qT2” 。

（3）创建一个查询，行标题显示学生性别，列标题显示所属院系，统计出男女 学生在各院系的平均年龄，所建查询命名为“qT3”。

（4）创建一个查询，将临时表对象“tTemp”中年龄为偶数的主管人员的“简 历”字段清空，所建查询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时， 给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的 单击事件代码，试按以下功能要求补充设计。

（65-3）（19-3）

（1）将窗体“fEmp”上标签“bTitle”以特殊效果：阴影显示。

（2）已知窗体“fEmp”的三个命令按钮中，按钮“bt1” 和“bt3”的大小一 致、且左对齐。现要求在不更改“bt1” 和“bt3”大小位置的基础上， 调整按钮“bt2”的大小和位置，使其大小与“bt1” 和“bt3”相同， 水平方向左对齐“bt1” 和“bt3”，竖直方向在“bt1” 和“bt3”之 间的位置。

（3）设置系统相关属性，实现窗体对象“fEmp”打开时以重叠窗口形式显示；

设置报表对象“rEmp”的记录源属性为表对象“tEmp”。

（4）在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示； 单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”）， 事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表 预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏 “mEmp”来关闭窗体。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许 修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。 程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已存 在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第26套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象（名为“fTest”）及一个宏对象（ 名为“mTest”）。试按以下要求，按顺序完成对象的各种操作：

（像20-1）

（1）删除表对象“员工表”的照片字段。

（2）设置表对象“员工表”的年龄字段有效性规则为：非空且不低于16；同时 设置相应有效性文本为“请输入合适年龄”。

（3）设置表对象“员工表”的聘用时间字段的默认值为：系统当前日期次年的 同月同日。

（4）查找出“员工表”的各个部门中年龄最大的男员工和女员工，在其对应简 历字段值后追加“***”标记字符。

（5）设置窗体对象（名为“fTest”）相关属性，实现不允许在窗体上添加新 记录的操作。

（6）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建 立正确关系；将宏对象（名为“mTest”）重命名为可自动运行的宏。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tCourse”、“tGrade”、“tStudent”和一个空表“tTemp”，试 按以下要求完成设计：

（无）

（1）创建一个查询，查找并显示所选课程均不及格的学生信息，输出其“学号” 字段内容，所建查询命名为“qT1”。

（2）创建一个查询，统计没有选课的学生人数，输出标题为“未选数”，所建 查询命名为“qT2”。

要求用“学号”字段进行计数计算。

（3）创建一个查询，统计每班每门课程的平均成绩。要求结果用round函数取整， 显示结果如下图所示，所建查询命名为“qT3”。

（4）创建一个查询，将下半年出生男学生的“班级”、“姓名”、“性别”、 “课程名”和“成绩”等信息追加到“tTemp” 表的对应字段中，所建查 询命名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时， 给出窗体对象“fEmp”的若干事件代码，试按以下功能要求补充设计：

（66-3）

（1）设置系统相关属性，实现打开的窗体以重叠窗口形式显示；设置窗体对象 “fEmp”上两个命令按钮的Tab键索引顺序（即Tab键焦点移动顺序）为从 “报表输出”按钮（名为“bt1”）到“退出”按钮（名为“bt2”）。 （2）调整窗体对象“fEmp”上“退出”按钮（名为“bt2”）的大小和位置， 要求大小与“报表输出”按钮（名为“bt1”）一致，且上边对齐“报表 输出”按钮，左边距离“报表输出”按钮1厘米（即“bt2”钮的左边距 离“bt１”钮的右边1厘米）。

（3）将报表记录数据按照先姓名升序再年龄降序排列显示；设置相关属性，将 页面页脚区域内名为“tPage”的文本框控件实现以下格式的页码输出： \。

（4）加载窗体时，代码将“bTitle”标签的标题重置为“员工最大年龄差为 XXX”，其中“XXX”是从“tEmp”表中获取计算得到；单击“报表输出” 按钮，事件代码会弹出下图显示的消息框，以选择是否进行预览报表“ rEmp”；单击“退出”按钮，调用设计好的宏“mEmp”来关闭窗体。根 据以上描述，将VBA代码补充完整。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许 修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。 程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已存 在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第27套：

在考生文件夹下，存在一个数据库文件“samp1.accdb” 、一个Excel文件 “tScore.xls”和一个图像文件“photo.bmp”。在数据库文件中已经建立了一 个表对象“tStud”。试按以下操作要求，完成各种操作：

（69-1）

（1）设置“ID”字段为主键；设置“ID”字段的相应属性，使该字段在数据表 视图中的显示标题为“学号”。

（2）将“年龄”字段的默认值属性设置为表中现有记录学生的平均年龄值（四 舍五入取整），“入校时间”字段的格式属性设置为“长日期”。

（3）设置“入校时间”字段的有效性规则和有效性文本。有效性规则为：输入 的入校时间必须为9月；有效性文本内容为“输入的月份有误，请重新输 入”。

（4）将学号为“20041002”学生的“照片”字段值设置为考生文件夹下的“ photo.bmp”图像文件（要求使用“由文件创建”方式）。

（5）将“政治面目”字段改为下拉列表选择，选项为“团员”、“党员”和“ 其他”三项。

（6）将考生文件夹下的“tScore.xlsx”文件导入到“samp1.mdb”数据库文件 中，第一行包含列标题，表名同excel文档主文件名，主键为表中的“ID” 字段。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tStud”、“tScore”和“tCourse”，试按以下要求完成设计：

（69-2）

（1）创建一个查询，查找年龄低于所有学生平均年龄的学生党员信息，输出其 “姓名”、“性别”和“入校时间”。所建查询命名为“qT1”。

（2）创建一个查询，按学生姓氏查找学生的信息，并显示“姓名”、“课程名 ”和“成绩”。当运行该查询时，应显示提示信息：“请输入学生姓氏” 。所建查询命名为“qT2”。 说明：这里不用考虑复姓情况。

（3）创建一个查询，第一列显示学生性别，第一行显示课程名称，以统计并显 示各门课程男女生的平均成绩。要求计算结果用round函数取整，所建查 询命名为“qT3”。

（4）创建一个查询，运行该查询后生成一个新表，表名为“tTemp”，表结构 包括“学号”和“平均成绩”两个字段，表内容为选课平均成绩及格的 学生记录。所建查询命名为“qT4”。要求创建此查询后，运行该查询， 并查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：

像46-3

（1）在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线 控件，控件宽度为10.5厘米，控件命名为“tLine”。

（2）将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色\（ 蓝色 代码为#0072BC）、字体名称改为“华文行楷”、字体大小改为22。 （3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录 选择器、导航按钮和分隔线，并且只保留窗体的关闭按钮。

（4）假设“tStud”表中，“学号”字段的第5位和6位编码代表该生的专业信息 ，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理” 专业。设置窗体中名称为“tSub”的文本框控件的相应属性，使其根据“ 学号”字段的第5位和第6位编码显示对应的专业名称。

（5）在窗体相关事件中，代码重置窗体标题为“XXXX年度党员学生信息”，这 里XXXX为系统日期四位当前年；代码设置窗体的记录源为表对象“tStud” 中的党员信息。请按照VBA代码中的指示将实现此功能的代码填入指定的 位置中。

（6）在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,其功能为关闭“ fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位 置中。

注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代 码；不允许修改表对象“tStud”；

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第28套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象（名为“fTest”）及一个宏对象（ 名为“mTest”）。试按以下要求，按顺序完成对象的各种操作：

（像56-1）

（1）将编号为“000002”员工的“照片”字段值设置为考生文件夹下的“ photo.bmp”图像文件（要求使用“由文件创建”方式）。

（2）设置表对象“员工表”的有效性规则为：员工聘用时必须年满16岁；同时 设置相应有效性文本为“请合法聘用员工”。 说明：一年的天数=365.24天

（3）设置表对象“员工表”的聘用时间字段的默认值为：系统当前日期次年的 同月1日。

（4）查找出“员工表”中聘用时年龄最小和最大的男女员工，在其对应简历字 段值后追加“***”标记字符。

（5）设置窗体对象“fTest”的“筛选”属性，实现窗体男员工信息输出；设 置相关属性，实现窗体对象（名为“fTest”）上的记录数据不允许编辑 的操作。

（6）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建 立正确关系；将宏对象（名为“mTest”）重命名为可自动运行的宏。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tQuota”和“tStock”，试按以下要求完成设计：

无

（1）创建一个查询，查找库存数量高于所有产品平均库存数的产品，输出其“ 产品名称”、“规格”、“库存数量”和“最高储备”等字段内容，查询 名为qT1。

（2）创建一个查询，统计某类产品的库存情况，并显示“产品类别”、“产品 名称”和“库存数量”三列内容，所建查询名为“qT2”；当运行该查询 时，提示框中应显示“请输入产品类别”。 说明：产品类别为“产品ID”字段值的第1位。

（3）创建一个查询，查找库存数量不在合理储备范围内的产品，并显示“产品 名称”、“规格”、“库存数量”、 “最低储备”和“最高储备”四个 字段内容。所建查询名为“qT3”。

（4）创建一个查询，统计每类产品不同单位的库存金额总计。要求，行标题显 “产品名称”，列标题显示“单位”。所建查询名为“qT4”。 示说明：库存金额=单价×库存数量。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以 下要求补充“fSys”窗体和“rStud”报表的设计：

无

（1）在“rStud”报表的报表页眉节区位置添加一个标签控件，其名称为“ rTitle”，其显示文本为“非团员基本信息表”；将报表标题栏上的显 示文本设置为“非团员信息”；将名称为“tSex”的文本框控件的输出 内容设置为“性别”字段值。在报表页脚节区添加一个计算控件，其名 称为“tCount”,显示报表学生人数。

（2）将“fSys”窗体的边框样式设置为“细边框”，取消窗体中的水平和垂 直滚动条、导航按钮、记录选择器、分隔线、最大化按钮和最小化按钮。 （3）将“fSys”窗体中“用户名称”（名称为“lUser”）和“用户口令” （名称为“lPass”）两个标签上的文字颜色改为红色（红色代码为 #FF0000)、字体粗细改为“加粗”。

（4）将“fSys”窗体中名称为“tPass”的文本框控件的内容以密码形式显 示；将名称为“cmdEnter”的命令按钮从灰色状态设为可用；将控件的 Tab移动次序设置为：“tUser”→“tPass” →“cmdEnter” → “cmdQuit”。

（5）试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行调试。 在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“ tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“ cmdEnter”和“cmdQuit”。 窗体加载时，重置“bTitle”标签的标题为“非 团员人数为XX”,这里XX为从表查询计算得到；在输入用户名称和用户密码后 ，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为 “csy”，用户密码为“1129”，则显示提示框，提示框标题为“欢迎”，显 示内容为“密码输入正确，打开报表！”，单击“确定”按钮关闭提示框后， 打开“rStud”报表，代码设置其数据源输出非团员学生信息；如果输入不正 确，则提示框显示“密码错误！”，同时清除“tUser”和“tPass”两个文本 框中的内容，并将光标移至“tUser”文本框中。当单击窗体上的“退出”按 钮后，关闭当前窗体。

以上涉及计数操作统一要求用“*”进行。

注意：不允许修改报表对象“rStud”中已有的控件和属性；不允许修改 表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性和任 何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的空行内 补充一条代码语句、不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第29套：

在考生文件夹下，存在一个数据库文件“samp1.accdb”。在数据库文件中 已经建立了两个表对象“tStock”和“tQuota”。试按以下操作要求，完成各 种操作：

（像48-1）

（1）在“tStock”表的“产品名称”和“规格”字段之间增加“单位”字段， 该字段的数据类型为文本，字段大小为1；将新添加到“tStock”表中的 记录的“单位”字段默认值设置为“只”。

（2）设置“tStock”表的“规格”字段的输入掩码属性，输入掩码的格式为： “220V- W”。其中，“-”与“W”之间为两位，且只能输入0～9之间 的数字。

（3）设置“tQuota”表的有效性规则为：产品最高储备是最低储备的10倍或 10倍以上；对应有效性文本为“请合理设置产品最高最低储备值”。 （4）分析产品的库存金额（库存金额=出厂价*库存数量），查出最大值和最小 值金额产品，在其“说明”字段中输入“***”标记字符。

（5）将“tQuota”表的单元格效果改为“凹陷”，字体改为“黑体” （6）建立“tQuota”表与“tStock”表之间的关系，并实施参照完整性。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tQuota”和“tStock”，试按以下要求完成设计：

48-2

（1）创建一个查询，查找库存数量距离对应最高和最低储备中间值最近的产品 信息，输出其“产品名称”、“规格”、“库存数量”、“最高储备”和 “最低储备”等字段内容，查询名为qT1。

（2）创建一个查询，计算每类产品库存金额合计，并显示“产品名称”和“库 存金额”两列数据。所建查询名为“qT2”。 说明：库存金额=单价×库存数量。

（3）创建一个查询，查找单价低于平均单价的产品，并按“产品名称”升序和 “单价”降序显示“产品名称”、“规格”、“单价”和“库存数量”等 字段内容。所建查询名为“qT3”。

（4）创建一个查询，运行该查询后可将“tStock”表中所有记录的“单位”字 段值设为“只”。所建查询名为“qT4”。要求创建此查询后，运行该查 询，并查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tBorrow”、“tReader”和“tBook”，查询对象“qT”，窗体对象“fReader ” 和报表对象“rReader”。请在此基础上按照以下要求补充设 计：

67-3

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

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

（3）设置窗体“bList”按钮的标题为“高级读者信息”；单击该按钮，其事件 代码预览方式打开“rReader”报表，条件输出高级读者（职称为“教授” 和“副教授”的读者）借阅信息。

（4）窗体加载时设置窗体标题属性为系统当前日期，设置“fTitle”标签的标 题为“读者借阅信息”。

注意：不允许修改窗体对象“fReader”和报表对象“rReader”中未涉及

的控件和属性；不允许修改表对象“tBorrow”、“tReader”和“ tBook”及查询对象“qT”的内容；

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第30套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象（名为“fTest”）及一个宏对象（ 名为“mTest”）。试按以下要求，按顺序完成对象的各种操作：

（像20-1）

（1）删除表对象“员工表”的照片字段。

（2）设置表对象“员工表”的年龄字段有效性规则为：非空且不高于60；同时 设置相应有效性文本为“请输入合适年龄”。

（3）设置表对象“员工表”的聘用时间字段的默认值为：系统当前日期当年当 月的最后一天。

（4）查找出“员工表”的各个部门中年龄最小的男员工和女员工，在其对应简 历字段值后追加“***”标记字符。

（5）设置相关属性，实现窗体对象（名为“fTest”）上的记录数据不允许删 除的操作。

（6）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建 立正确关系；将宏对象（名为“mTest”）重命名为可自动运行的宏。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表 对象“tQuota”和“tStock”，试按以下要求完成设计：

（59-2）

（1）创建一个查询，按照产品名称统计库存总数超过10万箱的产品总库存 数量，并显示“产品名称”和“库存数量合计”。所建查询名为“ qT1”。

（2）创建一个查询，查找各类产品中平均单价最高的产品，并显示其“产 品名称”。所建查询名为“qT2”。

（3）创建一个查询，查找“最高储备”和“最低储备”相差值低于所有产 品最高最低储备差平均值的产品，显示其“产品名称”和“规格”两 个字段内容。所建查询名为“qT3”。

（4）创建一个查询，运行该查询后生成一张新表，表名为“tNew”，表结 构为“产品ID”、“产品名称”、“单价”、“库存数量”、“最高 储备”和“最低储备”等六个字段，表内容为库存数高于最高储备数 量或低于最低储备数量的所有产品记录。所建查询名为“qT4”。 要求：

1. 所建新表中的记录按照“产品ID”升序保存。 2. 创建此查询后，运行该查询，并查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表 对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按 照以下要求补充“fSys”窗体和“rStud”报表的设计：

59-3

（1）在“rStud”报表的报表页眉节区位置添加一个标签控件，其名称为 “bTitle”，其显示文本为“团员基本信息报表”；将报表标题栏上 的显示文本设置为“团员基本信息”；将名称为“tSex”的文本框控 件的输出内容设置为“性别”字段值。在报表页脚节区添加一个计算 控件，其名称为“tAvg”,显示学生的平均年龄。

（2）将“fSys”窗体的边框样式设置为“对话框边框”，取消窗体中的水 平和垂直滚动条、导航按钮、记录选择器、分隔线、控制框、关闭按 钮、最大化按钮和最小化按钮。

（3）将“fSys”窗体中“用户名称”（名称为“lUser”）和“用户口令

”（名称为“lPass”）两个标签上的文字颜色改为蓝色（蓝色代码 为#0072BC)、字体粗细改为“加粗”。

（4）将“fSys”窗体中名称为“tPass”的文本框控件的内容以密码形式 显示；将名称为“cmdEnter”的命令按钮从灰色状态设为可用；将 控件的Tab移动次序设置为：“tUser”→“tPass” →“cmdEnter” → “cmdQuit”。

（5）试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行 调试。

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“ tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别 为“cmdEnter”和“cmdQuit”。 窗体加载时，重置窗体标题为“系统登 录”；在输入用户名称和用户密码后，单击“确定”按钮，程序将判断输 入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”， 则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，打 开报表！”，单击“确定”按钮关闭提示框后，打开“rStud”报表输出团 员学生信息；如果输入不正确，则提示框显示“密码错误！”，同时清除 “tUser”和“tPass”两个文本框中的内容，并将光标移至“tUser”文 本框中。当单击窗体上的“退出”按钮后，关闭当前窗体。

注意：不允许修改报表对象“rStud”中已有的控件和属性；不允许修 改表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性 和任何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一条代码语句、不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第31套：

考生文件夹下存在一个数据库文件“samp1.mdb”，里面已经设计好表对象 “tStud”。请按照以下要求，完成对表的修改：

（71-1）

（1）将“年龄”字段的字段大小改为“整型”；将“简历”字段的说明设置 为“自上大学起的简历信息”；将“备注”字段删除。

（2）设置表对象的有效性规则为：学生的出生年份应早于（不含）入校年 份；同时设置相应有效性文本为“请输入合适的年龄和入校时间”。 要求：使用函数返回有关年份。

（3）设置“性别”字段的默认值为“女”；设置“性别”字段值的输入方式 为从下拉列表中选择“男”或“女”选项值。

（4）设置数据表显示的字体大小为12、行高为18，设置数据表中显示所有字 段。

（5）将学号为“20011001”学生的照片信息换成考生文件夹下的“

photo.bmp”图像文件；将姓名中的“青”改为“菁”；在党员学生的简 历文字的句号前加“，在校入党”等文字。 （6）将宏“打开表”重命名为自动执行的宏。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好三个关 联表对象“tStud”、“tCourse” 、“tScore”和一个临时表对象“tTemp”。 试按以下要求完成设计：

（71-2）

（1）创建一个查询，按所属院系统计学生的平均年龄，字段显示标题为“院系 ”和“平均年龄”，所建查询命名为“qT1” 。 要求：平均年龄四舍五入取整处理。

（2）创建一个查询，查找上半年入学的学生，并显示“姓名”、“性别”、“ 课程名”和“成绩”等字段内容，所建查询命名为“qT2”。

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

（4）创建删除查询，将表对象“tTemp”中年龄值高于平均年龄（不含平均年 龄）的学生记录删除，所建查询命名为“qT4”。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象 “tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：

（71-3）

（1）在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线 控件，控件宽度为10.5厘米，控件命名为“tLine”；将窗体中标签控件“ lTalbel”上的文字改为“隶书”，字号改为18。

（2）打开窗体时，窗体标题自动显示为标签控件“lTalbel”的内容，并且自动 将该控件上的文字颜色改为“蓝色\，请按照VBA代码中的指示将代码补充 完整。

（3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录 选择器、导航按钮和分隔线；并且只保留窗体的关闭按钮。

（4）假设“tStud”表中“学号”字段的第5位和第6位编码代表该生的专业信 息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理 ”专业。设置窗体中名称为“tSub”文本框控件的相应属性，使其根据“ 学号”字段的第5位和第6位编码显示对应的专业名称。

（5）在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,其功能为关闭“ fStud”窗体。请按照VBA代码中的指示将实现此功能的代码补充完整。 注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代 码；不允许修改表对象“tStud”；

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

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第32套：

在考生文件夹下，存在一个数据库文件“samp1.mdb”。在数据库文件中已 经建立了一个表对象“学生基本情况”。试按以下操作要求，完成各种操作：

(72-1)

（1）在数据表视图中，将“学生基本情况”表中的所有字段显示出来。

（2）将“学生基本情况”表名称更改为“tStud”，并设置表的主键字段，使其 能够唯一标识表中记录；设置“身份ID”字段的相应属性，使该字段在数 据表视图中的显示标题为“身份证”。

（3）在“家长身份证号”和“语文”两字段之间增加一个字段，名称为“电 话”，类型为文本，大小为12；设置该字段输入掩码为：前四位固定为“ 010-”，后八位为数字。将“姓名”字段设置为有重复索引，且必须有 值。

（4）在“tStud”表中增加一个字段，字段名为“总成绩”，字段值为： 总成绩 = 语文 + 数学 + 外语。

计算结果的“结果类型”为“整型”，“格式”为“标准”，“小数位 数”为0。

（5）将“tStud”表拆分为两个新表，表名分别为“tStudent”和“tScore”。 其中“tStudent”表结构为：编号、身份ID，姓名，家长姓名，家长身份 证号，电话；“tScore”表结构为：编号、语文、数学、外语、总成绩。 要求：保留“tStud”表。

（6）设置“tStudent”和“tScore”表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好表对象 “tCourse”、“tScore”和“tStud”，试按以下要求完成设计：

（72-2）

（1）创建一个查询，查找2005年入学的党员学生选课成绩，并显示“姓名”、 “性别”、“入校时间”、“课程名”和“成绩”五列信息，所建查询命 名为“qT1” 。

要求：使用函数获取入校年份。

（2）创建一个查询，按输入的分数查找选课成绩平均值大于所输入分数的学生

信息，并显示“学号”和“平均成绩”。当运行该查询时，应显示提示信 息：“请输入要比较的分数：”，所建查询命名为“qT2”。

（3）创建一个查询，统计并显示各班每门课程的平均成绩，统计显示结果如下 图所示，所建查询命名为“qT3” 。

说明：“学号”字段的前8位为班级编号。 要求：使用Round函数获取平均成绩的整数值。

（4）创建一个查询，统计2门以上（含2门）课程不及格的学生，并将其“姓 名”和统计的“不及格门次”放到一个新表中，表名为“tNew”，表结 构为“姓名”和 “不及格门次”，所建查询命名为“qT4”。 要求：①使用“成绩”字段统计不及格课程的门次。 ②创建此查询后，运行该查询，并查看运行结果。 ************************************************

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象 “tStud”、查询对象“qStud”和“fTimer”窗体对象，同时还设计出以

“qStud”为数据源的报表对象“rStud”。试在此基础上按照以下要求补充报 表和窗体设计：

（72-3）

（1）在报表的报表页眉节区添加一个标签控件，其名称为“bTitle”，显示内 容为“学生信息表”；预览报表时，报表标题显示内容为“ ****年度#####”，请按照VBA代码中的指示将代码补充完整。

说明：①显示标题中，“****”为本年度年份，要求使用函数获取。 ②显示标题中，“#####”为标签控件“bTitle”中的内容。 要求：标题显示内容中间和前后不允许出现空格。

（2）在报表的主体节区添加一个文本框控件，显示“姓名”字段值。该控件放 置在距上边0.1厘米、距左边3.2厘米，并命名为“tName”。

（3）按“编号”字段前四位分组统计每组记录的平均年龄，并将统计结果显示 在组页脚节区。计算控件命名为“tAvg”。 要求：使用分组表达式进行分组。

（4）有一个名为“fTimer”的计时器窗体。运行窗体后，窗体标题自动显示为 “计时器”；单击“设置”按钮（名称为“cmdSet”），在弹出的输入框 中输入计时秒数（10以内的数）；单击“开始”按钮（名称为“cmdStar”） 开始计时，同时在文本框（名称为“txtList”）中显示计时的秒数。计时 时间到时，停止计时并响铃，同时将文本框清零。根据以上描述，按照VBA 代码中的指示将代码补充完整。

注意：不允许改动数据库中的表对象“tStud”和查询对象“qStud”，同 时也不允许修改报表对象“rStud”和窗体对象“fTimer”中已有的 以及未涉及的控件和属性。程序代码只允许在“*******Add******” 与 “*******Add******”之间的空行内补充一行语句、完成设计， 不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第33套：

考生文件夹下存在一个数据库文件“samp1.mdb”，里面已经设计好表对象 “tStud”、窗体对象“fTimer”和宏对象“mTimer”。请按照以下要求，完成 对表的修改：

(73-1)

（1）根据“tStud”表的字段构成，判断并设置主键；删除“备注”字段。 （2）将“年龄”字段的默认值属性设置为出现次数最多的年龄值。

（3）将“入校时间”字段的显示设置为“××月××日××××年”形式（注 意：要求月日为两位显示、年为四位显示，如“12月15日2005年”）；将 其默认值设置为下一年度的9月1日（要求：本年度的年号必须用函数获 取）。

（4）根据表“tStud”中“所属院系”字段的值修改“学号”，“所属院系” 为“01”，将“学号”的第5位改为“1”；“所属院系”为“02”，将“ 学号”的第5位改为“2”，依次类推。

（5）设置数据表显示的字体大小为14、行高为18；将第（4）步操作完成后， 学号为“20011001”学生的“照片”字段数据设置成考生文件夹下的“ photo.bmp”图像文件；将冻结的“姓名”字段解冻；将有“摄影”好 爱的记录全部删除。

（6）将宏“mTimer”重命名保存为自动执行的宏。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好两个表 对象“tStud”和“tScore”。试按以下要求完成设计：

(73-2)

（1）创建一个查询，计算并输出学生最大年龄与最小年龄的差值，显示 标题为“s_data”，所建查询命名为“qT1”；

（2）创建一个查询，查找与所有学生平均年龄相差1岁的学生信息，并 显示“姓名”、“性别”和“入校日期”三个字段内容，所建查询 命名为“qT2”。

要求：对平均年龄取整，并且使用Round函数取平均年龄的整数值。 （3）创建一个查询，按输入的出生地查找具有指定地名的学生信息，并 显示“姓名”、“性别”、“年龄”和“计算机”四个字段内容。 当运行该查询时，应显示提示信息“请输入出生地”。所建查询命 命名为“qT3”。

说明：出生地信息从“简历”字段获取。

（4）创建一个查询，将“tStud”表中年龄最大的2名女生团员学生的信 息保存到新建表中，新建表名为“tTemp”表，表中字段为“学号” 、“姓名”、“性别”和“年龄”，所建查询命名为“qT4”。 要求：创建查询后，运行查询并查看结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时， 给出窗体对象“fEmp”上一个按钮的单击事件代码，试按以下功能要求补充设计:

（45-3）

（1）打开窗体时设置窗体标题为“XXXX年信息输出”显示，其中“XXXX”为系统 当前年份（要求用相关函数获取），例如，2013年信息输出。窗体“打开” 事件代码已提供，请补充完整。

（2）调整窗体对象“fEmp”上“退出”按钮（名为“bt2”）的大小和位置，要 求大小与“报表输出”按钮（名为“bt1”）一致，且左边对齐“报表输出 ”按钮，上边距离“报表输出”按钮1厘米（即“bt2”钮的上边距离“bt1 ”钮的下边1厘米）。

（3）利用表达式将报表记录数据按照姓氏分组升序排列，同时要求在相关组页 眉区域添加一个文本框控件（命名为“tm”），设置属性显示出姓氏信息 来，如“陈”、“刘”、...等。

注意，这里不用考虑复姓等特殊情况。所有姓名的第一个字符视为其姓氏 信息。

（4）单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方 式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的 宏“mEmp”来关闭窗体。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许

修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。 程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已存 在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第34套：

在考生文件夹下，已有“samp1.mdb”数据库文件和“tCourse.xlsx”文件 ，“samp1.mdb”中已建立表对象“tStud”和“tGrade”，试按以下要求，完 成表的各种操作：

（74-1）

(1) 将考生文件夹下的“tCourse.xlsx”文件导入到“samp1.mdb”数据库 中，表名不变；按下图所示内容修改“tCourse”表的结构；根据“ tCourse”表字段构成，判断并设置主键。

(2) 设置“tCourse”表“学时”字段的有效性规则为：必须输入非空且大 于等于0的数据；设置“开课日期”字段的默认值为本年度九月一日（ 要求：本年度年号必须由函数获取）。设置表的格式为：浏览数据表 时，“课程名称”字段列不能移出屏幕，且网格线颜色为黑色。

(3) 设置“tStud”表“性别”字段的输入方式为从下拉列表中选择“男” 或“女”选项值；设置“学号”字段的相关属性为：只允许输入8位 的0-9数字；将姓名中的“小”改为“晓”。

(4) 将“tStud”表中“善于表现自己”的学生记录删除；设置表的有效性 规则为：学生的出生年份应早于（不含）入校年份；设置表的有效性 文本为：请输入合适的年龄和入校时间。 要求：使用函数获取有关年份。

(5) 在“tGrade”表中增加一个字段，字段名为“总评成绩”，字段值为： 总评成绩 = 平时成绩*40% + 考试成绩*60%

计算结果的“结果类型”为“整型”，“格式”为“标准”，“小数 位数”为0。

(6) 建立三表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对象 “tOrder”、“tDetail”、“tEmployee”和“tBook”，试按以下要求完成设 计：

（49-2）

（1）创建一个查询，查找清华大学出版社出版的图书中定价大于等于20且小于 等于30的图书，并按定价从大到小顺序显示“书籍名称”、“作者名”和 “出版社名称”。所建查询名为“qT1”。

（2）创建一个查询，查找某月出生雇员的售书信息，并显示“姓名”、“书籍 名称”、“订购日期”、“数量”和“单价”。当运行该查询时，提示框 中应显示“请输入月份：”。所建查询名为“qT2” 。

（3）创建一个查询，计算每名雇员的奖金，显示标题为“雇员号”和“奖金” 。所建查询名为“qT3” 。 说明：销售金额 = 单价*数量。

奖金 = 销售金额合计数×5%。

（4）创建一个查询，查找单价低于定价的图书，并显示“书籍名称”、“类别 ”、“作者名”、“出版社名称”。所建查询名为“qT4”。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.mdb”。“samp3.mdb”数据库里 面已经设计了表对象“tEmp”和“tGroup”、窗体对象“fEmp”、报表对象“ rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计：

(74-3)

（1）设置报表“rEmp”的相关属性，使其显示年龄小于30岁（不含30）、职务 为“职员”的女职工记录。设置报表主体节区内“tName”文本框控件的 显示内容为“姓名”字段值。

（2）将报表“rEmp”主体节区内文本框“tDept”的控件来源属性设置为计算控 件。要求该控件可以根据报表数据源中的“所属部门”字段值，从非数据 源表对象“tGroup”中检索出对应的部门名称并显示输出。在适当位置增 加一个计算控件（命名为tAvg），计算并显示每个部门的平均年龄。 说明：适当位置是指组页脚、页面页脚或报表页脚。 提示：考虑使用Dlookup函数。

（3）设置窗体“fEmp”的窗体标题为“职员基本情况查询”；将宏“mEmp”重 命名为自动执行的宏。

（4）在“fEmp”窗体的窗体页眉节上有一个文本框（名为“txtName”）和一个 命令按钮（名为“cmdQuery”）。在文本框中输入职员姓名后，单击“ cmdQuery”命令按钮，调用事件代码将依据输入的姓名在“tEmp”表中进 行查找，并将找到的信息添加到主体节相应文本框中，如果没有找到将显 示提示信息“对不起，没有这个职员!”；如果在“txtName”文本框中未 输入姓名，单击“cmdQuery”命令按钮后，将显示提示信息“对不起，未 输入职员姓名，请输入！”。根据上述功能描述，按照VBA代码指示，将 代码补充完整。

注意：不允许修改数据库中的表对象“tEmp”和“tGroup”；不允许修改 宏对象“mEmp”里的内容；不允许修改窗体对象“fEmp”和报表对 象“rEmp”中未涉及的控件和属性。已给事件过程，只允许在 “*****Add*****”与“*****Add*****”之间的空行内补充一条语 句、完成设计，不允许增删和修改其它位置已存在的语句。