lottery teaser

[irishbantam]

Hi can someone explain how I can output values in a 1 to 49, 6 number lottery. The formula n!/k!(n-k)! will only give me th odds , not the 13800000 approx outputs

irish bantam

 

[bandit_1981]

Here is a cheap way todo it in VBA.

Dim MyValue As Long
Dim x As Long
Dim Numlist As String

Randomize   ' Initialize random-number generator.


For x = 1 To 6
    MyValue = Int((49 * Rnd) + 1)   ' Generate random value between 1 and 49.
    If x <> 6 Then
        Numlist = Numlist & MyValue & ","
    Else
        Numlist = Numlist & MyValue
    End If
Next

Range("A1") = Numlist

The output will be like this 2,45,34,17,39,49