Lottospiel >> Sortierung

[Nemesis2key]

Servus,
ich programmier zur zeit ein kleines lottospiel.
das einzigste was ich nicht hinbekomme ist das die zahlen in aufsteigender reihenfolge sortiert werden.... kann mir da jemand helfen

der code:

Private Sub cmdlotto4_Click()
lblMeldung.Caption = ""

'erste Zahl
Randomize
bytZahl(0) = Int(Rnd() * 49) + 1

'weitere Zahlen raus
For bytZaehler = 1 To 5
Randomize
bytZahl(bytZaehler) = Int(Rnd() * 49) + 1

'doppelte Zahlen ausschließen
For bytMerker = 0 To bytZaehler - 1
If bytZahl(bytMerker) = bytZahl(bytZaehler) Then
bytZaehler = bytZaehler - 1
Exit For 'schleife vorzeitig verlassen
End If
Next
Next
'Zahlen ausgeben

'If lblZahl(bytZaehler).Caption = "13" Then
'lblMeldung.Caption = "Herzlichen Glückwunsch! Sie haben die 13!"
'End If

For bytZaehler = 0 To 5
lblZahl(bytZaehler).Caption = bytZahl(bytZaehler)
Next



End Sub

 

[hotschen]

Guckst du hier .