学进去

赋分制是新高考改革中选考科目成绩换算的一种方式，现在有一种新的赋分制是“一分一赋”，该方法采用先划分等级再等比例赋分的方式来实现，规则如图a所示。

图a
例如，小明技术选考的考试分为72分（S₀=72），该分数在技术考生群体中排位等级为B等级，参考16图a可知，该等级内的等级分最高分为85分（T₂=85）、等级分最低分为71分（T₁=71），且该等级内的所有学生的考试分最高为82分（S₂=82）、最低为67分（S₁=67），则小明的等级赋分计算如下：
     （不进位取整）
特别需要注意的是：
（1）划分等级时从高等级（A）向低等级（E）划分，若有同分的临界学生则全部向上合并，并减少下一个等级的学生数，依次类推，直到最后一个等级为所有剩下的学生。
（2）换算等级学生人数、换算等级分时，均采用直接去掉小数的方式取整。
编写VB程序，读取学生某科目成绩并按照“一分一赋”规则换算出所有学生的等级分，显示在List1中，程序运行界面如图b所示。

图b
（1）如图b所示，若该次考试中某考生的卷面分为80分，则对应等级分为_______。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim num(1 To 5000) As String, score(1 To 5000) As Integer
Dim a(1 To 20) As Single, b(1 To 20) As Integer
Dim n As Integer, m As Integer  'n保存学生数,m保存等级数
Private Sub Form_Load()
'读取学号和成绩,分别保存在数组num和score
'数组a等级比例,数组b等级分上下限,如a(1)=15,b(1)=100,b(2)=86,依次类推
End Sub
Private Sub Command1_Click()
Dim cj(1 To 100) As Integer, dj(1 To 100) As Integer, k As Integer
Dim i As Integer, st As Integer, ed As Integer, r As Integer
Dim t1 As Integer, t2 As Integer, s1 As Integer, s2 As Integer
st = 0: ed = 100
For i = 1 To n
cj(score(i)) = ①____________
If st < score(i) Then st = score(i)
If ed > score(i) Then ed = score(i)
Next i
For i = st - 1 To ed Step -1
cj(i) = cj(i) + cj(i + 1)
Next i
r = 0
For i = 1 To m
t2 = b(2 * i - 1): t1 = b(2 * i) :  s2 = st
k = Fix(n * a(i) / 100) – r             '计算当前等级的学生数
If i = m Then
j = ed
Else
j = s2 - 1
Do While ②____________
j = j - 1
Loop
End If
s1 = j
r = cj(s1) - cj(s2 + 1) - k
For j = s2 To s1 Step -1
dj(j) = t1 + Fix((j - s1) * (t2 - t1) / (s2 - s1))
Next j
③____________
Next i
List1.Clear
List1.AddItem " 学生学号 原始分 等级分"
For i = 1 To n
s = num(i) + "  " + Str(score(i)) + "    " + Str(dj(score(i)))
List1.AddItem s
Next i
End Sub