08年4月全國計算機等級考試二級ACCESS試卷及答案約2958字精彩大結局_最新章節列表_未知

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