(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

　　2011年3月計算機等級考試答案

　　2011年3月計算機等級考試試題

　　2011年3月計算機等級考試成績查詢時間及方式

　　2011年3月計算機等級考試成績查詢免費短信提醒