填空题下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加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 = {{U}}【14】 {{/U}} rs.Update {{U}} 【15】 {{/U}} Loop rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub

1、

【正确答案】 1、[14] fd+l

【答案解析】[15] rs.MoveNext或call rs.MoveNext [知识点] VBA的数据库编程 [评析] 下面对DAO部分对象进行说明： Database对象：表示操作的数据库对象。 RecordSet对象：表示数据库操作返回的记录集。 Field对象：表示记录集中的字段数据信息。 EOF函数：指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值，本题要求将当前数据库文件中“学生表”的学生“年龄”都加1。空1：对“年龄”加1，因此横线处应填入fd+1；空2：当遍历完一个记录后，记录指针移向下一条，因此横线处应填入rs.MoveNext。