成绩赋分。浙江省的选考成绩采用等级赋分制，共分为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