2010年6月14日 星期一

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

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Office
標題: Re: [算表] Excel:49取6 亂數列出1000筆組合(大樂透)
時間: Sat Sep 20 08:19:36 2008

※ 引述《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

沒有留言:

張貼留言