.版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _按钮4_被单击 .局部变量 局部_线程局部, 整数型 ' 启动线程 (&子程序_筛选, , 局部_线程局部) ' 关闭线程句柄 (局部_线程局部) 子程序_筛选 () .子程序 子程序_筛选 .局部变量 局部_数量, 整数型 .局部变量 局部_计次, 整数型 .局部变量 局部_索引, 整数型 .局部变量 局部_省份, 文本型 .局部变量 局部_省份_筛选, 文本型 .局部变量 局部_性别, 文本型 .局部变量 局部_性别_筛选, 文本型 .局部变量 局部_年龄, 整数型 .局部变量 局部_低年龄_筛选, 整数型 .局部变量 局部_高年龄_筛选, 整数型 局部_省份_筛选 ＝ 组合框1.取项目文本 (组合框1.现行选中项) 局部_性别_筛选 ＝ 组合框2.取项目文本 (组合框2.现行选中项) 局部_低年龄_筛选 ＝ 到整数 (编辑框1.内容) 局部_高年龄_筛选 ＝ 到整数 (编辑框2.内容) .如果真 (局部_省份_筛选 ≠ “全部”) 局部_索引 ＝ 0 局部_数量 ＝ 超级列表框.取表项数 () .计次循环首 (局部_数量, 局部_计次) 局部_省份 ＝ 超级列表框.取标题 (局部_索引, 2) .判断开始 (寻找文本 (局部_省份, 局部_省份_筛选, , 假) ＝ -1) 超级列表框.删除表项 (局部_索引) .默认 局部_索引 ＝ 局部_索引 ＋ 1 .判断结束 .计次循环尾 () .如果真结束 .如果真 (局部_性别_筛选 ≠ “全部”) 局部_索引 ＝ 0 局部_数量 ＝ 超级列表框.取表项数 () .计次循环首 (局部_数量, 局部_计次) 局部_性别 ＝ 超级列表框.取标题 (局部_索引, 3) .判断开始 (寻找文本 (局部_性别, 局部_性别_筛选, , 假) ＝ -1) 超级列表框.删除表项 (局部_索引) .默认 局部_索引 ＝ 局部_索引 ＋ 1 .判断结束 .计次循环尾 () .如果真结束 局部_索引 ＝ 0 局部_数量 ＝ 超级列表框.取表项数 () .计次循环首 (局部_数量, 局部_计次) 局部_年龄 ＝ 到整数 (超级列表框.取标题 (局部_索引, 4)) .判断开始 (局部_年龄 ≥ 局部_低年龄_筛选 且 局部_年龄 ≤ 局部_高年龄_筛选) 局部_索引 ＝ 局部_索引 ＋ 1 .默认 超级列表框.删除表项 (局部_索引) .判断结束 .计次循环尾 () 局部_数量 ＝ 超级列表框.取表项数 () .计次循环首 (局部_数量, 局部_计次) 超级列表框.置标题 (局部_计次 － 1, 0, 到文本 (局部_计次)) .计次循环尾 ()