511遇见易语言采用计次循环删除数组中重复成员方法

本课使用了计次循环和判断，对数组a和数组b的成员进行不重复比较，方法执行效率较高

511遇见易语言教程

视频教程源码：

.版本 2
.支持库 spec

.子程序 _按钮2_被单击, , , 删除数组重复成员-2
.局部变量 成员, 整数型
.局部变量 a, 整数型, , "0"
.局部变量 m, 整数型
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 文本, 文本型

置随机数种子 ()
编辑框2.内容 ＝ “”
.计次循环首 (10, m)
成员 ＝ 多项选择 (取随机数 (1, 10), 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
加入成员 (a, 成员)
编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文本 (a [m]) ＋ #换行符
.计次循环尾 ()
调试输出 (a)
子_删除数组重复成员2 (a)

.子程序 子_删除数组重复成员2
.参数 a, 整数型, 数组
.局部变量 m
.局部变量 b, 整数型, , "0"
.局部变量 c, 逻辑型
.局部变量 n
.局部变量 文本, 文本型

编辑框1.内容 ＝ “”
.计次循环首 (取数组成员数 (a), m)
c ＝ 假
.计次循环首 (取数组成员数 (b), n)
.如果真 (a [m] ＝ b [n])
c ＝ 真
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (c ＝ 假)
加入成员 (b, a [m])
文本 ＝ 文本 ＋ 到文本 (a [m]) ＋ #换行符

.如果真结束

.计次循环尾 ()
编辑框1.内容 ＝ 文本
调试输出 (b)

源码：易语言教程删除数组中重复成员方法2

         511遇见易语言教程