信息，并显示“学号”和“平均成绩”。当运行该查询时，应显示提示信 息：“请输入要比较的分数：”，所建查询命名为“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*****”之间的空行内补充一条语 句、完成设计，不允许增删和修改其它位置已存在的语句。