进度条与程序同步执行

.如果真 (输入框 (“请输入大于等于500的数字”, “数字输入”, “500”, 变量, 2))
.判断开始 (变量 ≥ 500)
进度 ＝ 变量 ÷ 进度条1.宽度 × 标签进度
.计次循环首 (变量, i)
a ＝ a ＋ i
编辑框1.加入文本 (到文本 (a) ＋ #换行符)
处理事件 ()
.如果真 (i ％ 进度 ＝ 0)
子程序1 ()
.如果真结束

.计次循环尾 ()
.默认
信息框 (“请输入大于等于500的数字”, 0, )