成績賦分。浙江省的選考成績采用等級賦分制，共分為21檔。賦分方法是先將該科目的成績從高到低排序，再依次根據不同檔次的人數進行賦分。當成績相同但人數超出該等級人數時，則減少下一檔的人數。當原始成績為0分，則賦分成績也為0分。某學校某門科目的選考人數為200人，部分成績如圖a所示，其相應等級的人數如圖b所示。請回答下列問題：
（1）根據題意，觀察賦分表，考號670500554的學生的賦分成績是

97

97

。
（2）實現上述功能的程序如下，請在橫線處填上合適的代碼。
Dima（1To21）As Integer′該檔次賦分分值
Dimb（1To21）As Integer′該檔次人數
Dim kh（1To200）As String′學生考號
Dim cj1（1To200）As Integer'學生的原始成績
Dim cj2（1To200）As Integer'學生賦分后的成績
Private Sub Form_Load（　　）
'從數據庫中讀取數據，將21個等級的分值和人數存儲在數組a和數組b中，將學生的考號和原始成績存儲在數組kh和數組cj1中。最終根據原始成績從高到低排序后將kh和cj1輸出在列表框 ListI中，代碼略。
End sub
Private Sub Commandl_Click（　　）
Dim k As Integer
Dim flag As boolean'是否還可以對該檔次進行賦分
k=1：t=1：cj2（1）=a（1）：flag=True
For i=2 To 200
′根據學生的原始成績按檔次進行賦分
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'當前檔次的分值已經賦分完畢
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″學生考號″+″″+″學生成績″
For i=1 To 200
List2．AddItem kh （i）+″″+Str（cj2（i））
Next i
End sub