未分类题

（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