统计班上35名学生成绩最低分C语言,某地学考等级划分规则如下： 将考生原始成绩从高到低划分为A、B+、B、C+、C、D+、D、E共8个等级，各等级人数所占比例分别为3%、7%、16%、24%、24%...

(2)

请在划线处填上合适的代码。

Const max = 1000

Dim n As Integer                        '存放学生人数

Dim xh(1 To max) As String              '数组xh存放学生的学籍号

Dim xm(1 To max) As String              '数组xm存放学生的姓名

Dim bj(1 To max) As Integer             '数组bj存放学生的班级

Dim fs(0 To max) As Single              '数组fs存储学生的原始分数

Dim ffdj(0 To max) As String            '数组ffdj存储学生的赋分等级

Private Sub Command1_Click()

Dim p(1 To 8)

As Single, dj(1 To 8) As String

Dim i As

Integer, j As Integer, pos As Integer, last As Integer

Dim st As

String, it As Integer, sit As Single

‘从数据库中读入学生学号、姓名、班级和原始成绩，分别存入数组xh、xm、bj和fz中，代码略

p(1) = 0.03:

p(2) = 0.07: p(3) = 0.16: p(4) = 0.24：p(5) = 0.24: p(6) = 0.16: p(7) = 0.07:

p(8) = 0.03：dj(1) = "A": dj(2) =

"B+": dj(3) = "B": dj(4) = "C+"：dj(5) = "C": dj(6) = "D+": dj(7) =

"D": dj(8) = "E"

For i = 2 To 8

________                '计算到该等级累计所占比例

Next i

For i = 1 To n

- 1

For j = 1 To n - i

If

 Then

st = xh(j): xh(j) = xh(j + 1): xh(j + 1) = st

st = xm(j): xm(j) = xm(j + 1): xm(j + 1) = st

it = bj(j): bj(j) = bj(j + 1): bj(j + 1) = it

sit = fs(j): fs(j) = fs(j + 1): fs(j + 1) = sit

End If

Next j

Next i

pos = 1

For i = 1 To 8

last =________            '人数四舍五入取整

Do While fs(last + 1) = fs(last)

last = last + 1                     '处理切分位置的同分数学生

Loop

Do While________

ffdj(pos) = dj(i)

pos = pos + 1

Loop

Next i

For i = 1 To n

List2.AddItem xh(i) +" "+xm(i) +" "+Str(bj(i)) +" "+ Str(fs(i)) +" "+ ffdj(i)

Next i

End Sub