【正确答案】正确答案：【操作步骤】 (1)步骤1：打开“samp3．accdb”数据库窗口，在＜开始＞功能区的“报表”面板中右击“rEmp”报表，选择“设计视图”快捷菜单命令，打开“rEmp”的设计视图。 步骤2：单击＜分组和汇总＞分组中的“分组和排序”命令，在下方打开“分组、排序和汇总”窗口。在窗口中单击“添加组”按钮，在弹出的字段选择器中选择“性别”字段，然后依次设置“排序次序”选择“降序”，单击“更多”按钮，设置“有页眉节”。 步骤3：单击＜控件＞分组中的“文本框”按钮，在“性别页眉”中相应的区域拖动出文本框(删除文本框前新增的标签)，右键单击该文本框，在弹出的快捷菜单中选择“属性”命令，在对话框中的“名称”中输入“SS”，在“数据”选项卡中“控件来源”里选择“性别”字段，关闭当前对话框。 步骤4：选中页面页脚中的“tPage”文本框，在＜属性表＞对话框的“控件来源”行输入：=【Page】＆”／”＆[Pages]，单击快速访问工具栏中的“保存”按钮，关闭报表视图。 (2)步骤1：在＜开始＞功能区的“窗体”面板中右击“fEmp”窗体，选择“设计视图”快捷菜单命令，打开“fEmp”的设计视图。单击“打开表”命令按钮，在＜属性表＞对话框中，修改“可用”属性的值为“是”。 步骤2：在＜属性表＞对话框的左上角的下拉菜单选择“tData”，在其对应的“’rab索引"行输入：0。 步骤3：在＜属性表＞对话框的左上角的下拉菜单选择“btnP”，在其对应的“Tab索引”行输入：1。 步骤4：在＜属性表＞对话框的左上角的下拉菜单选择“btnQ”，在其对应的“Tab索引”行输入：2。 步骤5：单击快速访问工具栏中的“保存”按钮保存设置。 (3)步骤1：单击＜窗体设计工具-设计＞功能区的＜工具＞分组中的“查看代码”按钮，打开“代码设计器”窗口。 在“****Addl****”行之间输入代码： Caption=bTitle．Caption 在“****Add2****”行之间输入代码： Dim i As Integer n=0 For i=0 T0 10000 If sushu(i)=True Then n=n+1 mn=i End If Next i 在“****Add3****”行之间输入代码： DoCmd．RunMacro”mEmp” 步骤2：双击“窗体”面板中的“fEmp”窗体，运行窗体文件，然后单击窗体中的“输出”按钮，输出结果。 步骤3：单击快速访问工具栏中的“保存"按钮，关闭代码窗口。