.程序集 窗口程序集1.程序集變量 answer, 整數型.程序集變量 約數, 整數型, , "0".程序集變量 運算符, 文本型, , "0"
.子程序 __啟動窗口_創建完畢
運算符 = { “+”, “-”, “×”, “÷” }
.子程序 加減法, 文本型.參數 結果, 整數型, 參考.局部變量 操作數1, 整數型.局部變量 操作數2, 整數型.局部變量 操作符, 整數型
置隨機數種子 ()操作符 = 取隨機數 (1, 4)操作數1 = 取隨機數 (1, 20).判斷開始 (操作符 = 2) 操作數2 = 取隨機數 (1, 操作數1).默認 操作數2 = 取隨機數 (1, 20).判斷結束.判斷開始 (操作符 = 4) 求約數 (操作數1) 操作數2 = 約數 [取隨機數 (1, 取數組成員數 (約數))].默認
.判斷結束
.判斷開始 (操作符 = 1) 結果 = 操作數1 + 操作數2.判斷 (操作符 = 2) 結果 = 操作數1 - 操作數2.判斷 (操作符 = 3) 結果 = 操作數1 × 操作數2.判斷 (操作符 = 4) 結果 = 操作數1 ÷ 操作數2.默認 結果 = 0.判斷結束返回 (到文本 (操作數1) + 運算符 [操作符] + 到文本 (操作數2) + “=”)
.子程序 _按鈕1_被單擊
標簽1.標題 = 加減法 (answer)
.子程序 _編輯框1_按下某鍵, 邏輯型.參數 鍵代碼, 整數型.參數 功能鍵狀態, 整數型
.如果真 (鍵代碼 = #回車鍵) .如果真 (編輯框1.內容 = 到文本 (answer)) 信息框 (“答案正確”, #信息圖標, ) 返回 () .如果真結束 信息框 (“答案錯誤”, #信息圖標, ).如果真結束
.子程序 求約數.參數 參數, 整數型.局部變量 x, 整數型
清除數組 (約數).計次循環首 (參數, x) .如果真 (參數 % x = 0) 加入成員 (約數, x) .如果真結束
.計次循環尾 ()