学进去

从 2022 年 1 月起，浙江省的选考成绩将采用新的一分一赋的赋分制，赋分等级与比例如图 1 所示。

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

图 1

赋分具体步骤为：
第一步，将卷面得分按人数比例划分为 20 个赋分区间，得出每个区间卷面得分的上限、下限。（说明：每个赋分等级人数=总人数×每个赋分等级比例(结果四舍五入取整)；当卷面得分相同但人数超出该等级人数时，则减少下一档的人数。）
第二步，对每个区间的卷面得分进行等比例转换成赋分，公式为：其中，s2、s1 为卷面得分区间的上限和下限，s 为待转换卷面得分；t2、t1 为赋分区间的上限和下限，t 为卷面得分等比例转换后的赋分。
第三步，将转换后的赋分 t 取整（小数部分四舍五入）。

编写 VB 程序，实现成绩赋分功能：在列表框 List1 中显示某市所有学生的考号，原始成绩（无 0 分，降序排列）和名次（同分同名），单击“成绩赋分”按钮 Command1 后，赋分成绩按从高到低的顺序显示在列表框 List2 中。程序界面如图 2 所示。

图 2
（1）若赋分区间为 87-85，其对应的卷面得分区间在 84-81，某考生的卷面得分为 83，则通过比例公式转换，该考生的等级赋分为_______分。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Const n=18000                   '总人数
Dim kh(1 To n)As String            '学生考号
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            '每个等级的人数比例
Dim t(1 To 40) As Integer            '每个等级赋分区间的上限和下限
Dim s(1 To 40) As Single            '每个等级卷面得分的上限和下限
Dim num(1 To 20) As Integer
Private Sub Form_Load()
'从数据库中读取数据，将考号、原始成绩分别存储在数组 kh 和数组 cj 中
'将每个等级的比例存入数组 pro 中
'将每个赋分区间的上限、下限存入数组 t 中(如 t(1)、t(2)分别存储等级 1 的赋分上限 100，下限 97)，
'将数组 cj 降序排列，计算出名次存入数组 mc 中，并显示在 List1 中，代码略
End Sub
Private Sub Command1_Click()

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)=________

Next i

num(20)=n

k=1:flag=True:i=1

Do While i<=n        '划定每个等级相应的卷面得分的上限和下限

If mc(i)<num(k) Then
If flag Then s(2*k-1)=cj(i)
flag=False
i=i+1
ElseIf_____Then
s(2*k)=cj(i)
flag=True
i=i+1
Else
________
flag=True
k=k+1
End If

Loop

If s(2*k)=0 Then s(2*k)=cj(n)

'根据比例转换公式计算每个考生的赋分结果，存入数组 cj2 中，代码略。

For i=1 To n

List2．AddItem kh(i)+"    "+Str(cj(i))+ "    "+Str(cj2(i))

Next i

End Sub