（33）运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是

Sub p1( )

  Dim i, j, arr(11) As Integer

  k = 1

  while k <= 10

arr(k) = Val(InputBox(“请输入第” & k & “个数：”, “输入窗口” ))

k = k + 1

      Wend

      For i = 1 To 9

         j = i + 1

         If  arr(i ) > arr(j)  Then

            temp  = arr(i)

            arr(i) = arr(j)

            arr(j) = temp

         End If

         Debug.Print arr(i)

     Next i

  End Sub

A）无序数列   B）升序数列   C）降序数列    D）原输入数列

（34）下列程序的功能是计算N = 2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。

Private Sub Command34_Click( )

  t = 0

  m = 0

  sum = 0

  Do

t = t+m

sum = sum + t

m =             

  Loop while m < 41

  MsgBox “Sum = “ & sum

End Sub

空白处应该填写的语句是

A）t + 2    B）t + 1     C）m + 2        D）m + 1

（35）利用ADO访问数据库的步骤是：

  ①定义和创建ADO实例变量

②设置连接参数并打开连接

③设置命令参数并执行命令

④设置查询参数并打开记录集

⑤操作记录集

⑥关闭、回收有关对象
这些步骤的执行顺序应该是

A）①④③②⑤⑥           B）①③④②⑤⑥

C）①③④⑤②⑥           D）①②③④⑤⑥

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

请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。

（1）在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为         [1]        。

（2）设循环队列的存储空间为Q（1：30），初始状态为front = rear = 30。现经过一系列入队与退队运算后，front = 16, rear = 15, 则循环队列中有    [2]     个元素。

（3）数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是  [3]  。

（4）在将E-R图转换到关系模式时，实体和联系都可以表示成   [4]   。

（5）常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于    [5]    。

（6）Access的查询分为5种类型，分别是选择查询、参数查询、操作查询、SQL查询和    [6]查询。

（7）如果要求用户输入的值是一个3位的整数，那么其有效性规则表达式可以设置为  [7]  。

（8）在工资表中有姓名和工资等字段，若要求查询结果按照工资降序排列，可使用的SQL语句是：SELECT 姓名，工资FROM 工资表 ORDER BY 工资    [8]    。

（9）在宏中引用窗体控件的命令格式是    [9]     。

（10）已知：Dim rs As new ADODB.RecordSet, 在程序中为了得到记录集的下一条记录，应该使用的方法是rs.    [10]    。

（11）在VBA中，没有显式声明或使用符号来定义的变量，其数据类型默认是  [11]  。

（12）下列程序的功能是：输入10个整数，逆序后输出，请在程序空白处填入适当语句使程序完成指定的功能。

Private Sub Command2_Click( )

  Dim i, j, k, temp, arr(11) As Integer

  Dim result As String

  For k = 1 To 10

    arr(k) = Val(InputBox(“请输入第” &k&“个数：”, “数据输入窗口”))

  Next k

  i = 1

  j = 10

  Do

    temp = arr(i)

    arr(i) = arr(j)

    arr(j) = temp