学进去

某县有15所初中，其中代码01、02和03为城区学校，其他为乡镇初中，为鼓励乡镇初中报考县重点高中，该高中为乡镇初中分配了定向名额，当该校上线人数未达到定向人数时，在未到分数线10分以内的学生中，从高分到低分录取增加学生，直到总人数达到定向人数。该高中总的招生人数（含定向生）不得超出800人。小明依据上述描述设计了如下VB程序。算法基本思路：
1）先找到第801名学生的成绩，向前查找高1分的学生，把该分数记为分数线；
2）统计该分数线以上，各校录取人数；
3）从该分数线向下查找10分以内的学生，如果某校上线人数达定向人数，则作为定向增加的录人数；
4）若录取人数加定向增加人数超过800人，将分数再提高1分，重复以上操作。
程序运行时的界面如下图所示。

请回答下列问题：
（1）该程序运行后，第1个被定向录取的学生所在学校代码是_________。
（2）请在划线处填入合适的代码。
Const n=5992
Dim xdm(n) As String, xm(n) As String 'xdm存储学生所在学校代码,从01～15
Dim dx(15) As Integer, zkz(n) As String, cj(n) As Integer 'dx存储每所学校定向指标
Private Sub Command2_Click()
Dim i As Integer, j As Integer '按成绩从高到低序号
Dim s As Integer '总的招生人数
Dim fsx As Integer '招生分数线
Dim xrs(15) As Integer '大于等于分数线人数
Dim zjdx(15) As Integer '未到定向指标而录取人数
s=801:i =801
Do While s> 800
Do While cj(i) =cj(i-1)
i=i-1
Loop
For j=1 To 15
xrs(j)=0:zjdx(j)=0
Next j
For j=1 To i-1

①____

xrs(t)=xrs(t)+1

Next j
s=②_____
fsx=cj(j-1)
Do While cj(j)>=fsx-10

t=Val(xdm(j))

If ③___ Then

s=s+1
zjdx(t)=zjdx(t)+1

End If

j=j+1

Loop
i=i-1
Loop
List2.AddItem "学校 定向指标上线人数定向合计"
For j=1 To 15
List2.AddItem Str(j)+ "" +Str(dx(j))+Str(xrs(j))+ ""+Str(jdx(j)) ""+Str(zjdx(j)+ ""+Str(zjdx(j)+xrs(j))
Next j
List2.AddItem "录取分数线为"+Str(fsx)+ ",本次录取人数为:"+Str(s)
End Sub
Private Sub Form_Load()
'按成绩降序排列从数据库中读取学生相关信息,并显示在列表款List1中,代码略
End Sub