Re: [算表] Excel:49取6 亂數列出1000筆組合(大樂透)

[chungyuandye (養花種魚數月亮賞星星)]

※ 引述《JieJuen (David)》之銘言：
: 原題：  #18q-ePtR (ask)
: 49取6，亂數列出1000筆。   (無特別號)
: http://p.2yu.co.cc/get6in49.rar
: 此題的特色是 總共的組合數13983816
: 取1000組微不足道;另一方面若要先全列出再從中取亂數1000筆，則十分辛苦。

Sub lotto()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
For k = 1 To 1000
    For i = 1 To 6
        Cells(k, i) = Fn.RoundUp(Rnd * 49, 0)
        For j = 1 To i - 1
            If Cells(k, i) = Cells(k, j) Then i = i - 1
        Next
    Next
Next
End Sub

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.173.136.232