all the possible sequences for numbers 1,2,3,4,5,6,7,8,9,10 in groups of 5.
so I need to write a VB6 program that will generate all the possible sequences for numbers 1-10 in groups of 5.
below is a starting sequence but not sure how to do it in a program.
1 2 3 4 5 61 2 3 4 5 10
1 2 3 4 6 7
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
1 2 3 4 6 8
1 2 3 4 6 9
1 2 3 4 6 10
1 2 3 4 7 8
1 2 3 4 7 9
1 2 3 4 7 10
etc
below is a starting sequence but not sure how to do it in a program.
1 2 3 4 5 61 2 3 4 5 10
1 2 3 4 6 7
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
1 2 3 4 6 8
1 2 3 4 6 9
1 2 3 4 6 10
1 2 3 4 7 8
1 2 3 4 7 9
1 2 3 4 7 10
etc
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
If you want combinations where for example 12345 would be considered the same as 13245 then you'd get about 240 results. If you want permutations where for example 12345 would be not considered the same as 13245 then you'd get about 30,000 results. Which do you want?
where 12345 is the same as 13245. (combinations)
would just make 5 loops from 1 to 10 and check for duplicates and repeats or is there a function?
would just make 5 loops from 1 to 10 and check for duplicates and repeats or is there a function?
The following code requires a form with a listbox named List1 and a command button named Command1.
Private Sub Command1_Click()
Dim varArray() As Variant
varArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
List1.Clear
GenerateCominationOf5 varArray
End Sub
Private Sub GenerateCominationOf5(varArray() As Variant)
On Error GoTo GenerateCominationOf5Error
Dim intCount1 As Integer
Dim intCount2 As Integer
Dim intCount3 As Integer
Dim intCount4 As Integer
Dim intCount5 As Integer
Dim intUBound As Integer
Dim injtLBound As Integer
intUBound = UBound(varArray)
injtLBound = LBound(varArray)
For intCount1 = injtLBound To intUBound
For intCount2 = intCount1 + 1 To intUBound
For intCount3 = intCount2 + 1 To intUBound
For intCount4 = intCount3 + 1 To intUBound
For intCount5 = intCount4 + 1 To intUBound
List1.AddItem varArray(intCount1) & "," & varArray(intCount2) & "," & _
varArray(intCount3) & "," & varArray(intCount4) & "," & _
varArray(intCount5)
Next intCount5
Next intCount4
Next intCount3
Next intCount2
Next intCount1
MsgBox "Generated " & List1.ListCount & " combinations"
Exit Sub
GenerateCominationOf5Error:
MsgBox "GenerateCominationOf5 " & Err.Number & ":" & Err.Description
End Sub
You're welcome and I'm glad I was able to help.
If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.
Marty - Microsoft MVP 2009 to 2016
Experts Exchange MVE 2015
Experts Exchange Top Expert Visual Basic Classic 2012 to 2016
If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.
Marty - Microsoft MVP 2009 to 2016
Experts Exchange MVE 2015
Experts Exchange Top Expert Visual Basic Classic 2012 to 2016
Premium Content
You need an Expert Office subscription to comment.Start Free Trial