问题
填空题
下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加1。请在程序横线处填写适当的语句，使程序实现所需的功能。
Private Sub SetAgePlus2_Click ( )
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd As ADODB.Field
Dim strConnect As String
Dim strSQL As String
Set cn = CurrentProject.Connection
strSQL= "Select 年龄 from 学生表"
rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
Set fd = rs.Fields("年龄")
Do While Not rs.EOF
fd = （）
rs.Update
rs. （）
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
rs. （）
答案
参考答案：MoveNext
解析：
下面对DAO部分对象进行说明。Database对象：表示操作的数据库对象。RecordSet对象：表示数据库操作返回的记录集。Field对象：表示记录集中的字段数据信息。EOF函数：指示当前记录位置位于Recordset对象的最后一个记录之后。本题要求将当前数据库文件中“学生表”的学生“年龄”都加1，因此在第一个横线处应填入fd+1；当遍历完一个记录后，记录指针移向下一条，因此在第二个横线处应填入rs.MoveNext。