在考生文件夹下有“xx.mdb”数据库。 （1)以班级信息查询为数据源，创建“班级信息输出”报表，显示班级

象“fEmp”和宏对象“mEmp”。同时，给出窗体对象“fEmp”上一个按钮的单击事件代码，试按以下功能要求补充设计：

功能：

(1)将窗体“fEmp”上文本框“tSS”更改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别“男”和“女”。

(2)将窗体对象“fEmp”上文本框“tPa”换为复选框类型控件，保持控件名称不变，然后设置控件来源属性以输出“党员否”字段值。

(3)修正查询对象“qEmp”设计，增加退休人员(年龄＞=55)的条件。

(4)单击“刷新”按钮(名为“bt1”)，在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮(名为“bt2”)，调用设计好的宏“mEmp”来关闭窗体。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改查询对象“qEmp”中未涉及的属性和内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。

创建查询的方法有两种，分别为“使用向导”创建和使用【 】创建。

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：

Private Sub Commandl_Click()

a=Textl．Value+Text2．Value

MsgBox a

End Sub

Private Sub Form_Load()

TextI．Value=“”

Text2．Value=””

End Sub

程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。

在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVa1 x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(1)

If i＞4 Then i=i*2

MsgBox i

End Sub

打开窗体运行后，单击命令按钮，则消息框的输出结果为______。

试按以下要求完成设计：

(1)创建一个查询，查找并显示职务为经理的员工的“工号”、“姓名、“年龄”和“性别”四个字段内容，所建查询命名为“qT1”。

(2)创建一个查询，查找各位员工在2005年的工资信息，并显示“工号”、“工资合计”和“水电房租费合计”三列内容。其中，“工资合计”和“水电房租费合计”两列数据均由统计计算得到，所建查询命名为“qT2”。

(3)创建一个查询，查找并显示员工的“姓名”、“工资”、“水电房租费”及“应发工资”四列内容。其中“应发工资”列数据由计算得到，计算公式为：应发工资＝工资－水电房租费，所建查询命名为“qT3”。

(4)仓Ⅱ建一个查询，将表“tTemp”中“年龄”字段值均加l，所建查询命名为“qT4”。

件的所有记录。

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1To 10)

For i＝1 To 10

arr(i)＝i

Next i

For Each i In arr()

arr(i)＝arr(i)*2+1

Next i

MsgBox arr(7)

End Sub

“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计：

(1)将窗体标题改为“学生查询”。

(2)将窗体的边框样式改为“细边框”，取消窗体中的水平和垂直滚动条、记录选定器、浏览按钮(导航按钮)和分隔线；将子窗体边框样式改为“细边框”，取消子窗体中的记录选定器、浏览按钮(导航按钮)和分隔线。

(3)在窗体中有两个标签控件，名称分别为“Label1”和“Label2”，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色(紫蓝色代码为8388608)。

(4)将窗体主体节中控件的Tab键次序改为：“Cltem”→“TxtDctail”→“CmdRefer”→“CmdList”→“CmdClear”→“tDetail”→“简单查询”→“Framel8”。

(5)按照以下窗体功能，补充事件代码设计。

在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和”TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空！！！”，消息框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将“Cltem”和“TxtDetail”两个控件中的值清空。

注意：不允许修改窗体对象“fSmd”和子窗体对象“fDetail”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”。

代码设计只允许在“****Add*****”与“*****Add*****”之间的空行内补充一条语句、完成设计，不允许增删和修改其他位置已存在的语句。

在考生文件夹中有“招聘.mdb”数据库。

(1)按照下列要求修改“个人信息”表。

(2)将“个人信息”表另存为“个人信息的副本”窗体。

(3)将“个人信息”表按照“姓名”字段升序排列，并创建高级筛选，筛选学历为“硕士”的信息。“个人信息”表结果如图所示。

执行筛选后显示如图