数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中,平时成绩=平时作业×50%+小测验×10%+期中成绩×40%,如果学生平时成绩大于等于60分,则可以参加期末考试(“能否考试”

admin2011-10-24  34

问题 数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中,平时成绩=平时作业×50%+小测验×10%+期中成绩×40%,如果学生平时成绩大于等于60分,则可以参加期末考试(“能否考试”字段为真),否则学生不能参加期末考试。
    下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试。请在空白处填入适当的语句,使程序可以完成所需要的功能。
    Private sub Command0_Click()
         Dim db As DAO.Database   
         Dim rs As DAO.Recordset
         Dim pszy AS DAO.Field,xcy As DAO Field,qzks As DAO.Field
         Dim ps As DAO.Field.ks As DA0.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>=6n 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

选项

答案pszy*0.5+xcy*0.1+qzks*0.4; Update

解析 Do While…Loop语句是在条件式结果为真时,执行循环体,并持续到条件式结果为假或执行到选择性Exit Do语句而退出循环。在程序中,本循环的作用是遍历记录,求出平时成绩,根据平时成绩判断能否参加期末考试,然后提交。通过语句”ps=pszy*0.5+xcy*0.1+qzks*0.4”求出平时成绩,之后进行判断如果平时成绩大于等于60,则可以参加期末考试,将ks设置为True;否则不能参加期末考试,ks设置为False。在对每条记录进行计算之后,要更新数据表中的相应记录,用rs.Update表示。
转载请注明原文地址:https://kaotiyun.com/show/0Tup777K
0

相关试题推荐
最新回复(0)