.版本 2 .支持库 eGrid .程序集 窗口程序集_启动窗口 .程序集变量 c_modelid, 整数型 .程序集变量 c_key, 线程许可证 .程序集变量 线程池, 鱼刺类_线程池 .程序集变量 集_数组, 文本型, , "0" .子程序 __启动窗口_创建完毕 .局部变量 j_bin, 字节集 .局部变量 j_str, 文本型 .局部变量 qyxml 高级表格_测试.清空数据 () 高级表格_测试.置数据 (0, 0, 1, “编号”) 高级表格_测试.置数据 (0, 1, 1, “图片”) 高级表格_测试.置数据 (0, 2, 1, “结果”) 高级表格_测试.置数据 (0, 3, 1, “耗时”) 高级表格_测试.置列宽 (0, 60) 高级表格_测试.置列宽 (1, 150) 高级表格_测试.置列宽 (2, 150) 高级表格_测试.置列宽 (3, 80) 高级表格_测试.置列类型 (1, 6) 高级表格_测试.置对齐方式 (0, 0, 10000, 3, 2) 高级表格_测试.置图片显示方式 (1, #表格常量.拉伸) c_key ＝ 线程_创建许可证 () Init () c_modelid ＝ LoadFromBuffer (读入文件 (“mcg.dat”), “”, 16) ' 字节集方式 .子程序 _按钮_测试_被单击 .局部变量 j_count, 整数型 .局部变量 i, 整数型 高级表格_测试.清空数据 () 高级表格_测试.置数据 (0, 0, 1, “编号”) 高级表格_测试.置数据 (0, 1, 1, “图片”) 高级表格_测试.置数据 (0, 2, 1, “结果”) 高级表格_测试.置数据 (0, 3, 1, “耗时”) 高级表格_测试.置列宽 (0, 60) 高级表格_测试.置列宽 (1, 150) 高级表格_测试.置列宽 (2, 150) 高级表格_测试.置列宽 (3, 80) 高级表格_测试.置列类型 (1, 6) 高级表格_测试.置对齐方式 (0, 0, 10000, 3, 2) 高级表格_测试.置图片显示方式 (1, #表格常量.拉伸) .变量循环首 (高级表格_测试.行数, 1, -1, j_count) 高级表格_测试.删除行 (j_count) .变量循环尾 () 线程池.创建 (20, , ) .计次循环首 (10, i) 线程池.投递任务 (&线程_按钮_测试_被单击, i, ) ' 程序_延时 (10, ) .计次循环尾 () .子程序 线程_按钮_测试_被单击 .参数 c_i .局部变量 j_bin, 字节集 .局部变量 j_str, 文本型 .局部变量 j_time, 整数型 .局部变量 j_int, 整数型 .局部变量 j_bin2, 字节集 线程_初始化COM库 () 置随机数种子 () j_bin ＝ 读入文件 (取运行目录 () ＋ “/” ＋ 到文本 (取随机数 (1, 4)) ＋ “.png”) j_time ＝ 取启动时间 () j_str ＝ 取空白文本 (1) GetImageFromBuffer (j_bin, j_str, c_modelid) j_time ＝ 取启动时间 () － j_time 输出调试文本 (到文本 (c_i) ＋ “-” ＋ j_str ＋ “-” ＋ 到文本 (j_time)) 线程_进入许可区 (c_key) j_int ＝ 高级表格_测试.行数 高级表格_测试.插入行 (, j_int) 高级表格_测试.置数据 (j_int, 0, #表格常量.文本型, 到文本 (j_int)) 高级表格_测试.置行高 (j_int, 40) 高级表格_测试.置数据 (j_int, 1, #表格常量.图片型, j_bin) 高级表格_测试.置数据 (j_int, 2, #表格常量.文本型, j_str) 高级表格_测试.置数据 (j_int, 3, #表格常量.文本型, 到文本 (j_time) ＋ “ms”) 高级表格_测试.刷新显示 () 线程_退出许可区 (c_key) 线程_取消COM库 ()