数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中,平时成绩=平时作业×50%+小测验×10%+期中成绩×40%。如果学生平时成绩大于等于60分,则可以参加期末考试(“能否考试”字段为真),否则学生不能参加期末考试。
下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试,请在空白处填入适当的语句,使程序可以完成所需要的功能。
PrivateSub Command0_Click( )
Dim dbAs DA0.Database
Dim rsAs DA0.Recordset
Dim pszyAs DA0.Field,xcy As DA0.Field,qzksAs DA0.Field
Dim psAs DA0.Field,ks As DA0.FieldSet db=CurrentDb( )
Setrs=db.Openrecordset(”平时成绩表”)
Setpszy=rs.Fields(”平时作业”)
Setxcy=rs.Fields(”小测验”)
Setqzks=rs.Fields(”期中考试”)
Setps=rs.Fields(”平时成绩”)
Setks=rs.Fields(”能否考试”)
Do WhileNot rs.EoF
rs.Edit
ps=__________
Ifps>=60 Then
ks=True
Else
ks=False
End If
rs.__________
rs.MoveNext
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
End Sub
横线处应填写的内容是( )。
免费的网站请分享给朋友吧