從 2022 年 1 月起，浙江省的選考成績將采用新的一分一賦的賦分制，賦分等級(jí)與比例如圖 1 所示。

等級(jí)	1	2	3	4	5	6	7	8	9	10
等級(jí)賦分	100-97	96-94	93-91	90-88	97-85	84-82	81-79	78-76	75-73	72-70
人數(shù)比例（%）	3	3	4	5	6	7	7	7	7	7
等級(jí)	11	12	13	14	15	16	17	18	19	20
等級(jí)賦分	69-67	66-64	63-61	60-58	57-55	54-52	51-49	48-46	45-43	42-40
人數(shù)比例（%）	7	7	7	6	5	4	3	2	1	1

賦分具體步驟為：
第一步，將卷面得分按人數(shù)比例劃分為 20 個(gè)賦分區(qū)間，得出每個(gè)區(qū)間卷面得分的上限、下限。（說明：每個(gè)賦分等級(jí)人數(shù)=總?cè)藬?shù)×每個(gè)賦分等級(jí)比例（結(jié)果四舍五入取整）；當(dāng)卷面得分相同但人數(shù)超出該等級(jí)人數(shù)時(shí)，則減少下一檔的人數(shù)。）
第二步，對(duì)每個(gè)區(qū)間的卷面得分進(jìn)行等比例轉(zhuǎn)換成賦分，公式為：s2-s=t2-t,其中，s2、s1 為
s-s1t-t1
卷面得分區(qū)間的上限和下限，s 為待轉(zhuǎn)換卷面得分；t2、t1 為賦分區(qū)間的上限和下限，t 為卷面得分等比例轉(zhuǎn)換后的賦分。
第三步，將轉(zhuǎn)換后的賦分 t 取整（小數(shù)部分四舍五入）。
編寫 VB 程序，實(shí)現(xiàn)成績賦分功能：在列表框 List1 中顯示某市所有學(xué)生的考號(hào)，原始成績（無 0 分，降序排列）和名次（同分同名），單擊“成績賦分”按鈕 Command1 后，賦分成績按從高到低的順序顯示在列表框 List2 中。程序界面如圖所示。

（1）若賦分區(qū)間為 87-85，其對(duì)應(yīng)的卷面得分區(qū)間在 84-81，某考生的卷面得分為 83，則通過比例公式轉(zhuǎn)換，該考生的等級(jí)賦分為

86

86

分。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Const n=18000'總?cè)藬?shù)Dim kh（1 To n）As String'學(xué)生考號(hào)Dim cj（1 To n）As Single'原始成績Dim cj2（1 To n）As Integer'賦分成績
Dim mc（1 To n）As Integer'原始成績的排名 Dim pro（1 To 20）As Single'每個(gè)等級(jí)的人數(shù)比例
Dim t（1 To 40）As Integer'每個(gè)等級(jí)賦分區(qū)間的上限和下限D(zhuǎn)im s（1 To 40）As Single'每個(gè)等級(jí)卷面得分的上限和下限D(zhuǎn)im num（1 To 20）As Integer
Private Sub Form_Load （　?。?從數(shù)據(jù)庫中讀取數(shù)據(jù)，將考號(hào)、原始成績分別存儲(chǔ)在數(shù)組 kh 和數(shù)組 cj 中
'將每個(gè)等級(jí)的比例存入數(shù)組 pro 中
'將每個(gè)賦分區(qū)間的上限、下限存入數(shù)組 t 中（如 t（1）、t（2）分別存儲(chǔ)等級(jí) 1 的賦分上限 100，下限 97），
'將數(shù)組 cj 降序排列，計(jì)算出名次存入數(shù)組 mc 中，并顯示在 List1 中，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim flag As Boolean,k As Integer,i As Integer num（1）=Int（pro（1）*n+0.5）
For i=2 To 20
num（i）=①

num（i-1）+Int（pro（i）*n+0.5）

num（i-1）+Int（pro（i）*n+0.5）

Next i num（20）=n
k=1：flag=True：i=1
Do While i＜=n'劃定每個(gè)等級(jí)相應(yīng)的卷面得分的上限和下限 If mc（i）＜num（k）Then
If flag Then s（2*k-1）=cj（i）flag=False
i=i+1
ElseIf②

mc（i）=num（k）

mc（i）=num（k）

Then s（2*k）=cj（i）
flag=True i=i+1
Else
③

s（2*k）=cj（i-1）

s（2*k）=cj（i-1）

 flag=True k=k+1
End If Loop
If s（2*k）=0 Then s（2*k）=cj（n）
'根據(jù)比例轉(zhuǎn)換公式計(jì)算每個(gè)考生的賦分結(jié)果，存入數(shù)組 cj2 中，代碼略。
For i=1 To n
List2.AddItem kh（i）+““+Str（cj（i））+““+Str（cj2（i））Next i
End Sub