Dim Lottozahl(6) As Integer
Dim Eingabe(6) As Integer
Dim Richtig(6) As Integer
Dim Sortiert(6) As Integer
 
Private Sub Command1_Click()
On Error Resume Next
Call ZahlenTippen
Call ZahlenZiehen
Call ZahlenSortieren
Call ZahlenVergleichen
End Sub
 
Sub ZahlenTippen()
On Error Resume Next
Dim i As Integer
Dim Msg As String
Dim Tippen As Integer
Dim Tipp As Boolean
Dim MeinTipp As Integer
Randomize  -Timer
Tippen = 0
While Tippen < 6
Tippen = Tippen + 1
    Do
    MeinTipp = InputBox("Geben Sie Ihre Zahl " & Tippen & " ein:" & vbCr & _
    "(Eine Zahl zwischen 1 und 49)", "Lotto-Tipp")
    Tipp = True
        For i = 0 To Tippen - 1
            If (Eingabe(i) = MeinTipp) Or (MeinTipp < 1) Or (MeinTipp > 49) _
            Or (Not IsNumeric(MeinTipp)) = True Then
 
                If MeinTipp = "" Then
                Result = MsgBox("Beenden?", vbQuestion + vbYesNo, "Lotterie")
                    If Result = vbYes Then
                        End
                    End If
                End If
 
            Tipp = False: Exit For
            Else
            End If
        Next i
    Loop Until Tipp = True
Eingabe(Tippen) = MeinTipp
Wend
End Sub
 
Sub ZahlenZiehen()
Dim Ziehung As Integer
Dim i As Integer
Dim Result As Boolean
Dim Zahl As Integer
Ziehung = 0
While Ziehung < 6
Ziehung = Ziehung + 1
    Do
    Zahl = Int(49 * Rnd + 1)
    Result = True
        For i = 1 To Ziehung - 1
            If Lottozahl(i) = Zahl Then
            Result = False: Exit For
            End If
        Next i
    Loop Until Result = True
    Lottozahl(Ziehung) = Zahl
Wend
End Sub
 
Sub ZahlenSortieren()
Dim Range(49) As Integer
Dim i, j, x As Integer
For i = 1 To 49
    For j = 1 To 6
        If Lottozahl(j) = i Then
            Range(i) = Lottozahl(j): Exit For
        End If
    Next j
Next i
 
For j = 1 To 6
    For i = x To 49
        If Not Range(i) = "0" Then
        x = i + 1
            Sortiert(j) = Range(i): Exit For
        End If
    Next i
Next j
End Sub
 
Sub ZahlenVergleichen()
Dim i, j, x, y, Überprüfung As Integer
Überprüfung = 0
i = 1
While Überprüfung < 6
Überprüfung = Überprüfung + 1
    For j = 0 To 6
        If Lottozahl(Überprüfung) = Eingabe(j) Then
            Richtig(Überprüfung) = Eingabe(j): Exit For
        End If
    Next j
Wend
For i = 1 To 6
    If Richtig(i) <> 0 Then
        x = x + 1
    End If
Next i
If x = 0 Then
    x = 0
End If
Dim Zahlen, ZahlenSortiert, Tipps, Ergebnis As String
For i = 1 To 6
    Zahlen = Zahlen & Format$(Lottozahl(i)) & " "
    ZahlenSortiert = ZahlenSortiert & Format$(Sortiert(i)) & " "
    Tipps = Tipps & Format$(Eingabe(i)) & " "
    Ergebnis = Ergebnis & Format$(Richtig(i)) & " "
Next i
MsgBox "Ihr Lottotipp lautet: " & vbTab & Tipps & vbCr & _
"Die Lottozahlen lauten: " & vbTab & Zahlen & vbCr & _
"Aufsteigend sortiert: " & vbTab & ZahlenSortiert & vbCr & _
"Sie haben " & x & " Richtige(n): " & vbTab & Ergebnis, vbInformation, "Lotto"
End Sub