Visual Basicで覆面算を計算するにはどうしたらいいのでしょうか？

質問

以下のような問題がとける方、回答をお願いします。

○ 問題　
　　(文字にあらゆる数字を順に入れて、正解を探す。)
　ただし、ルールの1～3を満足するプログラムとすること。
　　c a b
+)　b a c
----------
　d a b a
　答えなどは次のように表示するようにプログラミングする。

² 一番初めに、アクティブシート(Sheet1)の中のすべての
セルの内容をクリアする。
² 次にセルA1に「覆面算の答え」の文字列を、A2～G2に、
a, b, c, d, x, y, zの文字を記入する。
² プログラムの実行(ルール1～3を考慮した、繰り返し文)に
より、最初に覆面算を満足するよう得られたa, b, c, d,
x, y, z(整数)をA3～G3に記入する。
² 複数の答えがある場合には、以降に得られたa, b, c, d,
x, y, zをA4～G4、A5～G5、¢ ¢ ¢ に順に記入するよう
にする。
² 最後に、答えの記されている次の行のA列目のセルに「答
えは」、C列目のセルに「通り」、B列目のセルに実際の答
えの数(何通りか)を記すようにしてプログラムを終える。
※ 上の文中で文字列を囲っている「」のセル中への表示は不要。
loop(繰り返し処理)文やfor next 文を使う。

ここからは参考までに。

　　a b
　+)b a
--------
　a a c
² 覆面算のルール
　ルール1 ： 文字はそれぞれの桁の文字を表す。
　ルール2 ： 異なる文字は異なる数字を表し、同じ文字は同じ
数字を表す。
　ルール3 ： 左端の数字は0ではない。
　ルール4 ： (パズルとしては)答えが1つになる。
このルールに従うと、上記の覆面算の答えは次のようになる。
　　1 9
　+)9 1
--------
　1 1 0

○ 覆面算を力技で解く。
(文字にあらゆる数字を順に入れて、正解を探す。)
　例えば
　　a b b
　+)d d c
----------
　a a a d
の覆面算を解くことを考える。
　覆面算中に現れる3桁(また4桁)の数値は次のように考える。
上記の3桁abbは、a¤100+b¤10+b と考え、これをxとす
る。同様にddc をy、aaad をz としたときx+y=zとなる、
a,b,c,dをループを利用して探す。(結果が得られたならそれが
覆面算の答えになっていることを確認する。)

回答No.3

imogasi

#2です。同じ数字を別記号に割り当ては回避だと思うので
下記に修正。
VBAを使うことが前提。
Sub test02()
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
x = (c * 100 + a * 10 + b) + (b * 100 + a * 10 + c)
y = d * 1000 + a * 100 + b * 10 + a
If x = y Then
If d = 0 Or c = 0 Or b = 0 Or (a - b) * (b - c) * (c - d) * (d - a) * (a - c) * (a - d) * (b - d) = 0 Then
Else
MsgBox a & " " & b & " " & c & " " & d
End If
End If
Next d
Next c
Next b
Next a
End Sub
ーーー
結果は
２５７１　３７６１　４９５１の３つになった。まだ条件があるかな。
MsgBox a & " " & b & " " & c & " " & d
はセルに回答の値をセットするなら
先頭行にK=1
MsgBox a & " " & b & " " & c & " " & d
に変えて、下記５行を置き換えて入れる。
Cells（k,"A")=a
Cells（k,"B")=b
Cells（k,"C")=c
Cells（k,"D")=d
K=K+1

回答No.2

imogasi

この質問コーナーでは宿題を質問として出すことは規約上遠慮してもらうことになっている。
宿題なら先生の回答、本の問題なら解答が載っているのではありませんか。
＝＝＝
　　c a b
+)　b a c
----------
　d a b a
の例で
原始的方法で
Sub test02()
For a = 0 To 9
For B = 0 To 9
For c = 0 To 9
For d = 0 To 9
x = (c * 100 + a * 10 + B) + (B * 100 + a * 10 + c)
y = d * 1000 + a * 100 + B * 10 + a
If x = y Then
If d = 0 Or c = 0 Or B = 0 Then '先頭桁は0で無い
Else
MsgBox a & " " & B & " " & c & " " & d
End If
End If
Next d
Next c
Next B
Next a
End Sub
ーーー
a,b,c,dはそれぞれ
０１９１　１３８１　２５７１　３７６１　　４９５１
と出たがどうだろうか。

お礼

ありがとうございました。

回答No.1

n-jun

>Visual Basicで
と
>アクティブシート(Sheet1)
とあるのですがＶＢなのかExcelＶＢＡなのか不明。

これって課題なのでは？