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




![讀者他哭聲沙啞[穿書]](/ae01/kf/UTB8aW.uO3QydeJk43PUq6AyQpXaN-cNM.jpg?sm)








