易语言数字组合
发布网友
发布时间: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
数组排序()