9個○中，填入1~9，9個數字，數字不重複，使運算成立(1)

1.
利用Excel VBA計算, 程式碼如下:


圖片參考：https://s.yimg.com/rk/AC09299269/o/1163921528.png


只要得到一組解,程式會自動終止.
( Stop 的那一行指令 )

執行結果為:
912768534

9/12+7/68+5/34 = 3/4 + 7/68 + 5/34
= 3*17/68 + 7/68 + 5*2/68
= (51+7+10) / 68
= 1

2.
將第1題的其中一行程式碼:
If a / (10 * b + c) + d / (10 * e + f) + g / (10 * h + i) = 1 Then
改為:
If a / (10 * b + c) + d / (10 * e + f) + g / (10 * h + i) = 1 / 2 Then

執行結果為:
972516348

9/72 + 5/16 + 3/48
= 1/8 + 5/16 + 1/16
= (2+5+1) / 16
= 1/2