问答题
在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。
(1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为：2006年9月30日（含）以前的时间。相应有效性文本设置为：输入二零零六年九月以前的日期。
(2)设置报表“rEmp”按照“年龄”字段降序排列输出；将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码一总页数”形式的页码显示（如1- 15、2-15、…）。
(3)将“fEmp”窗体上名为“bTitle”的标签宽度设置为5厘米、高度设置为1厘米，设置其标题为“数据信息输出”并居中显示。
(4)在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存；单击“打开表”命令按钮（名为“btnQ”），调用宏对象“mEmp”以打开数据表“tEmp”。
Fibonacci数列：
F
1
=1 n=1
F
2
=1 n=2
F
n
=F
n-1
+F
n-2
n＞=3
调试完毕后，必须单击“输出”命令按钮生成外部文件，才能得分。
试根据上述功能要求，对已给的命令按钮事件进行补充和完善。
注意：不要修改数据库中的宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。
【正确答案】正确答案：(1)【操作步骤】 步骤1：选择“表”对象，右键单击“tEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“聘用时间”字段行任一点，在“有效性规则”行输入“＜= #2006-9-30#”，在“有效性文本”行输入“输入二零零六年九月以前的日期”。如图3．308所示。
步骤3：按Ctrl+S保存修改，关闭设计视图。 (2)【操作步骤】 步骤1：选择“报表“对象，右键单击“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“设计”选项卡“分组和汇总”组中的“分组和排序”按钮，在“分组、排序和汇总”界面选择“添加排序”，选择“排序依据”下拉列表中的“年龄”字段，选择“降序”，关闭界面，如图3．309所示。
步骤3：右键单击“tPage”，从弹出的快捷菜单中选择“属性”命令，在“全部”选项卡“控件来源”行输入“=[Page]&”一”&[ Pages]”，关闭属性表。如图3．310所示。
步骤4：按Ctrl+S保存修改，关闭设计视图。 (3)【操作步骤】 步骤1：选中“窗体”对象，右键单击“fEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击标签控件“bTitle”，从弹出的快捷菜单中选择“属性”命令，在“标题”行输入“数据信息输出”，在“宽度”和“高度”行分别输入“5cm”和“lcm”，并在“文本对齐”行右侧下拉列表中选择“居中”，如图3．311所示，关闭属性表。
(4)【操作步骤】 步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编程环境，在空行内输入以下代码： '*****Add1***** Dim f(19) As Integer '*****Addl***** '*****Add2***** f(i)=f(i-1) +f(1-2) '*****Add2***** '*****Add3***** tData=f(19) '*****Add3***** 如图3．312所示，关闭界面。
步骤3：按Ctrl+S保存修改，关闭设计视图。 (2)【操作步骤】 步骤1：选择“报表“对象，右键单击“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“设计”选项卡“分组和汇总”组中的“分组和排序”按钮，在“分组、排序和汇总”界面选择“添加排序”，选择“排序依据”下拉列表中的“年龄”字段，选择“降序”，关闭界面，如图3．309所示。步骤3：右键单击“tPage”，从弹出的快捷菜单中选择“属性”命令，在“全部”选项卡“控件来源”行输入“=[Page]&”一”&[ Pages]”，关闭属性表。如图3．310所示。步骤4：按Ctrl+S保存修改，关闭设计视图。 (3)【操作步骤】 步骤1：选中“窗体”对象，右键单击“fEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击标签控件“bTitle”，从弹出的快捷菜单中选择“属性”命令，在“标题”行输入“数据信息输出”，在“宽度”和“高度”行分别输入“5cm”和“lcm”，并在“文本对齐”行右侧下拉列表中选择“居中”，如图3．311所示，关闭属性表。(4)【操作步骤】 步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编程环境，在空行内输入以下代码： '*****Add1***** Dim f(19) As Integer '*****Addl***** '*****Add2***** f(i)=f(i-1) +f(1-2) '*****Add2***** '*****Add3***** tData=f(19) '*****Add3***** 如图3．312所示，关闭界面。【答案解析】解析：本题考点：表中字段属性有效性规则的设置；窗体命令按钮控件和报表文本框控件属性的设置等。 第1小题在设计视图中设置字段属性；第2、3小题分别通过在窗体和报表设计视图用鼠标右键单击该控件，从弹出的快捷菜单中选择“属性”命令，设置属性；第4小题通过直接用鼠标右键单击命令按钮，从弹出的快捷菜单中选择“事件生成器”命令，输入代码。设置代码要注意代码的格式及选择正确的函数。