Question

用VB程序设计语言 编写程序，从键盘输入学生成绩，然后统计学生总人数和各分段的人数

即优秀（90-100）、良好（80-89）、中等（70-79）、及格（60-69）、和不及格（59分以下）的人数。一定要按照流程图走，用VB，不用C语言！

Answer 1

Dim n As Integer = InputBox("请输入总人数：", "提示", 0)  '总人数
        Dim s9, s8, s7, s6, s5 As Integer
        For i = 1 To n    '循环填写每个人的成绩
            Dim x As Double = InputBox("请输入第" & i.ToString & "个人的成绩：", "提示", 0)
            Dim c As Double = x / 10
            Select Case c
                Case Is >= 9    '统计优秀
                    s9 += 1
                Case Is >= 8    '统计良好
                    s8 += 1
                Case Is >= 7    '统计中等
                    s7 += 1
                Case Is >= 6    '统计及格
                    s6 += 1
                Case Else        '统计不及格
                    s5 += 1
            End Select
        Next
        MsgBox("总人数：" & n.ToString & vbCrLf & "优秀：" & s9.ToString & vbCrLf & "良好：" & s8.ToString & vbCrLf & "中等：" & s7.ToString & vbCrLf & "及格：" & s6.ToString & vbCrLf & "不及格：" & s5.ToString)