2. 计算机
  3. 子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。 Sub Plus() Dim ws As DAO．Workspace Dim db As DAO．Database Dim rs As DAO．Recordse

子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。 Sub Plus() Dim ws As DAO．Workspace Dim db As DAO．Database Dim rs As DAO．Recordse

admin2019-02-19  39
问题 子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。
    Sub Plus()
    Dim ws As DAO．Workspace
    Dim db As DAO．Database
    Dim rs As DAO．Recordset
    Dim fd As DAO．Field
    Set db=CurrentDb()
    Set rs=db．OpenRecordset("教师表")
    Set fd=rs．Fields("工龄")
    Do While[]
    rs．Edit
    fd=fd+1
    rs．Update
    rs．MoveNext
    Loop
    rs．Close
    db．Close
    Set rs=Nothing
    Set db=Nothing
    End Sub
    程序空白处[]应该填写的语句是
选项 A、db．EOF
B、rs．EOF
C、Notdb．EOF
D、Notrs．EOF
答案D
解析 EOF函数的作用是判断是否到达记录的结尾，在到达结尾前，该函数的返回值都是False，本题需要对当前库中“教师表”的工龄字段都加1，使用Do While…Loop循环结构，依次取出每条语句，条件语句用于判断记录指针是否到达记录集的结尾，如果没有，rs．EOF返回false，Not rs．Eof返回true，则继续向下移动记录指针，如果记录指针到达记录集的结尾，rs．EOF返回true，Not rs．EOF返回false，结束循环。
转载请注明原文地址:https://jikaoti.com/ti/hHo0FFFM
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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