为了合理有效的共享学校图书馆自修室资源，学校实行自修室座位网上预约，学生
按学号登录系统进行预约（学号编码为六位数字，第一二位代表年级，第三四位代表班级，第五 六位代表顺序号。如 030102 表示高三 1 班 2 号同学）。为了方便老师管理，预约结束由电脑进行 排位。排位规则如下：
①年级优先原则，先高三再高二最后高一
②班号优先原则，同年级的班号小的排前面
③序号优先原则，同班级同学序号小的排前面 小张根据以上要求编写了 VB 程序，程序界面如下图所示：

实现上述功能的 VB 程序代码如下，请回答下列问题：
⑴分析程序，可知调用的数据库的名称为____________________________________。
⑵请在划线处填入合适的代码。
Dim a(200) As String
Const num = 200
Dim temp As String
Private Sub Form_Load()    ‘此处代码实现将预约信息存储到数组 a(i)中
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "provider=Microsoft.AC

A．OLEDB.12.0;data source=" & App.Path & "" &"stu.accdb"

rs.Open "select * from student"
i = 1
Do While Not rs.EOF
a(i) = rs("xuehao") 
rs.MoveNext
①____________
Loop
rs.Close
cn.Close
List1.AddItem "预约号" & "    " & "学号"
For i = 1 To num

List1.AddItem Str(i) & "    " & a(i)

Next i
End Sub
Private Sub Command1_Click()
For i = 1 To num - 1
For j = num To i + 1 Step -1
If   ②____________  Then
temp = a(j) a(j) = a(j - 1) a(j - 1) = temp
End If

Next j

Next i
List2.Clear
List2.AddItem "座位" & "    " & "学号"
For i = 1 To num
List1.AddItem Str(i) & "    " & a(i)
Next i
End Sub
Function check(x As String, y As String) As Boolean
Dim x1 As Integer, x2 As Integer, x3 As Integer
Dim y1 As Integer, y2 As Integer, y3 As Integer
x1 = Val(Mid(x, 1, 2)) : x2 = Val(Mid(x, 3, 2)) : x3 = Val(Mid(x, 5, 2))
y1 = Val(Mid(y, 1, 2)) : y2 = Val(Mid(y, 3, 2)) : y3 = Val(Mid(y, 5, 2))
If x1 < y1 Or x1 =   y1 And x2 > y2 Or    ③__________   Then
check = True
Else

check = False

End If
End Function

学校组织运动会，开幕式的时候要求每个班排成一个方阵，为了能快速地排成方阵，小张编写了一个 VB 程序，程序功能：在文本框 Text1 中输入每一行的人数，在文本框 Text2 中输入班级人数（输入人数<=60），单击“排队”按钮 Cmd1 后，在列表框 List1 中按学号显示队形。程序运行界面如下图所示，程序代码如下，请回答下列问题：


（1）以上代码的事件处理过程名是___________。
（2）程序代码中加框处有两处错误，请改正：①___________② ___________
（3）程序代码中，请将③处的代码补充完整___________

（加试题）某程序代码如下：
Private Sub Command1_Click()
Dim c  As Integer
Dim a(1 To 20) As String
s = "123 how are you": c = 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
For j = Len(s) To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
For i = 1 To Len(s) - 1
If a(i) < a(i + 1) Then c = c + 1
Next i
Text2.Text = Str(c)
End Sub程序运行结束后,变量c的值是（ ）

A．13

B．11

C．10

D．15

下面程序段用于求两数中的较大数（结果保存到变量maxn中），不正确的是（ ）

A．maxn=x If y>="maxn" Then maxn=y

B．If x>y Then maxn="x" Else maxn=y

C．maxn=x If y>="x" Then maxn=y

D．If y>="x" Then maxn=y

maxn=x

下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。

（1）虚线内程序段所采用的排序算法名称是 。
（2）程序加框处代码有错，请改正。