问题
填空题
下列子过程的功能是：当前数据库文件中的“学生表”的学生“年龄”都加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。