'--------------------------------------------------------------------------
 
'Erstes Unterprogramm (für die Ziehung von 6 aus 49), ruft ein weiteres
'Unterprogramm "ziehungsechs" auf um die Zufallszahlen zu generieren,
'legt die Speicherplätze für die gezogenen Zahlen fest und bereinigt diese,
'vergleicht die Zahlen auf eventuell doppelt vorhandene und gibt das
'Ergebnis in sortierter Reihenfolge aus.
'Das Sortieren der Zahlen in aufsteigender Form wird durch ein
'Unterprogramm "sortiersechs" erledigt.
 
'--------------------------------------------------------------------------
 
Private Sub sechs(X)
For i = 0 To 5
        Zahlen(i) = 0
Next i
For n = 0 To 5
        Weiche = False
        While Weiche = False
            Weiche = True
            ziehungsechs (n)
            For k = 0 To n - 1
                If Zahlen(n) = Zahlen(k) Then
                    Weiche = False
                        Exit For
                End If
            Next k
        Wend
Next n
For n = 0 To 5
    For a = n + 1 To 5
        If Zahlen(a) < Zahlen(n) Then
            Zahl = Zahlen(n)
            Zahlen(n) = Zahlen(a)
            Zahlen(a) = Zahl
        End If
    Next a
Next n
End Sub

Private Sub ziehungsechs(j)
    Randomize
        Zahlen(n) = Int((49 * Rnd) + 1)
End Sub