[HaBo]

schondrin = False
maxsprung = 4

uhngültig:
'###- Hier habe ich die Durchläufe erst einmal begrenzt -###'
If d > 100000 Then GoTo ende
d = d + 1

'###- Festlegen das jede Kombination mit 1 beginnt -###'
ergebnis1 = 1

nochmal:
    zufalszahl = Int((10 - 1 + 1) * Rnd + 1)

'###- Überprüfen ob die Zufalszahl bereits in der Kombination enthalten ist -###'    
    zahlreihe = Split(ergebnis1, ",")
    For a = 0 To UBound(zahlreihe)
        If Int(zahlreihe(a)) = zufalszahl Then
            schondrin = True
            Exit For
        Else
            schondrin = False
        End If
    Next a
'###- Wenn die Zahl noch nicht enthalten ist der Kombination hinzufügen -###'
    If schondrin = False Then
        ergebnis1 = ergebnis1 & "," & zufalszahl
    End If

'###- Überprüfen ob die Kombination schon alle Zahlen enhält -###'
    If UBound(zahlreihe) + 1 >= 10 Then
        GoTo weiter
    Else
        GoTo nochmal
    End If
weiter:

'###- Überprüfen ob der Sprung von max. 4 gegeben ist -###'
    For b = 0 To UBound(zahlreihe)
        If b = UBound(zahlreihe) Then
            If Not Abs(zahlreihe(0) - zahlreihe(b)) <= maxsprung Then GoTo uhngültig
            Exit For
        End If
        If Not Abs(zahlreihe(b) - zahlreihe(b + 1)) <= maxsprung Then GoTo uhngültig
    Next b

'###- Überprüfen ob die Kombination schon einmal ermittelt wurde -###' 
    If ergebnis2 Like "*" & ergebnis1 & "*" Then
        GoTo uhngültig
    Else
        If ergebnis2 = "" Then
            ergebnis2 = ergebnis2 & ergebnis1
        Else
            ergebnis2 = ergebnis2 & ";" & ergebnis1
        End If
        GoTo uhngültig
    End If

ende:

loesungen = Split(ergebnis2, ";")
Text6.Text = UBound(loesungen) + 1
Text6.Refresh
For a = 0 To UBound(loesungen)
    List1.AddItem loesungen(a)
Next a