VB编程：从键盘输入N个学生的成绩，统计各分数段的学生的人数

Question

如题所述

Answer 1

dim score() as integer
dim students as integer
dim part1 as integer, part2 as integer, part3 as integer, part4 as integer '统计各分数段变量，根据实际情况增加或减少变量
do while 1
score(students) = inputbox("输入成绩","输入")
students = students + 1
if msgbox("继续输入？",,vbYesNO) = vbYes then
exit do
end if
loop
for i = 0 to students
select case score(students)
'分数段设置，请按实际情况改变
case 0 To 59
part1 = part1 + 1
case 60 To 69
part2 = part2 + 1
case 70 To 84
part3 = part3 + 1
case 85 To 100
part4 = part4 + 1
end select
print("0 - 59: "& part1 & " 人。" & vbCtRf)
print("60 - 69: "& part2 & " 人。" & vbCtRf)
print("70 - 84: "& part3 & " 人。" & vbCtRf)
print("85 - 100: "& part4 & " 人。" & vbCtRf)本回答被提问者和网友采纳