| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 多线程 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 线程数 | 整数型 | |||||
| 执行数量 | 整数型 | |||||
| 创建状态 | 逻辑型 | |||||
| 投递记次 | 整数型 | |||||
| 空闲线程数 | 整数型 | |||||
| n | 整数型 | |||||
线程数 ＝ 到整数 (编辑框线程数.内容)
执行数量 ＝ 到整数 (编辑框次数.内容)
如果 (线程数 ＞ 执行数量)
线程数 ＝ 执行数量
创建状态 ＝ 线程池.创建 (线程数, , , 真)
如果真 (创建状态 ＝ 假)
信息框 (“创建失败请重试”, 0, , )按钮_开始.禁止 ＝ 假按钮_开始.标题 ＝ “开始”返回 ()按钮_开始.禁止 ＝ 假
投递记次 ＝ 0
判断循环首 (投递记次 ＜ 执行数量)空闲线程数 ＝ 线程池.取_空闲线程数 ()判断循环首 (空闲线程数 ＝ 0)如果真 (线程池.取_状态 () ≠ 1)返回 ()延迟 (50)空闲线程数 ＝ 线程池.取_空闲线程数 ()
判断循环尾 ()调试输出 (空闲线程数)计次循环首 (空闲线程数, )计次循环首 (超级列表框1.取表项数 (), n)线程池.投递任务 (&主线程, n － 1, 投递记次)计次循环尾 ()原子_递增 (投递记次)程序_延时 (到整数 (编辑框延时.内容))计次循环尾 ()判断循环尾 ()判断循环首 (线程池.取_是否有空闲 () ＝ 假)如果真 (线程池.取_状态 () ≠ 1)返回 ()延迟 (50)判断循环尾 ()线程池.销毁 (2, 真)
按钮_开始.标题 ＝ “开始”
| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |
| iext | 扩展界面支持库一 |