问题
填空题
下列子过程的功能是：当前数据库文件中的“学生表”的学生“年龄”都加1，请在程序空白处填写适当的语句，使程序实现所需的功能。
Private Sub SetAgePlus1_Click()
Dim a As DAO.Datahase
Dim rs As DAO.Recordset
Dim fd As DAO.Field
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生表")
Set fd=rs.Fields("年龄")
Do While Not rs.EOF
rs.Edit
fd= (14)
rs.Update
(15)
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
End Sub
答案
参考答案：(14) fd+1 (15) rs.MoreNext或call rs.MoveNext
解析： 本题考查的是VBA编程基础。下面对DAO部分对象进行说明：
Database对象表示操作的数据库对象。
RecordSet对象表示数据库操作返回的记录集。
Field对象表示记录集中的字段数据信息。
EOF函数指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值。
本题要求将当前数据库文件中“学生表”的学生“年龄”都加1。对“年龄”加1，即fd=fd+1，因此，(14)空处应填入fd+1；当遍历完一个记录后，记录指针移向下一条，因此，(15)空处应填入rs.MoveNext或Call rs.MoveNext。
