问答题
在考生文件夹下，存在一个数据库文件“samp3．accdb”，里面已经设计好表对象“tStudent”，同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。 (1)加载“fQuery”时重置窗体标题并改为“显示查询信息”，将窗体中“退出”命令按钮(名称为“命令7”)上显示的文字颜色自动改为红色(红色值为255)，字体粗细改为“加粗”(加粗值为700)。请按照VBA代码中的指示将实现此功能的代码补充完整。 (2)在“fQuery”窗体距主体节上边0．4 cm、左边0．4 cm位置添加一个矩形控件，其名称为“rRim”；矩形宽度为16．6 cm、高度为1．2 cm、特殊效果为“凿痕”。将窗体边框改为“对话框边框”样式，取消窗体中的水平和乖直滚动条、记录选择器、导航按钮和分隔线。 (3)在“fQuery”窗体中有一个“显示全部记录”命令按钮(名称为bList)，单击该按钮后，应实现将“tStudent”表中的伞部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 (4)在“fCount”窗体中有两个列表框、一个文本框和一个命令按钮，名称分别为“List0”、“List1”、“tData”和“Cmd”。在“tData”文本框中输入一个数，单击“Cmd”按钮，程序将判断输入的值是奇数还是偶数，如果是奇数将填入“List0”列表中，否则填人“List1”列表中。根据以上描述，请按照VBA代码中的指爪将代码补充完整。 注意：不允许修改窗体对象“fQuery”、“IStudent”和“fCount”中未涉及的控件、属性；不允许修改表对象“tStudent”。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
【正确答案】正确答案：(1)步骤1：选择“窗体”对象，右键单击“fQuery”窗体，在弹出的快捷菜单中选择“设计视图”命令，打开设计视图。 步骤2：双击标尺相交处的“窗体选择器”，打开“属性表”对话框，在该对话框中单击“事件”选项卡，然后单击该选项卡下的“加载”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤3：在“*****Add1*****”区域的空白行中输入“Me．Caption="显示查询信息"”；在“'*****Add2*****”区域的空白行中输入“Me．命令7．ForeColor=255”；在“'*****Add3*****区域的空白行中输入“Me．命令7．FontWeight=700”，如图4．16所示。
步骤4：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。 步骤5：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。 (2)步骤1：选择“窗体”对象，右键单击“fQuery”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“设计”选项卡下“控件”组中的“其他”下拉按钮，然后单击控件组中的“矩形”按钮，最后单击窗体主体节区的任意区域。 步骤3：右键单击刚画好的“矩形”，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，单击该对话框下的“全部”选项卡，在该选项卡的“名称”行中输入“rRim”，在“宽度”行中输入“16．6cm”，在“高度”行中输入“1．2cm”，在“上边距”行中输入“0．4cm”，在“左”行中输入“0．4cm”，在“特殊效果”行中选择“凿痕”，如图4．17所示。
步骤4：双击标尺相交处的“窗体选择器”，弹出“属性表”对话框，在该对话框中单击“格式”选项卡，在该选项卡的“边框样式”行中选择“对话框边框”，在“滚动条”行中选择“两者均无”，在“记录选择器”行中选择“否”，在“导航按钮”行中选择“否”，在“分隔线”行中选择“否”，如图4．18所示。
步骤5：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。 (3)步骤1：右键单击“显示全部记录”命令按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，单击该对话框下的“事件”选项卡，然后单击该选项卡下“加载”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤2：在“'*****Add4*****”区域的“BBB．Form．RecordSource="”行后输入“select*from tStudent"”，如图4．19所示。 步骤3：单击快速上具栏中的“保存”按钮，然后关闭VBA代码编辑区。 步骤4：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。
(4)步骤1：选择“窗体”对象，右键单击“fCount”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击“Cmd”按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，单击该对话框下的“事件”选项卡，然后单击该选项卡的“单击”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤3：在“'*****Add*****”区域的空白行中输入“If x Mod 2=1 Then”，如图4．20所示。
步骤4：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。 步骤5：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。 (2)步骤1：选择“窗体”对象，右键单击“fQuery”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“设计”选项卡下“控件”组中的“其他”下拉按钮，然后单击控件组中的“矩形”按钮，最后单击窗体主体节区的任意区域。 步骤3：右键单击刚画好的“矩形”，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，单击该对话框下的“全部”选项卡，在该选项卡的“名称”行中输入“rRim”，在“宽度”行中输入“16．6cm”，在“高度”行中输入“1．2cm”，在“上边距”行中输入“0．4cm”，在“左”行中输入“0．4cm”，在“特殊效果”行中选择“凿痕”，如图4．17所示。步骤4：双击标尺相交处的“窗体选择器”，弹出“属性表”对话框，在该对话框中单击“格式”选项卡，在该选项卡的“边框样式”行中选择“对话框边框”，在“滚动条”行中选择“两者均无”，在“记录选择器”行中选择“否”，在“导航按钮”行中选择“否”，在“分隔线”行中选择“否”，如图4．18所示。步骤5：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。 (3)步骤1：右键单击“显示全部记录”命令按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，单击该对话框下的“事件”选项卡，然后单击该选项卡下“加载”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤2：在“'*****Add4*****”区域的“BBB．Form．RecordSource="”行后输入“select*from tStudent"”，如图4．19所示。 步骤3：单击快速上具栏中的“保存”按钮，然后关闭VBA代码编辑区。 步骤4：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。(4)步骤1：选择“窗体”对象，右键单击“fCount”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击“Cmd”按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，单击该对话框下的“事件”选项卡，然后单击该选项卡的“单击”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤3：在“'*****Add*****”区域的空白行中输入“If x Mod 2=1 Then”，如图4．20所示。【答案解析】解析：第1、3小题直接右键单击窗体选择器，选择“属性”命令，设置加载事件，在VBA代码编辑区实现代码编辑。第2小题在窗体的设计视图中增加控件，对控件属性进行设置；第4小题右键单击控件，选择“属性”命令，通过VBA编程设置单击事件。