应用题 .    考生文件夹下存在一个数据库文件"samp3.accdb"，里面已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。试在此基础上按照以下要求补充设计：
问答题 1.  设置报表"rEmp"按照"性别"字段分组降序排列输出，同时在其对应组页眉区添加一个文本框，命名为"SS"，内容输出为性别值；将报表页面页脚区域内名为"tPage"的文本框控件设置为"页码/总页数"形式的页码显示(如1/15、2/15、…)。
【正确答案】步骤1：打开报表对象"rEmp"的设计视图。
   步骤2：单击【设计】选项卡中【分组和排序】，在"分组、排序和汇总"中选择【添加组】，在分组形式选择"性别"，"降序"，在"更多"中选择"有页眉节"，分组形式选择"按整个值"，关闭"分组、排序和汇总"窗口。
   步骤3：选择【设计】选项卡中【控件】组的"文本框"控件，放到"性别页眉"中。
   步骤4：右键该控件，在弹出的快捷菜单中选择"属性"，打开属性表，设置名称为"SS"。
   步骤5：在"控件来源"属性中输入：=[性别]。
   步骤6：选中"tPage"文本框控件，在"控件来源"属性中输入：=[Page] &"/"& [Pages]，关闭属性表，按Ctrl+S保存报表，关闭设计视图。
   
【答案解析】
问答题 2.  将窗体对象"fEmp"上的命令按钮(名为"btnQ")从灰色状态设为可用，然后设置控件的Tab键焦点移动顺序为：控件tData-＞ btnP-＞ btnQ。
【正确答案】步骤1：打开窗体对象"fEmp"的设计视图。
   步骤2：选中"btnQ"命令按钮，右键选择"属性"，设置【数据】选项卡的"可用"属性为"是"。
   步骤3：选中"tData"控件，将"属性表"中【其他】选项卡的"Tab键索引"属性设置为0；选中"btnP"，将"Tab键索引"属性设置为1，关闭属性表，按Ctrl+S保存窗体。
【答案解析】
问答题 3.  在窗体加载事件中实现代码重置窗体标题为标签"bTitle"的标题内容。
【正确答案】步骤1：在"fEmp"窗体空白处，右键并选择"属性"，打开窗体属性表窗口。
   步骤2：单击"事件"选项卡中"加载"属性右边的"…"打开代码生成器。设置窗体标题为标签"bTitle"的标题内容的语句为：Caption=bTitle.Caption，关闭代码生成器，关闭属性表。
【答案解析】
问答题 4.  "fEmp"窗体上单击"输出"命令按钮(名为"btnP")，实现以下功能：
    计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为"tData"的文本框内并输出到外部文件保存。
    单击"打开表"命令按钮(名为"btnQ")，代码调用宏对象"mEmp"以打开数据表"tEmp"。
    试根据上述功能要求，对已给的命令按钮事件过程进行代码补充并调试运行。注意：不允许修改数据库中的表对象"tEmp"和宏对象"mEmp"；不允许修改窗体对象"fEmp"和报表对象"rEmp"中未涉及的控件和属性；只允许在"*****Add*****"与"****Ad******"之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
【正确答案】步骤1：选择窗体设计视图中的"输出"按钮，右击选择"属性"。
   步骤2：单击【事件】选项卡中【单击】右边的"…"按钮，打开代码生成器。
   计算10000以内的素数个数及最大素数两个值的语句为：
   For i=2 To 10000
   If sushu (i) Then
   n=n+1
   If i＞mn Then
   mn=i
   End If
   End If
   Next i
   步骤3：代码调用宏对象"mEmp"的语句为：DoCmd.RunMacro "mEmp"，关闭代码生成器，关闭属性表。
   步骤4：最后保存并运行该窗体。
【答案解析】本题主要考的是窗体、报表的设计和VBA的数据库编程。