• Home
 · 
• Math/Dates
 · 
• generate lotto numbers

generate lotto numbers

generate lotto numbers

Rate generate lotto numbers

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' this code will generate 6 numbers at a time 
Sub loopnumber()
loopnum = Number 
For x = 1 To loopnum - 5
    For h = 1 To loopnum - 4
        For l = 1 To loopnum - 3
            For k = 1 To loopnum - 2
                For i = 1 To loopnum - 1
                    For j = 1 To loopnum
                        If (j > i And i > k And k > l And l > h And h > x) Then
                            'output values
                            Debug.Print x; h; l; k; i; j
                            SeriesFound = SeriesFound + 1
                        End If
                        counter = counter + 1
                    Next j
                
                Next i
            Next k
        Next l
    Next h
Next x