某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（ ）

A．2 5.5 3 6.2 4.5

B．2 3 6.2 4.5 5.5

C．2 4.5 6.2 3 5.5

D．2 3 5.5 4.5 6.2

（加试题）对数组a中的u个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
17	39	48	……	79	46	34

 
设计一个VB程序，单击“排序”按钮Command1后，在标签中输出排序后的数据序列，运行结果如图所示。

实现上述功能的VB程序如下，加框处代码有错，请改正。
Const n-9  ‘变量u存储待排序数据个数，以9个数为例
Dim a(1 Ton) As Integer ‘数组a存储待排序数据
Private Sub Command1_Click()

Dim i As Integer，j As Integer，t As Integer，k As Integer

‘读取一组正整数，存入数组a中，

‘在标签Label中依次输出排序前数组a从1到n各个元素的值，代码略；

For i = 1 To n\2

k=1 Label'①________
For j=i+1 To n-i+1
If a(k) > a(j) Then k = j
Next j
For j=i+1To n ‘②________
If a(j) <a(j +1) Then t =a(j): a(j) =a(j +1): a(j +1)=
Next j
Next i

‘在标签中依次输出排序后数组a从1到n各个元素的值，代码略；

End Sub

小明编写了一个 VB 程序对成绩数据进行排序。为保证相同分数的同学相对位置（指原数据中的前后关系）不发生改变，他试着采用一种新的排序算法来解决。为便于描述算法的实现过程，假定有如下数组 a：

下标	1	2	3	4	5
值	5	3	3	2	4

 
第一步：统计数组 a 中每个值 a(i)出现的次数，存入 b(a(i))，统计完成后数组 b 的情况如下：

下标	1	2	3	4	5
值	0	1	2	1	1

 
第二步：从前向后，依次使数组 b 中的每个值等于其与前一项之和，这样数组 b(a(i))就代表了数组 a 中小于或等于 a(i)的元素个数，完成第二步后数组 b 如下：

下标	1	2	3	4	5
值	0	1	3	4	5

 
第三步：从后往前，依次将数组 a 中元素填入数组 c 中，将数组元素 a(i)放在数组 c 的第 b(a(i))项，如元素 a(1)=5，应该放在数组 c 的 b(5)位（即 c(5） )。每放一个元素就将 b(a(i))递减；完成第三步后，数组 c 如下所示，已经完成升序排序，且相对位置不变，即原来 a （2）的值 3 仍然在 a(3)的值 3 前面。

下标	1	2	3	4	5
值	2	3	3	4	5

 
程序运行界面如右图所示：

实现上述功能的 VB 程序如下，回答以下问题：
（1） 从代码中可以得知，用于连接数据库的对象名是：________
（2） 请在划线处填上相应代码。
Dim a(1 To 50) As Integer '存放学生的成绩
Dim sname(1 To 50) As String '存放学生姓名
Dim n As Integer
Private Sub Command1_Click
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" +
App.Path + "\stu.accdb"
conn.Open
strSQL = "SELECT * From stucj"
Set rs.ActiveConnection = conn
rs.Open strSQL
n = 0
List1.AddItem "姓 名" & " " & "成绩"
Do While Not rs.EOF
n = n + 1
a(n) = rs.Fields("cj")
sname(n) = rs.Fields("xm")
List1.AddItem sname(n) & " " & Str(a(n))
①_________
Loop
rs.Close
conn.Close
End Sub
Private Sub Command2_Click
Dim i As Integer, k As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 50) As Integer, c1(1 To 50) As String 'c 和 c1 作为临时数组
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next
For i = 1 To 100
b(i) = ②__________
Next
For i = n To 1 Step -1
c(b(a(i))) = a(i)
c1(b(a(i))) = sname(i)
③_________________
Next
For i = 1 To n '把临时数组 c 和 c1 中的数据放入 a 和 sname 数组
a(i) = c(i)
sname(i) = c1(i)
Next
List2.AddItem "姓 名" & " " & "成绩"
For i = 1 To n
List2.AddItem sname(i) & " " & Str(a(i))

Next

End Sub

将数组a中的8 个数据“18,33,5,26,86,0,60,200”按从大到小的顺序排列,每次可以交换任意两个元素,最少需要交换的次数是(  )

A．4

B．5

C．6

D．7

数组nam（）、sex（）、math（）、su（）分别存放学生的姓名、性别、数学和总分成绩，现要求编写一个程序使得数据按照男生“总分”的降序和女生“总分”的升序排列，其中男生在前女生在后，程序界面如下图所示：

实现该功能的VB程序如下，但加框处代码有错，请改正。

Dim nam(100) As String '存放学生姓名

Dim sex(100) As String '存放学生性别

Dim math(100) As Long '存放学生数学成绩

Dim su(100) As Long '存放学生总分成绩

Dim k As Integer 'k变量用来存学生人数

Private Sub Form_Load()

‘将数据库中的数据分别存储在相应的变量中并在列表框中显示出来

‘代码略

End Sub

Private Sub Command1_Click()

Dim mmax As Integer, gmax As Integer, flagm As Boolean, flagg As Boolean

i = 1: flagm = True: flagg = True

Do While i <= k And flagm = True ①   

    mmax = 0: gmax = 0

    flagm = False: flagg = False

  For j = i To k - i + 1

    If sex(j) = "男" And su(j) > su(mmax) Then mmax = j

    If sex(j) = "女" And su(j) > su(gmax) Then gmax = j

  Next j

   If mmax <> 0 Then

flagm = True

t = nam(mmax): nam(mmax) = nam(i): nam(i) = t

t = sex(mmax): sex(mmax) = sex(i): sex(i) = t

t = math(mmax): math(mmax) = math(i): math(i) = t

t = su(mmax): su(mmax) = su(i): su(i) = t

   End If

   If gmax <> 0 Then

flagg = True

If j = mmax Then    ②   

gmax = mmax

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(i): math(i) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

Else

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(k - i + 1): math(k - i + 1) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

End If

   End If

i = i + 1

Loop

For i = 1 To k

List2.AddItem nam(i) + "    " + sex(i) + "    " + Str(math(i)) + "    " + Str(su(i))

Next i

End Sub

程序中①处改为________________________________________。
程序中②处改为________________________________________。