.版本 2 .支持库 EThread .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 已计算数量, 整数型 .程序集变量 列表框表项索引, 整数型 .程序集变量 线程数, 整数型 .程序集变量 许可证, 整数型 .子程序 __启动窗口_创建完毕 许可证 ＝ 创建进入许可证 () .子程序 子_多线程循环判断 列表框表项索引 ＝ -1 .判断循环首 (已计算数量 ≠ 超级列表框1.取表项数 ()) .如果真 (线程数 ＜ 到整数 (编辑框_线程数.内容)) 线程数 ＝ 线程数 ＋ 1 列表框表项索引 ＝ 列表框表项索引 ＋ 1 启动线程 (&计算, , ) .如果真结束 .判断循环尾 () .子程序 计算 .局部变量 表项sy, 整数型 .局部变量 结果, 文本型 进入许可区 (许可证) ' 操作程序集变量的时候加一下许可区，不然会导致置标题为空的情况！！！！ 表项sy ＝ 列表框表项索引 － 1 退出许可区 (许可证) 结果 ＝ 到文本 (到数值 (超级列表框1.取标题 (表项sy, 1)) ＋ 到数值 (超级列表框1.取标题 (表项sy, 2))) 超级列表框1.置标题 (表项sy, 3, 结果) 已计算数量 ＝ 已计算数量 ＋ 1 线程数 ＝ 线程数 － 1 超级列表框1.保证显示 (表项sy) .子程序 _按钮计算_被单击 启动线程 (&子_多线程循环判断, , ) .子程序 生成随机数值 .局部变量 i, 整数型 .局部变量 表项索引, 整数型 置随机数种子 () .计次循环首 (到整数 (编辑框生成数.内容), i) 表项索引 ＝ 超级列表框1.插入表项 (-1, 到文本 (i), , , , ) 超级列表框1.置标题 (表项索引, 1, 到文本 (取随机数 (1, 99))) 超级列表框1.置标题 (表项索引, 2, 到文本 (取随机数 (1, 99))) .计次循环尾 () .子程序 _按钮生成_被单击 启动线程 (&生成随机数值, , ) .子程序 __启动窗口_将被销毁 删除进入许可证 (许可证)