這題出的偏門又刁鉆～～

想了 很久 ～～||||||  

理清了頭緒 算出 用的爆破 

* 192 | 384 | 576 
* 219 | 438 | 657 
* 273 | 546 | 819 
* 327 | 654 | 981 

代碼

.版本 2 
.支持庫 spec 
.程序集 窗口程序集1 
.程序集變量 數組1, 整數型, , "0" 
.程序集變量 數組2, 整數型, , "0" 
.程序集變量 數組3, 整數型, , "0" 
.子程序 _按鈕1_被單擊 
.局部變量 n1, 整數型 
.局部變量 m1, 整數型 
.局部變量 局變被搜索文字, 文本型 
.局部變量 局變搜索文字, 文本型 
.局部變量 局變位置, 整數型 
.局部變量 t1, 整數型 
.局部變量 s1, 整數型 
 
.計次循環首 (999, t1) 
    加入成員 (數組1, t1) 
.計次循環尾 () 
.計次循環首 (取數組成員數 (數組1), s1) 
    加入成員 (數組2, 數組1 [s1] × 2) 
    加入成員 (數組3, 數組1 [s1] × 3) 
.計次循環尾 () 
.計次循環首 (取數組成員數 (數組1), n1) 
    .如果真 (數組1 [n1] ＜ 100) 
        到循環尾 () 
    .如果真結束 
 
    .如果真 (數組1 [n1] × 2 ＝ 數組2 [n1] 且 數組1 [n1] × 3 ＝ 數組3 [n1]) 
        局變被搜索文字 ＝ 到文本 (數組1 [n1]) ＋ 到文本 (數組2 [n1]) ＋ 到文本 (數組3 [n1]) 
        .計次循環首 (10, m1) 
            局變搜索文字 ＝ 到文本 (m1 － 1) 
            局變位置 ＝ 尋找文本 (局變被搜索文字, 局變搜索文字, , 假) 
            局變位置 ＝ 尋找文本 (局變被搜索文字, 局變搜索文字, 局變位置 ＋ 1, 假) 
            .如果真 (局變位置 ≠ -1) 
                跳出循環 () 
            .如果真結束 
 
        .計次循環尾 () 
        .如果真 (局變位置 ≠ -1) 
            到循環尾 () 
        .如果真結束 
 
        .如果真 (尋找文本 (局變被搜索文字, 到文本 (0), , 假) ≠ -1) 
            到循環尾 () 
        .如果真結束 
 
        調試輸出 (數組1 [n1], 數組2 [n1], 數組3 [n1]) 
    .如果真結束 
 
.計次循環尾 () 

[文件] 爆破 解決數學題.zip ~ 20KB    下載

2.20后續 優化了下的版本～～、 減少了3個變量與兩個記次循環

.版本 2 
.支持庫 spec 
.程序集 窗口程序集1 
.程序集變量 數組1, 整數型, , "0" 
.程序集變量 數組2, 整數型, , "0" 
.程序集變量 數組3, 整數型, , "0" 
 
.子程序 _按鈕1_被單擊 
.局部變量 局變被搜索文字, 文本型 
.局部變量 局變位置, 整數型 
.局部變量 t1, 整數型 
.局部變量 m1, 整數型 
 
.計次循環首 (999, t1) 
    加入成員 (數組1, t1) 
    加入成員 (數組2, t1 × 2) 
    加入成員 (數組3, t1 × 3) 
    .如果真 (數組1 [t1] ＜ 123) 
        到循環尾 () 
    .如果真結束 
 
    .如果真 (數組1 [t1] × 2 ＝ 數組2 [t1] 且 數組1 [t1] × 3 ＝ 數組3 [t1]) 
        局變被搜索文字 ＝ 到文本 (數組1 [t1]) ＋ 到文本 (數組2 [t1]) ＋ 到文本 (數組3 [t1]) 
        .計次循環首 (10, m1) 
            局變位置 ＝ 尋找文本 (局變被搜索文字, 到文本 (m1 － 1), , 假) 
            局變位置 ＝ 尋找文本 (局變被搜索文字, 到文本 (m1 － 1), 局變位置 ＋ 1, 假) 
            .如果真 (局變位置 ≠ -1) 
                跳出循環 () 
            .如果真結束 
 
        .計次循環尾 () 
        .如果真 (局變位置 ≠ -1) 
            到循環尾 () 
        .如果真結束 
        .如果真 (尋找文本 (局變被搜索文字, 到文本 (0), , 假) ≠ -1) 
            到循環尾 () 
        .如果真結束 
        調試輸出 (數組1 [t1], 數組2 [t1], 數組3 [t1]) 
    .如果真結束 
.計次循環尾 () 

原文鏈接：http://www.oschina.net/code/snippet_126059_18384