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

例如，小明技术选考的考试分为72分（S₀=72），该分数在技术考生群体中排位等级为B等级，参考16图a可知，该等级内的等级分最高分为85分（T₂=85）、等级分最低分为71分（T₁=71），且该等级内的所有学生的考试分最高为82分（S₂=82）、最低为67分（S₁=67），则小明的等级赋分计算如下：
 

82

-

72

72

-

67

=

85

-

T

0

T

0

-

71

 T₀=T1+

S

0

-

S

1

S

2

-

S

1

×

（

T

2

-

T

1

）

=71+

72

-

67

82

-

67

×

（

85

-

71

）

≈75（不进位取整）
特别需要注意的是：
（1）划分等级时从高等级（A）向低等级（E）划分，若有同分的临界学生则全部向上合并，并减少下一个等级的学生数，依次类推，直到最后一个等级为所有剩下的学生。
（2）换算等级学生人数、换算等级分时，均采用直接去掉小数的方式取整。
编写VB程序，读取学生某科目成绩并按照“一分一赋”规则换算出所有学生的等级分，显示在List1中，程序运行界面如图b所示。

（1）如图b所示，若该次考试中某考生的卷面分为80分，则对应等级分为

97

97

。
（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））=①

cj（score（i））+1

cj（score（i））+1

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 ②

cj（j）-cj（st+1）＜k

cj（j）-cj（st+1）＜k

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
 ③

st=s1-1

st=s1-1

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