Private Sub CountGradesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CountGradesButton.Click

        ' Code to determine grades from student scores and

        '   report number of students achieving each grade.

 

        ' Create an array of student scores for this example.

        Dim scores() As Integer = {70, 91, 51, 62, 1001, 100, 95, 86, 81, 60, 82, -2}

 

        ' Declare variables to hold grade counts.

        Dim gradeA, gradeB, gradeC, gradeD, gradeF, perfectGrade, invalidGrade As Integer

 

        ' Iterate through student scores.

        Dim i As Integer

        For i = 0 To scores.GetUpperBound(0)

 

            ' Use Select..Case statement to determine

            '   and count grades.

            Select Case scores(i)

                Case 100        ' Explicit value

                    perfectGrade += 1

                    gradeA += 1

                Case 90 To 99   ' Range

                    gradeA += 1

                Case 80 To 89

                    gradeB += 1

                Case 70 To 79

                    gradeC += 1

                Case 60 To 69

                    gradeD += 1

                Case 0 To 59

                    gradeF += 1

                Case Is < 0, Is > 100 ' Is keyword with comparrison operator (multiple).

                    invalidGrade += 1

            End Select

        Next

 

        ' Report Grades.

        Me.GradeCountsRichTextBox.Clear()

        Me.GradeCountsRichTextBox.AppendText( _

                "Results" & vbCrLf & vbCrLf & _

                "Perfect Grades: " & perfectGrade & vbCrLf & _

                "Invalid Grades: " & invalidGrade & vbCrLf & _

                "A: " & gradeA & vbCrLf & "B: " & gradeB _

                & vbCrLf & "C: " & gradeC & vbCrLf & "D: " & _

                gradeD & vbCrLf & "F: " & gradeF)

    End Sub