組み合わせを調べるには？

締切済

質問者：shia0789
質問日時：2002/12/14 11:25
回答数：6件

０～９までの数字を使って６桁の数字を作るのに
どんな組み合わせがあるのか調べたいのですけど、
やっぱり１つ１つ自分で書いていくしかないのでしょうか？
何通りあるのか、だったら公式とかあるかと思うんですけど。。。。
何かいい方法ってありますか？
あったらできるだけ詳しく教えて下さい。
とにかく数学が苦手なもので。。。。。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

最新から表示
回答順に表示

No.6

回答者： sakanobu
回答日時：2002/12/15 18:08

重なってもよいならば

9×10×10×10×10×10
になります。ちなみに最初はなぜ9かというと、最初が0になると6桁の数字ができません。なので9なのです。
重なってはいけないのであれば
9×9×8×7×6×5
最初は1～9で9つの数字がはいる可能性があります。
次は0がはいってもいいので9になり、そしてだんだん減っていきますので、このような式になります。
これが答えではないのでしょうか???

- 0
- 件

通報する

No.5

回答者： ebinamori
回答日時：2002/12/14 13:56

私が前に質問（１～９までの数字を重複しないように使って４桁の数字を表示させる）したのですが

＞ExcelVBAです。こんなのでいいのかな。書いてみて何か恥ずかしいのは何故？
　（ツール→マクロ→Visual Basic Editor でコードウインドウに貼り付けます）
出力を変えれば、当然VBでもＯＫ。

1234、1235、1236　・　・　・　5689、5789、6789　の126個の数値が出ます。（全部必要でした？）

＞ある範囲の中の数字の内ある条件を満たす数字を抜き出したい。ということです。
＞（できるかどうかは分からないけど
プログラム上表現可能な条件で、解が有限個（桁数も含め）なら問題なくできるでしょう。
かえって、できない証明をするのが難しいでしょう。

Sub 四桁数値()
　　Dim k1 As Integer '1000の位の数値
　　Dim k2 As Integer '100の位の数値
　　Dim k3 As Integer '10の位の数値
　　Dim k4 As Integer '1の位の数値
　　Dim rw As Integer '出力行カウンタ
　　Dim Num As Integer '作り出した数

　　For k1 = 1 To 9
　　　　For k2 = k1 + 1 To 9
　　　　　　For k3 = k2 + 1 To 9
　　　　　　　　For k4 = k3 + 1 To 9
　　　　　　　　　　Num = k1 & k2 & k3 & k4
　　　　　　　　　　'A列に書き出す
　　　　　　　　　　rw = rw + 1
　　　　　　　　　　Cells(rw, 1) = Num
　　　　　　　　Next
　　　　　　Next
　　　　Next
　　Next
End Sub
という回答を頂きました。
つまりVisual Basicを使えば可能なのではないでしょうか？

- 0
- 件

通報する

No.4

回答者： taknt
回答日時：2002/12/14 11:54

こういうのを考えるときは、条件をもっと単純にしたらいいですよ。

例えば０～９まででなく０と１にしましょう。
桁も６桁でなく１桁としましょう。
このときにできる数は
０
１
と二通りになります。
これが２桁になると

００
０１
１０
１１
と４通りになります。

これは一桁目が２通りで２桁目が２通りの２×２通りだからです。

このように桁で何通りあるか考えてそれが６桁だったらどうなるか
考えればわかるとおもいます。

同じ数字を使っていいならば
１０×１０×１０×１０×１０×１０通りになるでしょう。

＃３の言うとおり１０^6 通りですね。