.版本 2 .支持库 commobj .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 编辑框2.内容 ＝ 易去重排序 (分割文本 (编辑框1.内容, “,”, )) .子程序 易去重排序, 文本型, , 排序用的是冒泡排序法 去重复用的是吃尾法 其实两个看上去一样 .参数 文本数组, 文本型, 参考 数组 .局部变量 i, 整数型 .局部变量 i2, 整数型 .局部变量 快速文本, 快速文本对象 .计次循环首 (取数组成员数 (文本数组), i) .变量循环首 (取数组成员数 (文本数组), i ＋ 1, -1, i2) .如果真 (到数值 (文本数组 [i2 － 1]) ＞ 到数值 (文本数组 [i2])) 交换变量 (文本数组 [i2], 文本数组 [i2 － 1]) .如果真结束 .如果真 (文本数组 [i] ＝ 文本数组 [i2]) 删除成员 (文本数组, i2, ) .如果真结束 .变量循环尾 () .计次循环尾 () .计次循环首 (取数组成员数 (文本数组), i) 快速文本.添加 (文本数组 [i], “,”) .计次循环尾 () 返回 (快速文本.取文本 (, ))