（13）数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平

（13）数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：

“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。

下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command0_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim pscj,kscj,qmzp As DAO.Field

Dim count As Integer

Set db=CurrentDb()

Set rs=db.OpenRecordset("学生成绩表")

Set pscj=rs.Fields("平时成绩")

Set kscj=rs.Fields("考试成绩")

Set qmzp=rs.Fields("期末总评")

count=0

Do While Not rs.EOF

【14】

If pscj+kscj>=85 Then

qmzp="优"

ElseIf pscj+kscj<60 Then

qmzp="不及格"

Else

qmzp="合格"

End If

rs.Update

count=count+1

【15】

Loop

rs.Close

db.Close

Set rs=Nothing

Set db=Nothing

MsgBox "学生人数："&count

End Sub