统计出每个分数段的人数

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:42:45
从键盘上输入80个学生的考试成绩，要求能够统计出每个分数段的人数。分数段划分为：[0，59]，[60，75]，[76，89]，[90，100]

建一个Command1，单击按钮即可。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim s(3) As Integer, i As Integer
For i = 1 To 80
Dim a As Single
a = InputBox("请输入第" & i & "个学生的成绩")
Select Case a
Case 0 To 59
s(0) = s(0) + 1
Case 60 To 75
s(1) = s(1) + 1
Case 76 To 89
s(2) = s(2) + 1
Case 90 To 100
s(3) = s(3) + 1
Case Else
MsgBox "输入有误"
i = i - 1
End Select
Next
Print "[0，59]的学生有" & s(0); "人"
Print "[60，75]的学生有" & s(1); "人"
Print "[76，89]的学生有" & s(2); "人"
Print "[90，100]的学生有" & s(3); "人"
End Sub