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