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