ex permutations of 6 numbers:

1 2 3 4 5 6
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
 etc..

5 garanteded in permutations of 6 numbers:

Rob

Mike

Regards.

Good luck
George

----------------------------------------------------------
Option Explicit

Private Sub cmdGo_Click()

'This program displays the combinations
'of n items taken k at a time

'   On a form, place
'   2 text boxes    Text1, Text2
'   1 button        cmdGo
'   2 list boxes    List1(0), List1(1)
'   2 Labels        Label1, Label2
'
'   Text1 is n, Text2 is k;  start with Text1.Text=5 and Text2.Text=3
'   Program Limitation: Memory

    Dim n%, k%
    Dim D$, d1$, lst$
    Dim i%, j%, l%, ii%
    Dim Sum1#, Sum2#, Num&
    Dim Times#
    Dim ret&

    List1(1).Clear

    n = Val(Text1.Text)
    k = Val(Text2.Text)
    If k > n Then Exit Sub
    If k = 0 Then k = n

    Sum1 = 1
    Sum2 = 1

'   n!/(n-k)!
    For i = n To n - k + 1 Step -1
        Sum1 = Sum1 * i
    Next

'   k!
    For i = k To 1 Step -1
        Sum2 = Sum2 * i
    Next

'   Number of combinations
    Num = Sum1 / Sum2
    Label1.Caption = Num & " combinations"

    If Num >= 6430 Then
        ret = MsgBox("There are " & Num & " combinations" & vbCrLf &
"Do you want to go on ?", vbYesNo)
        If ret = 7 Then Exit Sub
    End If

    Times = Timer

    For i = 1 To n
        List1(1).AddItem Format(i, "00 ")
    Next

    ii = 1
    For j = 2 To k
        lst = j Mod 2
        List1(lst).Clear

        For i = 1 To n
            For l = 0 To List1((lst + 1) Mod 2).ListCount - 2
                D = List1((lst + 1) Mod 2).List(l + ii)
                d1 = Format(i, "00 ")
                If i <= Val(Left$(D, 3)) And InStr(D, d1) = 0 Then
                    List1(lst).AddItem Format(i, "00 ") & D
                End If
            Next
        Next
        ii = ii + 1
    Next

    Times = Timer - Times
    Label2.Caption = Format(Times, "0.0000") & " sec"

Option Explicit
Private Sub Command1_Click()

Dim a As Long, b As Long, c As Long
Dim d As Long, e As Long, f As Long
Dim n As Long, count As Long

n = 49  '6 from 49 lotto
For a = 1 To n - 5
For b = a + 1 To n - 4
For c = b + 1 To n - 3
For d = c + 1 To n - 2
For e = d + 1 To n - 1
For f = e + 1 To n
count = count + 1
    Print "No"; count; ":"; a; b; c; d; e; f
    Print , "subsets of 5 From 6"
    Print , a; b; c; d; e
    Print , a; b; c; d; f
    Print , a; b; c; e; f
    Print , a; b; d; e; f
    Print , a; c; d; e; f
    Print , b; c; d; e; f
Print "------------------------"

But wait! Surely that can't be right, because it would mean that the chances
of getting all 6 of the six drawn numbers after ticking six of the 49 boxes
would actually be better than the chances of getting just five of the six
drawn numbers together with a seventh drawn "bonus" ball! Surely that can't
be right! They pay lots more cash for "all six" than they do for "all five
from six plus the bonus ball" {*filter*}! My head really hurts now!

Perhaps I should drink this Budweiser a little more slowly. Or maybe even go
back to my old "standby" of whisky and Coke. Gets you drunk even more
quickly, and you don't have to go to the toilet so often! Lovely stuff :-)

Mike

there are 13983816 combinations of 6 in 49 numbers
there are 1906884 combinations of 5 in 49 numbers

with 6 numbers we have 6 combinations of 5

exemple:
1,2,3,4,5,6:

1,2,3,4,5
1,2,3,4,6
1,2,3,5,6
1,2,4,5,6
1,3,4,5,6
2,3,4,5,6
So we have 1906884 / 6 = 317814 results for 5 combinations using 6 numbers
to 49 total numbers
i wrote a program that gives all combinations of 6 numbers in 49
What i want to do know is a program that gives me all combinations
of 5 with 6 numbers for 49 in total
it maybe looks like this:

1  2  3  4  5  6
1  2  3  4  7  8
1  2  3  4  9 10
1  2  3  4 11 12
1  2  3  4 13 14
1  2  3  4 15 16
1  2  3  4 17 18
1  2  3  4 19 20
1  2  3  4 21 22
1  2  3  4 23 24
1  2  3  4 25 26
1  2  3  4 27 28
and so one..

my program that gives all combinations of 6 numbers to 49 is:

Mike