问题
填空题
下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能：Private Sub SetAgePlus1_Click() 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 Not rs.EOF rs.Edit fd = 【 】 rs.Update 【 】 Loop rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub
答案
参考答案：(A)fd+l, (B)rs.MoveNext或call rs.MoveNext
解析：本题考查VBA的数据库编程。下面对DAO部分对象进行说明：Database对象：表示操作的数据库对象。RecordSet对象：表示数据库操作返回的记录集。Field对象：表示记录集中的字段数据信息。EOF函数：指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值，本题要求将当前数据库文件中“学生表”的学生“年龄”都加1。第一个空：对“年龄”加1，因此横线处应填入fd+1；第二个空：当遍历完一个记录后，记录指针移向下一条，因此横线处应填入rs.MoveNext。