VB利用一维数组统一班15个学生0~~~9，10~~19。20~~29。。。。90~~99及100各分数段的人数并将统计结果

Private Sub Form_activate()
Dim a(1 To 15) As Integer, b(1 To 11) As Integer
For i = 1 To 15
a(i) = Val(InputBox("请输入第" + Str(i) + "同学的成绩"))
If a(i) = 100 Then
b(1) = b(1) + 1
ElseIf a(i) >= 90 Then
b(2) = b(2) + 1
ElseIf a(i) >= 80 Then
b(3) = b(3) + 1
ElseIf a(i) >= 70 Then
b(4) = b(4) + 1
ElseIf a(i) >= 60 Then
b(5) = b(5) + 1
ElseIf a(i) >= 50 Then
b(6) = b(6) + 1
ElseIf a(i) >= 40 Then
b(7) = b(7) + 1
ElseIf a(i) >= 30 Then
b(8) = b(8) + 1
ElseIf a(i) >= 20 Then
b(9) = b(9) + 1
ElseIf a(i) >= 10 Then
b(10) = b(10) + 1
Else
b(11) = b(11) + 1
End If
Next i
For j = 11 To 1 Step -1
List1.AddItem Trim(Str(b(j)))
Next j
End Sub

我输出设置为你的那个顺序下来看的哦。
第一个输出的1-9成绩的人数，一直到最后一个哦。