End Sub

运行以上事件所完成的功能是______。

A）对输入的10个数据求累加和

B）对输入的10个数据求各自的余数，然后再进行累加

C）对输入的10个数据分别统计有几个是整数，有几个是非整数

D）对输入的10个数据分别统计有几个是奇数，有几个是偶数

二、填空题（每空2分，共30分）

请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

（1）测试用例包括输入值集和 【1】  值集。

（2）深度为5的满二叉树有 【2】  个叶子结点。

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

（4）在关系数据库中，用来表示实体之间联系的是 【4】  。

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

（6）在Access中，要在查找条件中与任意一个数字字符匹配，可使用的通配符是_ 【6】 。

（7）在学生成绩表中，如果需要根据输入的学生姓名查找学生的成绩，需要使用的是 【7】 查询。

（8）Int(-3.25)的结果是 _【8】_。

（9）分支结构在程序执行时，根据  【9】 选择执行不同的程序语句。

（10）在VBA中变体类型的类型标识是 【10】 。

（11）在窗体中有一个名为Command1的命令按钮，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】 。

（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 =  【12】

max_n =  【13】

          End If

       Next i

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

   End Sub

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

Private Sub SetAgePlus1_Click()

    Dim db 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

一、选择题

01. C 02.A 03. B 04. B 05.A   06. D 07. B 08. C 09. D 10. C   11. D 12.A 13. B 14. B 15. D

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    31.A 32. D 33.A 34. C 35. D

二、填空题

1. 输出                       2. 16

3. 24                         4. 关系

5. 数据定义语言               6. #

7. 参数 &n