应用题考生文件夹
考生文件夹下存在一个数据库文件'samp3.accdb'，里面已经设计好表对象'tStud'、查询对象'qStud'、窗体对象'fStud'和子窗体对象'fDetail'，同时还设计出以'qStud'数据源的报表对象'rStud'。请在此基础上按照以下要求补充'fStud'窗体和'rStud'报表的设计：
注意：不允许修改窗体对象'fStud'和子窗体对象'fDetail'中未涉及的控件、属性和任何VBA代码；不允许修改报表对象'rStud'中已有的控件和属性；不允许修改表对象'tStud'和查询对象'qStud'。只允许在'*****Add*****'和'*****Add*****'之间的空行内补充一条代码语句、完成设计，不允许增删和修改其他位置已存在的语句。

问答题在报表的报表页眉节区位置添加一个标签控件，其名称为'bTitle'，标题显示为'冈员基本信息表'；将名称为'tSex'的文本框控件的输出内容设置为'性别'字段值。在报表页脚节区添加一个计算控件，其名称为'tAvg'，设置相关属性，输出学生的平均年龄。

【正确答案】步骤1：单击报表'对象，选择'rStud'报表，右键打开'设计视图'。步骤2：选择【设计】选项卡中【控件】组的'标签'控件，单击报表页屑节区任一点，出现标签控件，输入'团员基本信息表'。右键单击此标签控件，选择'属性'，弹出属性表。选择'全部'选项卡，在'名称'行输入'bTitle'，然后关闭属性表。步骤3：右键单击'tSex'文本框控件选择'属性'，弹出属性表。选择'全部'选项卡，在'控件来源'行右侧下拉列表中选择'性别'，然后关闭属性表。步骤4：选择【设计】选项卡中【控件】组的'文本框'控件，单击报表页脚节区任一点，弹出'Text'和'未绑定'两个文本框。右键单击'Text'文本框，选择'属性'，弹出属性表。选择'全部'选项卡，在'标题'行输入'平均年龄：'，然后关闭属性表。步骤5：右键单击'未绑定'文本框选择'属性'，弹出属性表。选择'全部'选项卡，在'名称'行输入'tAvg'，在'控件来源'行输入'=Avg([年龄])'，然后关闭属性表。步骤6：按Ctrl+S保存修改，之后关闭设计视图。答案考生文件夹

【答案解析】

问答题将'fStud'窗体对象主体节中控件的Tab键焦点移动顺序设置为：
'CItem'-＞'TxtDetail'-＞'CmdRefer'-＞'CmdList'-＞'CmdClear'-＞'fDetail'-＞'简单查询'。

【正确答案】步骤1：单击'窗体'对象，选择'fStud'窗体，右键打开'设计视图'。步骤2：在窗体的任意位置右击，在弹出的快捷菜单中选择'Tab键次序'命令，打开'Tab键次序'对话框，在'自定义顺序'列表中通过拖动各行来调整Tab键的次序，第一行为'CItem'，第二行为'TxtDetail'，第三行为'CmdRefer'，第四行为'CmdList'，第五行为'CmdClear'，第六行为'fDetail'，第七行为'简单查询'。单击'确定'按钮，关闭'Tab键次序'对话框。步骤3：按Ctrl+S保存修改。

【答案解析】

问答题在窗体加载事件中，实现重置窗体标题为标签'tTifle'的标题内容。

【正确答案】步骤1：右键单击窗体空白处，在弹出的菜单中选择'属性'。步骤2：单击'事件'选项卡中'加载'属性右边的'…'打开代码生成器。设置窗体标题为标签'tTitle'的标题内容的代码语句，在Add4空行内输入：Caption=tTitle.Caption。步骤3：按Ctrl+S保存修改，关闭代码生成器。

【答案解析】

问答题试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。
在窗体中有一个细合框控件和一个文本框控件，名称分别为'CItem'和'TxtDetail'；有两个标签控件，名称分别为'Label3'和'Ldetail'；还有二个命令按钮，名称分别为'CmdList'、'CmdRefer'和'CmdClear'。在'CItem'组合框中选择某一项目后，'Ldetail'标签控件将显示出所选项目名加上'内容：'。在'TxtDetail'文本框中输入具体项目值后，单击'CmdRefer'命令按钮，如果'CItem'和'TxtDetail'两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为'注意'，提示文字为'查询项目或查询内容不能为空!!!'，提示框中只有一个'确定'按钮；单击'CmdList'命令按钮，在子窗体中显示'tStud'表中的全部记录；单击'CmdClear'命令按钮，将清空控件'cltem'和'TxtDetail'中的值。

【正确答案】步骤1：在设计视图中的任意位置右击，在弹出的快捷菜单中选择'事件生成器'命令，在弹出的对话框中选择'代码生成器'选项，单击'确定'按钮。步骤2：在Add1空行输入代码： '*************************Add1 ************************ Dim aa aa=c Item.Value Ldetail.Caption=aa+'内容：' '*************************Add1 ************************ 步骤3：Add2空行输入代码： '*************************Add2 ************************ fDetail.Form.RecordSource='tStud' '*************************Add2 ************************ 步骤4：Add3空行输入代码： '*************************Add3 ************************ MsqBox'查询项目或查询内容不能为空'， vbOKOnly，'注意' '*************************Add3 ************************ 步骤5：按Ctrl+S保存修改，关闭代码生成器。

【答案解析】