成績賦分。浙江省的選考成績采用等級(jí)賦分制，共分為21檔。賦分方法是先將該科目的成績從高到低排序，再依次根據(jù)不同檔次的人數(shù)進(jìn)行賦分。當(dāng)成績相同但人數(shù)超出該等級(jí)人數(shù)時(shí)，則減少下一檔的人數(shù)。當(dāng)原始成績?yōu)?分，則賦分成績也為0分。某學(xué)校某門科目的選考人數(shù)為200人，部分成績?nèi)鐖Da所示，其相應(yīng)等級(jí)的人數(shù)如圖b所示。請(qǐng)回答下列問題：
（1）根據(jù)題意，觀察賦分表，考號(hào)670500554的學(xué)生的賦分成績是

97

97

。
（2）實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)跈M線處填上合適的代碼。
Dima（1To21）As Integer′該檔次賦分分值
Dimb（1To21）As Integer′該檔次人數(shù)
Dim kh（1To200）As String′學(xué)生考號(hào)
Dim cj1（1To200）As Integer'學(xué)生的原始成績
Dim cj2（1To200）As Integer'學(xué)生賦分后的成績
Private Sub Form_Load（　?。?br />'從數(shù)據(jù)庫中讀取數(shù)據(jù)，將21個(gè)等級(jí)的分值和人數(shù)存儲(chǔ)在數(shù)組a和數(shù)組b中，將學(xué)生的考號(hào)和原始成績存儲(chǔ)在數(shù)組kh和數(shù)組cj1中。最終根據(jù)原始成績從高到低排序后將kh和cj1輸出在列表框 ListI中，代碼略。
End sub
Private Sub Commandl_Click（　?。?br />Dim k As Integer
Dim flag As boolean'是否還可以對(duì)該檔次進(jìn)行賦分
k=1：t=1：cj2（1）=a（1）：flag=True
For i=2 To 200
′根據(jù)學(xué)生的原始成績按檔次進(jìn)行賦分
If cjl（i）=oThen
cj2（i）=0
Elsele①

cj1（i）=cj1（i-1）Ort＜b（k）

cj1（i）=cj1（i-1）Ort＜b（k）

Then'填空1處
t=t+1：cj2 （i）=a（k）
Else
flag=False
End If
If Not flag then'當(dāng)前檔次的分值已經(jīng)賦分完畢
Do While t＞b（k）
②

t=t-b（k）

t=t-b（k）

：k=k+1'填空2處
Loop
t=t+l：cj2（i）=a（k）：③

flag=True

flag=True

'填空3處
End If
Next i
List2．AddItem″學(xué)生考號(hào)″+″″+″學(xué)生成績″
For i=1 To 200
List2．AddItem kh （i）+″″+Str（cj2（i））
Next i
End sub