Module Tester
Sub Main()
Dim answer, rating As Integer
Dim output As String
Dim responses As Integer()
responses = New Integer() {1, 2, 6, 4, 8, 5, 9, 7, _
8, 10, 1, 6, 3, 8, 6, 10, 3, 8, 2, 7, 6, 5, 7, 6, _
8, 6, 7, 5, 6, 6, 5, 6, 7, 5, 6, 4, 8, 6, 8, 10}
' response frequency array (indices 0 through 10)
Dim frequency As Integer() = New Integer(10) {}
' count frequencies
For answer = 0 To responses.GetUpperBound(0)
frequency(responses(answer)) += 1
Next
Console.WriteLine("Rating " & vbTab & "Frequency ")
For rating = 1 To frequency.GetUpperBound(0)
Console.WriteLine(rating & vbTab & frequency(rating))
Next
End Sub ' Main
End Module
Rating Frequency
1 2
2 2
3 2
4 2
5 5
6 11
7 5
8 7
9 1
10 3