15问答网 > 2. 设计程序，输入班级所有学生的成绩，统计各个等级（优、良、中、及格、不及格）的人数并输出。要求画出

2. 设计程序，输入班级所有学生的成绩，统计各个等级（优、良、中、及格、不及格）的人数并输出。要求画出

2025-05-20 04:58:04

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim y As Integer
Dim l As Integer
Dim z As Integer
Dim j As Integer
Dim b As Integer
a = InputBox("请输入总人数")
For i = 1 To a
b = InputBox("请输入总分")
If b >= 90 Then y = y + 1
If b >= 80 And b < 90 Then l = l + 1
If b >= 70 And b < 80 Then z = z + 1
If b >= 60 And b < 70 Then j = j + 1
If b < 60 Then b = b + 1
Next
Print "优" & y
Print "良" & l
Print "中" & z
Print "及格" & j
Print "不及格" & b

End Sub