.支持庫 spec
.子程序 _啟動子程序, 整數型, , 本子程序在程序啟動後最先執行
調試輸出 (子程序1 (5, 30))
返回 (0) ' 可以根據您的需要返回任意數值
.子程序 子程序1, 文本型
.參數 位數, 整數型
.參數 組數, 整數型
.局部變量 tem, 整數型
.局部變量 tem2, 整數型
.局部變量 Str, 文本型
.局部變量 i, 整數型
tem = 到整數 (“1” + 取重復文本 (位數 - 1, “0”))
tem2 = 到整數 (取重復文本 (位數, “9”))
.如果真 (tem2 = 0)
tem = 9
.如果真結束
.計次循環首 (組數, i)
置隨機數種子 ()
Str = Str + 到文本 (取隨機數 (tem, tem2)) + “ ”
.如果真 (i % 5 = 0)
Str = Str + #換行符
.如果真結束
.計次循環尾 ()
返回 (Str)
開始運行被調試程序
* “17055 17874 18678 19448 20154
20728 21878 22505 22923 23759
24595 25431 26267 27103 27939
28775 29611 30447 31283 32119
32955 33791 34627 35463 36299
37135 37971 38807 39643 40479
”
被調試易程序運行完畢