易语言数字组合

发布网友发布时间：2022-04-27 00:57

共2个回答

热心网友时间：2022-06-22 00:10

闲来没事敲着玩,最笨的方法写了前面两个,瞅瞅玩吧,数组排序估计要转成整数数组才有效,文本数组这样排序没效果.

.版本 2
.局部变量 i, 整数型
.局部变量 i1, 整数型
.局部变量 i2, 整数型
.局部变量 t, 文本型
.局部变量 i3, 整数型
.局部变量 i4, 整数型
.如果真 (编辑框1.内容 ≠ “” 或寻找文本 (编辑框1.内容, “，”, , 假) ＞ -1)
sn ＝分割文本 (编辑框1.内容, “，”, )
数组排序 (sn, 真)
.计次循环首 (取数组成员数 (sn), i)
.如果 (编辑框2.内容＝ “”)
编辑框2.内容＝ sn [i]
.否则
编辑框2.内容＝编辑框2.内容＋ “，” ＋ sn [i]
.如果结束
.计次循环尾 ()
编辑框3.内容＝ “”
.计次循环首 (取数组成员数 (sn), i1)
.计次循环首 (取数组成员数 (sn) － 1, i2)
.计次循环首 (取数组成员数 (sn) － 2, i3)
.计次循环首 (取数组成员数 (sn) － 3, i4)
.如果真 (sn [i1] ≠ sn [i2] 且 sn [i1] ≠ sn [i3] 且 sn [i1] ≠ sn [i4] 且 sn [i2] ≠ sn [i3] 且 sn [i2] ≠ sn [i4] 且 sn [i3] ≠ sn [i4])
' 输出调试文本 (sn [i1] ＋ “，” ＋ sn [i2] ＋ “，” ＋ sn [i3] ＋ “，” ＋ sn [i4])
.如果 (编辑框3.内容＝ “”)
编辑框3.内容＝ sn [i1] ＋ “，” ＋ sn [i2] ＋ “，” ＋ sn [i3] ＋ “，” ＋ sn [i4]
.否则
编辑框3.内容＝编辑框3.内容＋ #换行符＋ sn [i1] ＋ “，” ＋ sn [i2] ＋ “，” ＋ sn [i3] ＋ “，” ＋ sn [i4]
.如果结束
处理事件 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()

热心网友时间：2022-06-22 00:10

数组排序（）