多线程不卡无限循环例程

.计次循环首 (到整数 (编辑框1.内容), 计次)
启动线程 (&子程序1, , )
延迟 (100)
标题 ＝ “还有” ＋ 到文本 (到整数 (编辑框1.内容) － 计次) ＋ “循环完成”
.计次循环尾 ()