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