by Sean (2 Submissions)
Category: Math/Dates
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 20th December 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
generate lotto numbers
' 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