试题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