賦分制是新高考改革中選考科目成績(jī)換算的一種方式，現(xiàn)在有一種新的賦分制是“一分一賦”，該方法采用先劃分等級(jí)再等比例賦分的方式來(lái)實(shí)現(xiàn)，規(guī)則如圖a所示。

例如，小明技術(shù)選考的考試分為72分（S₀=72），該分?jǐn)?shù)在技術(shù)考生群體中排位等級(jí)為B等級(jí)，參考16圖a可知，該等級(jí)內(nèi)的等級(jí)分最高分為85分（T₂=85）、等級(jí)分最低分為71分（T₁=71），且該等級(jí)內(nèi)的所有學(xué)生的考試分最高為82分（S₂=82）、最低為67分（S₁=67），則小明的等級(jí)賦分計(jì)算如下：
 

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（不進(jìn)位取整）
特別需要注意的是：
（1）劃分等級(jí)時(shí)從高等級(jí)（A）向低等級(jí)（E）劃分，若有同分的臨界學(xué)生則全部向上合并，并減少下一個(gè)等級(jí)的學(xué)生數(shù)，依次類推，直到最后一個(gè)等級(jí)為所有剩下的學(xué)生。
（2）換算等級(jí)學(xué)生人數(shù)、換算等級(jí)分時(shí)，均采用直接去掉小數(shù)的方式取整。
編寫VB程序，讀取學(xué)生某科目成績(jī)并按照“一分一賦”規(guī)則換算出所有學(xué)生的等級(jí)分，顯示在List1中，程序運(yùn)行界面如圖b所示。

（1）如圖b所示，若該次考試中某考生的卷面分為80分，則對(duì)應(yīng)等級(jí)分為

97

97

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
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保存學(xué)生數(shù)，m保存等級(jí)數(shù)
Private Sub Form_Load （　　）
'讀取學(xué)號(hào)和成績(jī)，分別保存在數(shù)組num和score
'數(shù)組a等級(jí)比例，數(shù)組b等級(jí)分上下限，如a（1）=15，b（1）=100，b（2）=86，依次類推
End Sub
Private Sub Command1_Click （　?。?br />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'計(jì)算當(dāng)前等級(jí)的學(xué)生數(shù)
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“學(xué)生學(xué)號(hào) 原始分 等級(jí)分“
For i=1 To n
s=num（i）+““+Str（score（i））+““+Str（dj（score（i）））
List1.AddItem s
Next i
End Sub