GetUpperBound : Array Bound « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Array Bound

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