(13) 下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ，请在程序空白处填写适当的语句，使程序实现所需的功能

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

（ 12 ）在窗体中有一个名为 Command12 的命令按钮， Click 事件的代码如下：该事件所完成的功能是：接受从键盘输入的 10 个大于 0 的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。

Private Sub Command12_Click( )

max=0

max_n=0

For i=1 To 10

num=Val(InputBox(" 请输入第 "& i &" 个大于 0 的整数： "))

If (num>max)Then

max= ___________

max_n= ___________

End If

Next i

MsgBox(" 最大值为第 "& max_n&" 个输入的 "& max)

End Sub

(13) 下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ，请在程序空白处填写适当的语句，使程序实现所需的功能

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

（ 11 ）在窗体中有一个名为 command 的命令按钮， click 事件的代码如下：

private sub command1_click()

f=0

for n=1 to 10 step 2

f=f+n

next n

me!lb1.caption=f

end sub

单击命令按钮后，标签显示的结果是 ___[11]___ 。

（ 10 ）在 VBA 中变体类型的类型标识是 __[10]__ 。

（ 8 ） int(-3.25) 的结果是 ___[8]___ 。

（ 9 ）分支结构在呈现执行时，根据 __[9]__ 选择执行不同的程序语句。

（ 5 ）在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中， 【 5 】 负责数据的模式定义与数据的物理存取构建。

（ 7 ）在学生成绩表中，如果需要根据输入的学生姓名查找学生的成绩，需要使用的是 ___[7]___ 插销

（ 6 ）在 ACCESS 中，要在查找条件中与任意一个数字字符匹配，可使用的通配符是 __[6]___ 。

（ 3 ） 设某循环队列的容量为 50 ， 头指针 front=5 （ 指向队头元素的前一位置 ） ， 尾指针 rear=29 （ 指向队尾元素），则该循环队列中共有 【 3 】 个元素。