.版本 2 .支持库 EThread .程序集 窗口程序集1 .程序集变量 全_信号句柄, 整数型 .程序集变量 全_线程帮助类, ThreadHelper .子程序 _按钮1_被单击 .局部变量 局_线程数, 整数型 .局部变量 局_任务数量, 整数型 .局部变量 i, 整数型 局_线程数 ＝ 到整数 (编辑框2.内容) 局_任务数量 ＝ 到整数 (编辑框1.内容) 全_信号句柄 ＝ 全_线程帮助类.创建信号量 (局_线程数) .计次循环首 (局_任务数量, i) 启动线程 (&子程序1, i, ) .计次循环尾 () .子程序 子程序1 .参数 i, 整数型 全_线程帮助类.等待句柄 (全_信号句柄) 列表框1.插入项目 (0, 到文本 (i), ) 延时 (2000) 全_线程帮助类.增加信号量 (全_信号句柄)