小明编写了一个 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

   随机产生15个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。例如，连续5个H字母显示为5*H，如图所示，请在划线处填入合适代码。  

Sub command1_Click( )
Const N = 14
Dim a(1 to n) As Char, c As Char   ‘数组a用于存储随机产生字母
Dim count, i, k, j as integer
Label1.caption = ""
For i = 0 To N
a(i) = ________
Label1.caption = a(i) & " "
Next i
For i = 0 To N - 1
k = i
For j = i + 1 To N
If a(j) > a(k) Then_________  
Next j
c = a(i) : ___________: a(k) = c
Next i
For i = 0 To N '输出排序的结果
Label1.caption = a(i) & " "
Next i
i = 0
Do While i <= N '压缩显示相同元素   
count = 1
If i < N Then j = i + 1
Do While a(i) = a(j)
If i <> j Then count = ____________
If j < N Then j = j + 1 Else Exit Do
Loop
If count = 1 Then
Label1.caption = a(i) & " "
Else
Label1.caption = ___________  
End If
i = i + count
Loop
End Sub

下列 VB 程序段的功能为：对数组 a 中的 n 个元素进行排序，生成左右交替上升的数据系列。如排序前 a 中元素依次为：21，33，56，11，44，60，程序运行后  a 中元素依次为：11，33，56，60，44，21。
For i=1 To    ①     
k=i
For j=i+1 To n-i+1
If a(k)>a(j) Then k=   ②     
Next j
If k<>i Then t=a(k):a(k)=a(i):a(i)=t  For j=    ③     
If a(j)<a(j+1) Then    a(j)=a(j)+a(j+1) : a(j+1)=a(j)-a(j+1):a(j)=a(j)-a(j+1) Next j
Next i
上述程序段 3 个划线处的表达式分别为（   ）

A．①   n-1    ②    j+1    ③   i To n-i+1

B．①   n-1    ②    j+1    ③   i To n-i

C．①   n\2    ②    j    ③   i+1 To n-i

D．①   n\2    ②    j    ③   i+1 To n-i+1

顺序查找算法程序如下，下列说法正确的是（ ）
Dim d(1 to 10) as Integer
n=10 : count = 0
For i = 1 To n

count = count + 1

If ①  Then

Label1.Caption = “顺序查找在数组的第” & i & “位找到了” & v

Exit For

End If

Next i
If ②  Then

Label1.Caption = “顺序查找没有找到” & v

End If

A．①处的代码为key=d(i)

B．②处的代码为i>n

C．在最好情况下，查找结束时变量count 的值为0

D．当变量count 的值为10，说明已经找到了

读程序，写出下列程序的输出结果
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是(    )

A．400

B．401

C．200

D．201