| 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 | |
| |
zurück