问答题在考生文件夹下有一个数据库文件“samp3．mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEtup”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，请按以下功能要求补充设计。 (1)将窗体“fEmp”上标签“bTitle”的“特殊效果”设置为以“阴影”显示。 (2)已知窗体“fEmp”上的3个命令按钮中，按钮“bt1”和“bt3”的大小一致、且左对齐。现要求在不更改“bt1”和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，水平方向左对齐“bt1”和“bt3”，竖直方向在“bt1”和“bt3”之间的位置。 (3)在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮(名为“bt1”)或“打印”按钮(名为“bt2”)，事件过程传递参数调用同一个用户自定义代码(mdPnt)过程，实现报表预览或打印输出；单击“退出”按钮(名为“bt3”)，调用设计好的宏“mEmp”以关闭窗体。 (4)将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。注意：不要修改数据库中的表对象“tEmp”和宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句，从而完成设计，不允许增、删和修改其他位置已存在的语句。 Option Compare Database Private Sub Form_Load() 设置bTitle标签为红色文本显示 *****Add1***** *****Add1***** End Sub 预览输出 Private Sub bu_Click() *****Add2***** *****Add2***** End Sub 打印输出 Private Sub bt2_Click() mdPnt acViewNormal End Sub 输出过程 Private Sub mdPnt(flag As Integer) 按照参数条件输出 DoCmd．OpenReport“rEmp”，flagEnd Sub

【正确答案】正确答案：(1)[操作步骤] 步骤1：选择“窗体”对象，右键单击“fEmp”，从弹出的快捷菜单中选择“设计视图”命令。步骤2：右键单击标签控件“bTitle”，从弹出的快捷菜单中选择“属性”命令，在“特殊效果”行右侧下拉列表中选择“阴影”。步骤3：关闭属性窗口。 (2)[操作步骤] 步骤1：右键单击“bt1”按钮，从弹出的快捷菜单中选择“属性”命令，查看“左边距”、“上边距”、“宽度”和“高度”，并记录下来。关闭属性窗口。步骤3：右键单击“bt3”按钮，从弹出的快捷菜单中选择“属性”命令，查看“上边距”，并记录下来。关闭属性窗口。步骤4：要设置“bt2”与“bt1”大小一致、左对齐且位于“bt1”和“bt3”之间，右键单击“bt2”按钮，从弹出的快捷菜单中选择“属性”命令，分别在“左边距”、“上边距”、“宽度”和“高度”行输入“3cm”、“2．5cm”、“3cm”和“1cm”，关闭属性窗口。步骤5：单击工具栏中的“保存”按钮[*]，关闭窗体界面。 (3)[操作步骤] 步骤1：用设计视图打开窗体“fEmp”，单击工具栏中的“生成器”按钮，选择“代码生成器”，点击“确定”按钮进入编码环境。步骤2：在空行内分别输入以下代码。 *****Add1***** bTitle．ForeColor=vbRed *****Add1***** *****Add2***** mdPnt(acViewPreview) *****Add2***** *****Add3***** mdPnt(acViewNorma1) *****Add3***** 步骤3：保存修改，退出编程环境。 (4)[操作步骤] 步骤1：选择“报表”对象，右键单击“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。步骤2：右键单击“报表选择器”，从弹出的快捷菜单中选择“属性”命令，在“记录源”行右侧下拉列表中选中“tEmp”，关闭属性窗口。步骤3：单击工具栏中的“保存”按钮[*]，关闭设计界面。

【答案解析】解析：第1，2在窗体的设计视图右键单击该控件选择“属性”命令，设置属性；第3小题直接单击工具栏中的“生成器”按钮，选择“代码生成器”，点击“确定”按钮，输入代码；第4小题直接右键单击“报表选择器”，在弹出的快捷菜单中选择“属性”命令，设置属性。