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

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

admin2011-04-29  44
问题 数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段，现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：“平时成绩”加“考试成绩”大于等于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
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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