数据库中有“学生成绩表”,包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段,现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定:“平时成绩”加“考试成绩”大于等于85分,则期末总评为“优”,“平时成绩"加“考试成绩”小于60分,则期

admin2011-04-29  35

问题 数据库中有“学生成绩表”,包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段,现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定:“平时成绩”加“考试成绩”大于等于85分,则期末总评为“优”,“平时成绩"加“考试成绩”小于60分,则期末总评为 “不及格”,其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句,使程序可以完成指定的功能。
    Private Sub CommandO_Click()
    Dim db AS DA0.Database
    Dim rs AS DAO.Recordset
    Dim psci,kscj,qmzp AS DA0.Field
Dim count AS Integer
Set db—CurrntDb()
Set rs=db.OpenRecordset(“学生成绩表”)
Set pscj’=rs.Fields(“平时成绩”)
Set kscj=rs Fields(“考试成绩”)
Set qmzp=rs.Fields(“期末总评”)
cOunt=0
Do While Not,rs.EOF
      
    If pscj+kscj>=85 Then
    qmzp=“优”
    ElseIf pscj+kscj<60 Then
    qmzp=“不及格”
    Else
    qmzp=“合格”
    End If
    rs.Update
    count=count+1
      
Loop
rs.C10se
db.C10se
    Set rs=Nothing
    Set db=Nothing
    MsgBox“学生人数:” .count
End Sub

选项

答案rs.Edit rs.MoveNext

解析 表示设置为编辑状态。
表示记录指针移至下一条。
转载请注明原文地址:https://kaotiyun.com/show/snup777K
0

最新回复(0)