Private Sub Classification()
 
   'ab -10 bis -5    Index 1
   'über -5 bis 0    Index 2
   'über 0 bis 5     Index 3
   'über 5 bis 10    Index 4
   'über 10 bis 15   Index 5
   'sonst            Index -1
   Dim limits() As Integer = {-10, -5, 0, 5, 10, 15} 'Obergrenzen der Bereiche
 
   Dim numbers() As Integer = _
     {-20, 12, 4, 8, 4, 15, 0, 3, 3, -10, 16, 5} 'einzuordnende Zahlen
 
   Dim classindex(numbers.Length - 1) As Integer 'Index des Bereichs der Zahl 
   ' in Numbers
   Dim classfreq(limits.Length - 1) As Integer   'Häufigkeit im Bereich
   Dim outnumbers As Integer = 0 'Häufigkeit nicht zuzuordnender Zahlen
 
   For i As Integer = 0 To numbers.Length - 1
      If numbers(i) < limits(0) Or _
         numbers(i) > limits(limits.Length - 1) Then
         outnumbers += 1
         classindex(i) = -1 'Zahl liegt ausserhalb der Bereiche
      Else
         For c As Integer = 0 To limits.Length - 1
            If numbers(i) <= limits(c) Then
               classindex(i) = c   'Index des Bereichs der Zahl
               classfreq(c) += 1   'Häufigkeit im Bereich
               Exit For
            End If
         Next c
      End If
   Next i
 
   Console.WriteLine("Zuordnung der Zahlen zu Bereichs-Indices")
   For i As Integer = 0 To numbers.Length - 1
      Console.WriteLine _
         (numbers(i).ToString & " --> " & classindex(i).ToString)
   Next i
 
   Console.WriteLine("Zahlen-Häufigkeit in den Bereichen")
   For i As Integer = 0 To limits.Length - 1
      Console.WriteLine(i.ToString & " --> " & classfreq(i).ToString)
   Next i
 
End Sub