ロトの組み合わせ作成方法について

質問

どなたかご存知でしたら回答をお願いします。
ロト６でもミニロトでもよいのですが、
数字の組み合わせの作成方法が知りたいです。
●質問内容
　例えばミニロトで第１数字～第５数字までの出現回数が
　下記の上位５数字の場合、これら全ての数字を使った
　第１数字～第５数字までの組み合わせを全て作成する方法。

　第１数字：02、01、04、03、05
　第２数字：10、07、09、11、08
　第３数字：19、17、13、16、11
　第４数字：27、24、25、22、23
　第５数字：31、30、29、28、27

※エクセル又はエクセルＶＢＡで作成する方法を回答として希望します。
※同じ質問をエンターテイメント＝＞ギャンブル（その他）でもあげております。

ご回答よろしくお願い致します。

回答No.2

skydaddy · ベストアンサー

No1です。

> 数学の公式みたいなものがあればそれで追加回答頂けると大変助かります。

ご質問は数学的には５つの数字のグループが５つあるときそれぞれから１つ取り出す組み合わせはいくつあるか？ということなので

最初のグループから数字を取り出す方法は５通り。次のグループから取り出す方法も５通り・・・・最後のグループから取り出す方法も５通りとなるので

全ての組み合わせ総数は、５×５×５×５×５＝３１２５通りとなります。

一つ目の数字を６２５回繰り返すのは、それ以降の４つの数字の組み合わせが５×５×５×５＝６２５通りあるからです。
同様に次の数字以下は５×５×５＝１２５、５×５＝２５、５通りそれぞれあるからです。

それぞれのグループが他と独立している場合、単純にそれぞれの選択可能数（質問では５通りずつ）をかければいいです。

VBAのスケルトンです。これが読めるなら５の倍数になることが容易に理解できると思いますが・・・

Sub Num_Combo()
Dim Num1(5), Num(2), Num(3), Num(4), Num(5) as Integer ' 02と２ケタで書きたいならIntergerではなくStringで宣言

' Num1(), Num2(), Num3(),Num4(), Num5() にデータを代入
Num1(1)=2
Num1(2)=1
:
:
Num5(5)=27 でOK　

For i = 1 to 5
For j = 1 to 5
For k = 1 to 5
For l = 1 to 5
For m = 1 to 5
Activecell.Value = Num1(i)
Activecell.Value.Offset(0,1) = Num2(j)
Activecell.Value.Offset(0,2) = Num3(k)
Activecell.Value.Offset(0,3) = Num4(l)
Activecell.Value.Offset(0,4) = Num5(m)
Next
Next
Next
Next
Next

End Sub

お礼

丁寧な回答を頂きありがとうございます。
＞それぞれのグループが他と独立している場合、単純にそれぞれの選択可能数（質問では５通りずつ）
＞をかければいいです。

　だから、625、125といった数がでてくるのですね。。

またＶＢＡのスケルトンまで付けて頂き理解がよくできました。
ありがとうございました。
また躓いたらよろしくお願いします。

回答No.1

skydaddy

VBAが書けるならそれぞれを配列に入れてForで回せばできると思います。
この程度なら速度は関係ないので、数字のグループごとに配列変数にすれば簡単です。

エクセルだけでやるなら下記の方法が簡単です。

１）第１数字の最初の数字０２をセルに書き、セル右下角をマウスで掴んでドラッグして６２５個繰り返す。
２）第２数字の最初の数字１０を０２の一番上の隣に書き、同様に１２５個繰り返す。以下の数字も同様。
３）第３数字の最初の数字１９を１０の一番上の隣に書き、同様に２５個繰り返す。以下の数字も同様。
４）第４数字の最初の数字２７を１９の一番上の隣に書き、同様に５個繰り返す。以下の数字も同様。
５）第５数字の最初の数字３１を２７の一番上の隣に書く。以下の数字も同様。
６）あとは繰り返しなので、第２数字以下は同じ配列になりコピーでOK。

お礼

早速のご回答ありがとうございます。
追加で質問で申し訳ありませんが、
回答を読んでいて、
６２５回、１２５回、２５回・・・と繰り返し回数が
でてきておりますが、私の数学的知識不足（順列と組み合わせの知識？）
のためそれぞれの”回数の意味”が今一つ分かりません。
数学の公式みたいなものがあればそれで追加回答頂けると大変助かります。
アルゴリズムが頭の中で理解できてません。（組み立てれてません）。
お手数をおかけしますがよろしくお願いします。