学进去

柯桥区各所学校技术考试的分数均存放在数据库中，表中学生考号存储形式如"10101"，"10203"……，考号第 1 位数字表示学校代码（1 代表柯中，2 代表鲁高，3 代表越崎，4 代表鉴湖，5 代表钱清，6 代表豫才，7 代表轻纺城，9 代表鲁中），后 4 位表示校内编号。现设计 VB 程序查询学校成绩，查询方式为：在 Text1 中输入学校名称，在 Text2 中输入数字 n，单击“查询”按钮，在列表框 List2 中显示该校得分最高的 n 名学生的考号和技术得分。
（1）实现上述功能的程序代码如下，请在划线处填入正确的语句。
（2）设鲁中有技术考生 150 人，如果把程序中加框部分代码删除，当运行程序时在文本框Text2 中输入 200，单击查询按钮后列表框 List2 中显示有_____项（单选，填字母：

A．恰好 150 /

B．恰好 200/

C．大于等于 150 且小于等于 200 /

D．大于等于 200）

Const rs = 2500 '考生总人数（即记录总数）
Dim kh(1 To rs) As String, cj(0 To rs) As Integer
Dim xx(1 To 9) As String '数组 xx 存放学校名称，如 xx(1)="柯中",xx(2)="鲁高"……数组下标代表该学校代码，即"柯中"代码是 1,"鲁高"代码是 2……
'从数据库中读取考号和成绩数据，存入 kh 和 cj 数组，并在 list1 中显示，代码略。
Private Sub Command1_Click()
Dim school As String, n As Integer, i As Integer, j As Integer
Dim t1 As Integer, t2 As String, flag As Boolean
xx(1) = "柯中": xx(2) = "鲁高": xx(3) = "越崎": xx(4) = "鉴湖"
xx(5) = "钱清": xx(6) = "豫才": xx(7) = "轻纺城": xx(8) = "鲁中"
For i = 1 To 8
If xx(i) = Text1.Text Then_____ 
Next i
n = Val(Text2.Text) : i = 1: flag = True
Do While flag

k = i

For j = i + 1 To rs

t = Val(Mid(kh(j), 1, 1))

If    t = school Then
If_____Then k = j

End If

Next j

 

If i > n And cj(k) <> cj(i - 1) or  Then flag = False

If k <> i Then

t1 = cj(i): cj(i) = cj(k): cj(k) = t1
t2 = kh(i): kh(i) = kh(k): kh(k) = t2

End If

i = i + 1

Loop

List2.Clear
For j = 1 To_____
List2.AddItem kh(j) + " " + Str(cj(j))
Next j
End Sub