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
