问答题
考生文件夹下存在一个数据库文件“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”窗体的左侧有一个名称为“COM-B01”的组合框和两个名称分别为“btitlel”、“btitle2”的标签。“btitlel”标签用于显示组合框左侧的标题内，“btitle2”标签用于显示计算的平均年龄。“COM-B01”组合框中列出性别值“男”和“女”，当在组合框中选择某一性别值后，计算该性别的平均年龄，并将计算的结果显示在“btitle2”标签中，显示内容及格式如下图所示。请按照VBA代码中的指示将代码补充完整。
【正确答案】正确答案：(1)【操作步骤】 步骤1：打开考生文件夹下的数据库文件samp3．accdb，右键单击“rEmp”报表，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“设计”选项卡“分组和汇总”组中的“分组和排序”按钮，打开“分组、排序和汇总”窗口。 步骤3：单击“添加组”按钮，弹出字段选择器，选择“表达式”，弹出的“表达式生成器”对话框，输入表达式“= left（[姓名]，1）”，最后单击“确定”按钮，关闭对话框窗口，如图5．16所示。
步骤4：单击“更多”按钮，设置“无页眉节”，“有页脚节”。 步骤5：单击“控件”分组中的“文本框”命令，在页脚区域内拖动，产生一个文本框（删除文本框前新增的标签控件）。 步骤6：右键单击“未绑定”文本框，在弹出的快捷菜单中选择“属性”命令，在“属性表”对话框中“名称”所在行输入“tmAvg”；在“控件来源”所在行输入“= Min（[年龄]）”，设置完成后，关闭“属性表”对话框，如图5．17所示。
(2)【操作步骤】 步骤1：在“rEmp”报表设计视图中选中“tPage”文本框，右键单击弹出的快捷菜单中选择“属性”命令，在“属性表”对话框的“控件来源”所在行输入表达式“=[Page]&"／"＆[ Pages]”，如图5．18所示。
步骤2：按Ctrl+S保存修按钮，关闭“rEmp”报表设计视图。 (3)【操作步骤】 步骤1：右键单击“fEmp”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击窗体中的“bTitle”控件，在弹出的快捷菜单中选择“属性”，弹出“属性表”对话框，将“上边距”属性值设置为“1．5cm”，如图5．19所示。
步骤3：单击窗体中的“btnP”按钮，在右侧的属性表窗口中，单击“事件”选项卡，单击“单击”事件所对应下拉箭头，在弹出的列表框中选择“mEmp”，如图5．20所示。
(4)【操作步骤】 步骤1：在窗体“fEmp”设计视图中，单击“设计”选项卡“工具”中的“查看代码”按钮进入VBA代码编辑界面。 步骤2：在“*****Addl*****”行之间添加代码： Mebtitle2．Caption="性别查询结果："&Me．COMB01．Value＆"的平均年龄为”&DLookup("平均年龄"，"qEmp"，"性别="&Me．COMB01．Val-ue&"") 步骤3：在“*****Add2*****”行之间添加代码： Me．COMB01．RowSource="男；女" 步骤4：在“*****Add3*****”行之间添加代码： Me．btide2．Caption="性别查询结果：" 设置完成结果如图5．21所示：
步骤4：单击“更多”按钮，设置“无页眉节”，“有页脚节”。 步骤5：单击“控件”分组中的“文本框”命令，在页脚区域内拖动，产生一个文本框（删除文本框前新增的标签控件）。 步骤6：右键单击“未绑定”文本框，在弹出的快捷菜单中选择“属性”命令，在“属性表”对话框中“名称”所在行输入“tmAvg”；在“控件来源”所在行输入“= Min（[年龄]）”，设置完成后，关闭“属性表”对话框，如图5．17所示。(2)【操作步骤】 步骤1：在“rEmp”报表设计视图中选中“tPage”文本框，右键单击弹出的快捷菜单中选择“属性”命令，在“属性表”对话框的“控件来源”所在行输入表达式“=[Page]&"／"＆[ Pages]”，如图5．18所示。步骤2：按Ctrl+S保存修按钮，关闭“rEmp”报表设计视图。 (3)【操作步骤】 步骤1：右键单击“fEmp”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击窗体中的“bTitle”控件，在弹出的快捷菜单中选择“属性”，弹出“属性表”对话框，将“上边距”属性值设置为“1．5cm”，如图5．19所示。步骤3：单击窗体中的“btnP”按钮，在右侧的属性表窗口中，单击“事件”选项卡，单击“单击”事件所对应下拉箭头，在弹出的列表框中选择“mEmp”，如图5．20所示。(4)【操作步骤】 步骤1：在窗体“fEmp”设计视图中，单击“设计”选项卡“工具”中的“查看代码”按钮进入VBA代码编辑界面。 步骤2：在“*****Addl*****”行之间添加代码： Mebtitle2．Caption="性别查询结果："&Me．COMB01．Value＆"的平均年龄为”&DLookup("平均年龄"，"qEmp"，"性别="&Me．COMB01．Val-ue&"") 步骤3：在“*****Add2*****”行之间添加代码： Me．COMB01．RowSource="男；女" 步骤4：在“*****Add3*****”行之间添加代码： Me．btide2．Caption="性别查询结果：" 设置完成结果如图5．21所示：【答案解析】解析：本题考点：报表控件以及页码设置，窗体命令按钮的单击事件，VBA代码编程等 第1、2小题单击报表的设计视图按照题目要求设置；第3小题单击窗体的设计视图设置窗体相关属性；第4小题单击设计工具功能组中的“查看代码”按钮，进入VBA代码编辑界面。