Dim oZahl As New System.Random
Dim nItem As Integer = 1
Dim nMax As Integer = 150
Dim bZahl(nMax - 1) As Byte
Dim MinValue As Integer
Dim MaxValue As Integer
 
While nItem <= nMax
  Select Case nItem
    Case 1 To 18
      MinValue = 1
      MaxValue = 18
    Case 19 To 55
      MinValue = 19
      MaxValue = 55
    Case 56 To 121
      MinValue = 56
      MaxValue = 121
    Case Else
      MinValue = 122
      MaxValue = 150
  End Select
 
  Dim Zahl As Byte = oZahl.Next(MinValue, MaxValue + 1)
  If Array.IndexOf(bZahl, Zahl) < 0 Then
    bZahl(nItem - 1) = Zahl
    nItem += 1
  End If
End While
 
' Test-Ausgabe in einer ListBox
ListBox1.DataSource = bZahl

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de