08年4月全国计算机等级考试二级ACCESS试卷及答案在线阅读_未知精彩免费下载

Private Sub SetAgePlus1_Click()

Dim a 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 =____[14]____

rs.Update

___[15]___

Loop

rs.Close

db.Close

Set rs = Nothing

Set db = Nothing

End Sub

答案：

一、选择：

1、C

2、A

3、B

4、B

5、A

6、D

7、B

8、C

9、D

10、C

11、D

12、A

13、B

14、B

15、c

16、B

17、C

18、C

19、A

20、C

21、C

22、D

23、B

24、A

25、A

26、D

27、D

28、A

29、C

30、B