应用题
考生文件夹 考生文件夹下存在一个数据库文件'samp3.accdb'，里面已经设计了表对象'tEmp'、窗体对象'fEmp'、报表对象'rEmp'和宏对象'mEmp'。试在此基础上按照以下要求补充设计：
问答题
设置报表'rEmp'按照'性别'字段分组降序排列输出，同时在其对应组页眉区添加一个文本框，命名为'SS'，内容输出为性别值；将报表页面页脚区域内名为'tPage'的文本框控件设置为'页码/总页数'形式的页码显示(如1/15、2/15、…)。
【正确答案】 步骤1：打开报表对象'rEmp'的设计视图。 步骤2：单击【设计】选项卡中【分组和排序】，在'分组、排序和汇总'中选择【添加组】，在分组形式选择'性别'，'降序'，在'更多'中选择'有页眉节'，分组形式选择'按整个值'，关闭'分组、排序和汇总'窗口。 步骤3：选择【设计】选项卡中【控件】组的'文本框'控件，放到'性别页眉'中。 步骤4：右键该控件，在弹出的快捷菜单中选择'属性'，打开属性表，设置名称为'SS'。 步骤5：在'控件来源'属性中输入：=[性别]。 步骤6：选中'tPage'文本框控件，在'控件来源'属性中输入：=[Page] &'/'& [Pages]，关闭属性表，按Ctrl+S保存报表，关闭设计视图。 答案考生文件夹
【答案解析】
问答题
将窗体对象'fEmp'上的命令按钮(名为'btnQ')从灰色状态设为可用，然后设置控件的Tab键焦点移动顺序为：控件tData-＞ btnP-＞ btnQ。
【正确答案】 步骤1：打开窗体对象'fEmp'的设计视图。 步骤2：选中'btnQ'命令按钮，右键选择'属性'，设置【数据】选项卡的'可用'属性为'是'。 步骤3：选中'tData'控件，将'属性表'中【其他】选项卡的'Tab键索引'属性设置为0；选中'btnP'，将'Tab键索引'属性设置为1，关闭属性表，按Ctrl+S保存窗体。
【答案解析】
问答题
在窗体加载事件中实现代码重置窗体标题为标签'bTitle'的标题内容。
【正确答案】 步骤1：在'fEmp'窗体空白处，右键并选择'属性'，打开窗体属性表窗口。 步骤2：单击'事件'选项卡中'加载'属性右边的'…'打开代码生成器。设置窗体标题为标签'bTitle'的标题内容的语句为：Caption=bTitle.Caption，关闭代码生成器，关闭属性表。
【答案解析】
问答题
'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的数据库编程。
提交答案
关闭