数据库中有“平时成绩表”，包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业×50%+小测验×10%+期中成绩×40%。如果学生平时成绩大于等于60分，则可以参加期末考试(“能否考试”字段为真)，否则学生不能参加期末考试。

下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试，请在空白处填入适当的语句，使程序可以完成所需要的功能。

PrivateSub Command0_Click（　　）

Dim dbAs DA0．Database

Dim rsAs DA0．Recordset

Dim pszyAs DA0．Field，xcy As DA0．Field，qzksAs DA0．Field

Dim psAs DA0．Field，ks As DA0．FieldSet db=CurrentDb（　　）

Setrs=db．Openrecordset(”平时成绩表”)

Setpszy=rs．Fields(”平时作业”)

Setxcy=rs．Fields(”小测验”)

Setqzks=rs．Fields(”期中考试”)

Setps=rs．Fields(”平时成绩”)

Setks=rs．Fields(”能否考试”)

Do WhileNot rs．EoF

rs．Edit

ps=__________

Ifps>=60 Then

ks=True

Else

ks=False

End If

rs．__________

rs．MoveNext

Loop

rs．Close

db．Close

Setrs=Nothing

Setdb=Nothing

End Sub

横线处应填写的内容是（　　）。

在考生文件夹下有一个“Acc3．mdb”数据库，里面有一个名为“产品”的报表，如图3所示。

(1)在报表的页眉节区添加一个标签控件，其名称为“bTitle”，标题显示为“产品”，字号设置为“20磅”。

(2)在页面页眉节区添加一个标签控件，其名称为“bPrice”，标题显示为“价格”。该控

件放置在距上边“0．1cm”、距左边“5．8cm”的位置。

(3)在主体节区添加一个文本框控件，其名称为“tPrice”，作用为显示“产品”表的“价格”字段。该控件放置在距上边“0．1cm”，距左边“5．8cm”的位置。宽度设置为“1．5cm”。

(4)在报表页脚节区添加一个文本框控件，其名称为“tAvg”，用于计算并显示平均价格。

在“Acc2．mdb”数据库中有“部门人员”、“部门信息”、“订单”、“订单明细”、“产品”和“工资”表。

(1)以“产品”和“订单”表为数据源，创建分组统计查询“查询1”，统计每种产品的订单数。结果显示“产品名称”和“订单数”字段，订单数=订单ID之Count。

(2)以“部门人员”和“订单”表为数据源，创建查询“查询2”，查询“田佳西”经手的订单信息。结果显示姓名和订单ID。

(1)在考生文件夹下的“Acc1．mdb”数据库文件中，新建“产品”表。表结构如下：

(2)设置“产品ID”为主键。

(3)设置“单价”字段的小数位数为“2”。

(4)在“产品”表中输入以下4条记录：

在窗体设计工具箱中，代表组合框的图标是（　　）。

数据库设计中，用E—R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的（　　）。

在报表设计的工具栏中，用于修饰版面以达到更好显示效果的控件是（　　）。

要覆盖数据库中已存在的表，可使用的查询是（　　）。

面向对象方法中，继承是指（　　）。

下列可作为VBA变量名的是（　　）。

数据库中有“平时成绩表”，包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业×50%+小测验×10%+期中成绩×40%。如果学生平时成绩大于等于60分，则可以参加期末考试(“能否考试”字段为真)，否则学生不能参加期末考试。

下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试，请在空白处填入适当的语句，使程序可以完成所需要的功能。

PrivateSub Command0_Click（　　）

Dim dbAs DA0．Database

Dim rsAs DA0．Recordset

Dim pszyAs DA0．Field，xcy As DA0．Field，qzksAs DA0．Field

Dim psAs DA0．Field，ks As DA0．FieldSet db=CurrentDb（　　）

Setrs=db．Openrecordset(”平时成绩表”)

Setpszy=rs．Fields(”平时作业”)

Setxcy=rs．Fields(”小测验”)

Setqzks=rs．Fields(”期中考试”)

Setps=rs．Fields(”平时成绩”)

Setks=rs．Fields(”能否考试”)

Do WhileNot rs．EoF

rs．Edit

ps=__________

Ifps>=60 Then

ks=True

Else

ks=False

End If

rs．__________

rs．MoveNext

Loop

rs．Close

db．Close

Setrs=Nothing

Setdb=Nothing

End Sub

横线处应填写的内容是（　　）。