.版本 2 .支持库 iext .支持库 EThread .支持库 spec .程序集 窗口程序集1 .程序集变量 返回的线程, 整数型 .程序集变量 返回的线程2, 整数型 .程序集变量 线程数量, 整数型 .程序集变量 处理表项记录, 整数型 .程序集变量 是否关闭, 逻辑型 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .局部变量 表项数, 整数型 .计次循环首 (500, i) 表项数 ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , ) ' 本源码来自三叶资源网(www.sanye.cx) 超级列表框1.置标题 (表项数, 0, 到文本 (i)) 置随机数种子 () 超级列表框1.置标题 (表项数, 1, 到文本 (取随机数 (100, 9999)) ＋ “+” ＋ 到文本 (取随机数 (100, 9999)) ＋ “=”) .计次循环尾 () 是否关闭 ＝ 假 .子程序 _按钮1_被单击 启动线程 (&开始, , 返回的线程) .子程序 开始 .局部变量 ID表项记录 .判断循环首 (是否关闭 ＝ 假) .如果 (线程数量 ＜ 到整数 (编辑框1.内容)) 启动线程 (&线程运行, , 返回的线程2) ID表项记录 ＝ ID表项记录 ＋ 1 ' 这个变量用来记录ID的表项 ，必须 线程数量 ＝ 线程数量 ＋ 1 ' 创建一次就+1 用来判断线程数量 于上面的如果对应 ' 本源码来自三叶资源网(www.sanye.cx) .否则 .如果结束 .判断循环尾 () 处理表项记录 ＝ 0 .子程序 线程运行 .局部变量 局部记录, 整数型 处理表项记录 ＝ 处理表项记录 ＋ 1 局部记录 ＝ 处理表项记录 － 1 ' 超级列表框1.置标题 (局部记录, , “a+” ＋ 到文本 (局部记录)) 线程数量 ＝ 线程数量 － 1 调试输出 (处理表项记录, 局部记录, 线程数量) .子程序 _按钮2_被单击 是否关闭 ＝ 真 关闭线程句柄 (返回的线程) 关闭线程句柄 (返回的线程2)