いま、１から９までの９つの数字が順番に並んでいる。
数字の順番を変えずに全て用いて、計算結果がちょうど９０になるように、途中に演算記号
（×が４個、÷が１個）を入れたい。どうしたらよいだろうか？
（答） 次のようにすればよい。 ： １÷２３４×５×６×７８×９＝９０
このパズルを考えるとき、 ７８×３＝２３４ という美しい事実に気がついた。これを利
用すると上式は直ぐに思いつくことだろう。
また、このような計算は、表計算ソフト Ｅｘｃｅｌ にやらせた方が早い。
下記は拙い解の探求プログラム（ＥｘｃｅｌのＶＢＡ）であるが、興味ある方はコピーして試し
てみてください。プログラムは、しらみつぶしに計算させるもので、およそ上品とは言えない。
それでも、３秒ほどで全パターンが網羅できるので、実用上は十分であろう。
Sub ９つの数字()
Dim a, b, c, d, e, f, g, h As Integer
Dim s As String
Dim a1(3), a2(3), a3(3), a4(3), a5(3), a6(3), a7(3), a8(3)
a1(1) = "": a1(2) = "*": a1(3) = "/"
a2(1) = "": a2(2) = "*": a2(3) = "/"
a3(1) = "": a3(2) = "*": a3(3) = "/"
a4(1) = "": a4(2) = "*": a4(3) = "/"
a5(1) = "": a5(2) = "*": a5(3) = "/"
a6(1) = "": a6(2) = "*": a6(3) = "/"
a7(1) = "": a7(2) = "*": a7(3) = "/"
a8(1) = "": a8(2) = "*": a8(3) = "/"
Range("c1") = Now
Range("a1").Select
For a = 1 To 3
For b = 1 To 3
For c = 1 To 3
For d = 1 To 3
For e = 1 To 3
For f = 1 To 3
For g = 1 To 3
For h = 1 To 3
With ActiveCell.Select
s = "=" & "1" & a1(a) & "2" & a2(b) & "3" & a3(c) & "4" & a4(d) & "5" _
& a5(e) & "6" & a6(f) & "7" & a7(g) & "8" & a8(h) & "9"
ActiveCell.Formula = s
.Offset(1, 0).Select
End With
Next h, g, f, e, d, c, b, a
Range("c2") = Now
End Sub
上記の問題では、演算記号（×が４個、÷が１個）を指定したが、ＶＢＡの演算結果から、
いろいろな計算パターンを得ることができる。
答えが３００までのうち、１つしか計算パターンがない例をいくつかあげておこう。
１×２３４×５×６÷７８÷９＝１０
１２×３÷４×５６÷７×８÷９＝６４
１２×３÷４×５÷６×７８÷９＝６５
１×２÷３÷４×５６７×８÷９＝８４
１×２÷３÷４×５６÷７×８×９＝９６
１２÷３×４×５６７÷８÷９＝１２６
１２÷３×４÷５６×７×８９＝１７８
１÷２×３÷４×５６×７８÷９＝１８２
１×２×３×４５６×７÷８÷９＝２６６
１÷２÷３×４×５６×７÷８×９＝２９４