问答题 在考生文件夹下有一个数据库文件“samp3．mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。 (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为：2006年9月30日(含)以前的时间。相应有效性文本设置为“输入二零零六年九月以前的13期”。 (2)设置报表“rEmp”按照“年龄”字段降序排列输出；将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码一总页数”形式的页码显示(如1-15、2-15、……)。 (3)将“fEmp”窗体上名为“bTitle”的标签宽度设置为5厘米、高度设置为1厘米，设置其标题为“数据信息输出”并居中显示。 (4)“fEmp”窗体上单击“输出”命令按钮(名为“btnP”)，实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存；单击“打开表”命令按钮(名为“btnQ”)，调用宏对象“mEmp”以打开数据表“tEmp”。 Fibonacci数列： F ₁ =1 n=1 F ₂ =1 n=2 F _n =F _n-1 +F _n-2 n>=3 调试完毕后，必须点击“输出”命令按钮生成外部文件，才能得分。 试根据上述功能要求，对已给的命令按钮事件进行补充和完善。 注意：不要修改数据库中的宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未涉及的字段和属性。 程序代码只允许在“*****Add=*****”与“*****Add*****”之间的空行内补充一 行语句，从而完成设计，不允许增、删和修改其他位置已存在的语句。 Option Compare Database Private Sub btnP_Click() Dim i As Integer Dim S As Integer *****Add***** *****Add***** f(1)=l：f(2)=1 For i=3 To 19 *****Add2***** *****Add2***** Next i 数据输出到文本框内 *****Add3***** *****Add3***** 以下是文件操作 If Dir(CurrentProjeet．Path&“＼out．dat”，vbDirection)<>vbNullString Then Kill CurrentProject．Path&“＼out．dat” End If Open CurrentProject．Path&”＼out。dat”For Output As#1 Print#1。Me!tData Close#1 End Sub