某地区进行了4三个年级技术联考，现要求按学校分类对高三年级技术成绩降序排序后输出。小王编写了一个VB程序实现上述要求。先单击“统计”按钮Command1，读取数据库中每位学生的学校、年级、姓名和成绩等信息，进行统计分析后，并在列表框List2中分学校按成绩降序输出。程序运行时界面如图所示。

（1）根据图中示例数据，采用选择排序算法分别对学校B的数据进行排序，整个排序过程中，数组元素之间的比较次数是

B

B

（单选，填字母：A．37×19 次/B．37×18 次/C．36次）。
（2）请在横线处填入合适的代码。
Const rs=480'联考参加学生总人数rs
Const no=3'联考参加学校数no
Dim school（1 To rs） As String'存储学生的学校
Dim nj（1 To rs） As String'存储学生的年级
Dim xm（1 To rs） As String'存储学生的姓名
Dim cj（1 To rs） As Integer'存储学生的成绩
Dim p（1 To rs） As Integer'索引数组
Dim num（1 To no） As Integer
Dim n As Integer
Function id（s As String） As Integer
'根据学校名称转换为对应的数字ID号，代码略
End Function
Private Sub form_load （　　）
'本过程读取每位学生的学校、年级、姓名和成绩的数据分别存储在数组school,nj、xm 和 cj 中，并在 List1 中显示学生成绩数据和每个学校的高三人数，代码略；
End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
Dim b（1 To no） As Integer,c（1 To rs） As Integer,q（1 To rs） As Integer
k=0
For i=1 To n
If nj（i）=″高三″Then
k=k+1
p（k）=①

i

i

num（id（school（i）））=num（id（school（i）））+1
End If
Next i
'在 List1 中显示各学校的高三人数，代码略；
c（1）=1
For i=2 To no
c（i）=c（i-1）+num（i-1）
Next i
For i=1 To k
t=id（school（p（i）））
②
c（t）=c（t）+1
Next i
'----按学校分类，从高分到低分排序后输出-----
pos=1
For i=1 To no
For j=pos To c（i）-2
For m=c（i）-1 To j+1 Step-1
If ③ Then
temp=q（m）：q（m）=q（m-1）：④
End If
Next m
Next j
pos=c（i）
Next i
For i=1 To k
List2．AddItem school（q（i）） &″″& xm（q（i）） &″″& nj（q（i）） &″″& cj（q（i））
Next i
End Sub