Lottozahlen ermitteln

Lottozahlen ermitteln. Programmierung via For ... Next, Do ... Loop
Private Sub txtAnzahl_Change() Programm stimmt hier nicht: gibt nicht die Anzahl der Zahlen,
Dim z As Byte, n As Long, m As Long, p As Long sondern der Ziehungen wieder...
Dim LabelFeld As Label, Gefunden As Boolean
Dim AnzahlZiehungen As Long
With txtAnzahl
If IsNumeric(.Text) = False And .Text <> "" Then
MsgBox "Bitte eine Zahl eingeben!", 48, Title:="Fehler"
.SelStart = 0
.SelLength = Len(txtAnzahl.Text)
.SetFocus
Exit Sub
End If
If .Text <> "" Then
AnzahlZiehungen = .Text
For Each LabelFeld In lblZahl
LabelFeld.Caption = "0"
Next
For n = 1 To AnzahlZiehungen
ReDim Zahlenfeld(0 To 5)
For m = 0 To 5
Do
Gefunden = False
z = Int(Rnd * 49)
For p = m To 5
If Zahlenfeld(p) = z Then Gefunden = True
Next
Loop Until Gefunden = False
Zahlenfeld(m) = z
Next
lblZahl(z).Caption = lblZahl(z).Caption + 1
Next
End If
End With
End Sub

Mehr Tipps: Datumsprüfung mit Array

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt