试题13
数据库中有“平时成绩表”,包括“学号”“姓名”“平时作业”“小测验”“期中考试”“平时成绩”和“能否考试”等字段,其中,平时成绩=平时作业*50%+小测验*10%+期中成绩*40%,如果学生平时成绩大于等于60分,则可以参加期末考试(“能否考试”字段为真),否则学生不能参加期末考试。
下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试。请在空白处填入实弹的语句,使程序可以完成所需要的功能。
Private Sub Command0_Click()
Dim db As Single
Dim rs As Single
Dim pazy As DAO.Field, xcy As DAO.Field, qzks As DAO.Field
Dim ps As DAO.Field , ks As DAO.Field
Set db = CurrentDb
Set rs = db.OpenRecordset(“平时成绩表”)
Set pszy = rs.Fields(“平时作业”)
Set xcy= rs.Fields(“小测验”)
Set qzks = rs.Fields(“期中考试”)
Set ps = rs.Fields(“平时成绩”)
Set ks = rs.Fields(“能否考试”)
Do While Not rs.EOF
rs.Edit
ps=__【14】____
If ps >=60 Then
ks=True
Else
Ks=False
End If
rs.___【15】___
rs.MoveNext
Loop
rs.close
db.close
Set rs = Nothing
Set db=Nothing
End Sub