08年4月全国计算机等级考试二级ACCESS试卷及答案全集TXT下载_未知 收款口_小说txt下载

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