简单子程序内循环多线程例子

进入许可区 (许可证)
线程数 ＝ 线程数 ＋ 1
退出许可区 (许可证)
.判断循环首 (开关)
进入许可区 (许可证)
已运行数 ＝ 已运行数 ＋ 1
局已运行数 ＝ 已运行数
退出许可区 (许可证)
超级列表框1.插入表项 (局已运行数, , , , , )
超级列表框1.保证显示 (局已运行数)
超级列表框1.置标题 (局已运行数 － 1, 0, 到文本 (局已运行数))
超级列表框1.置标题 (局已运行数 － 1, 1, “工作...”)
置随机数种子 ()
延时 (到整数 (到文本 (取随机数 (1, 5)) ＋ “000”))
超级列表框1.置标题 (局已运行数 － 1, 1, “工作完成”)
.判断循环尾 ()