通过inputbox函数接收若干分数统计出各档次分数的人数，平均分，筛淘滤（不及格/总人数*100%）

Question

vb.net通过inputbox函数接收若干分数统计出各档次分数的人数，平均分，筛淘滤（不及格/总人数*100%），输入负数结束。各档次为不及格0-59，及格60-69，中等70-79，良好80-89，优秀90-99。要在Visual Studio.NET实现的
是图片那样的 ，从哪输入数据啊，能做成图片这样么

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim score As Single, n As Integer, sum As Integer = 0
Dim c1 As Integer = 0, c2 As Integer = 0, c3 As Integer = 0, c4 As Integer = 0, c5 As Integer = 0
n = CInt(InputBox("输入几个人的成绩？"))
For i = 1 To n
score = Val(InputBox("输入第" & i & "个成绩："))
If score < 60 Then
c5 += 1
ElseIf score < 70 Then
c4 += 1
ElseIf score < 80 Then
c3 += 1
ElseIf score < 90 Then
c2 += 1
ElseIf score <= 100 Then
c1 += 1
Else
MsgBox("输入有误")
i -= 1
End If
sum += score
Next
MessageBox.Show("不及格:" & c5 & vbCrLf & "及格:" & c4 & vbCrLf & "中等:" & c3 & vbCrLf & "良好:" & _
c2 & vbCrLf & "优秀:" & c1 & vbCrLf & vbCrLf & "平均分:" & Format(sum / n, "0.00") & vbCrLf & _
"筛淘滤:" & Format(c5 / n * 100, "0.00") & "%")
End Sub