.版本 2 .支持库 EThread .支持库 spec .子程序 _按钮1_被单击 启动线程 (&子程序1, , ) .子程序 子程序1 .局部变量 a, 整数型, , "10000000" .局部变量 b, 逻辑型, , "0" .局部变量 i, 整数型 .局部变量 下标, 整数型 .局部变量 数量, 整数型 .局部变量 s, 整数型 .局部变量 c, 整数型, , "0" .局部变量 t, 整数型 .局部变量 哈希, 哈希表类zy .局部变量 k, 整数型 .局部变量 t1, 双精度小数型 .局部变量 t2, 双精度小数型 .计次循环首 (10000000, i) a [i] ＝ i .计次循环尾 () 加入成员 (a, 101) 数组排序 (a, ) 重定义数组 (c, 假, 取数组下标 (a, )) 重定义数组 (b, 假, a [取数组下标 (a, )]) 调试输出 (取数组下标 (b, )) 数量 ＝ 取数组成员数 (a) 调试输出 (数量) 哈希.创建 (3, 3, , ) t ＝ 取启动时间 () .计次循环首 (数量, k) 哈希.添加 (a [k], 1) .计次循环尾 () t1 ＝ 取启动时间 () － t t ＝ 取启动时间 () .计次循环首 (数量, s) ' 调试输出 (a [s]) .如果 (b [a [s]] ＝ 假) b [a [s]] ＝ 真 c [s] ＝ a [s] .否则 .如果结束 .计次循环尾 () t2 ＝ 取启动时间 () － t 信息框 (“1千万数据 哈希表用时：” ＋ 到文本 (t1) ＋ “ bitmap用时：” ＋ 到文本 (t2), 0, , )