易语言中怎么实现数字大小排序(只排数字的序号而不是数字从大到小排列)列如:8 9 4 5 6 大到小的序号为
发布网友
发布时间:2022-06-03 16:05
我来回答
共3个回答
热心网友
时间:2023-10-22 21:31
下面是源代码:
追问不文本排哦是数值 而且排不是数而是数的序号
热心网友
时间:2023-10-22 21:32
看源码,下载附件就可以了↓
其实只要利用好了数组,这个就很简单了
还有的就是文本数组转化成整数数组的问题了……剩下的就不是问题了……
如楼主说的,如果要排序在原中的顺序的话,用数组对比就好了,我已经更新了源码了,请楼主留意
我已经更新了源码了,请楼主留意……
我已经更新了源码了,请楼主留意%
我已经更新了源码了,请楼主留意¥
我已经更新了源码了,请楼主留意#
追问不是从大到小排序 是排数字的序号
追答已经更新了……请注意查看
热心网友
时间:2023-10-22 21:32
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 长度, 整数型
.程序集变量 a, 整数型
.程序集变量 b, 整数型
.程序集变量 较小的数, 整数型
.程序集变量 较大的数, 整数型
.程序集变量 中间数, 整数型
.程序集变量 替换后结果, 文本型
.程序集变量 暂存数, 整数型
.子程序 _按钮1_被单击
编辑框2.内容 = “”
a = 1
b = 2
长度 = 取文本长度 (编辑框1.内容)
中间数 = 到数值 (编辑框1.内容)
.计次循环首 (长度 - 1, )
调用子程序 (&对比算法, , , )
.计次循环尾 ()
.子程序 对比算法
较小的数 = 到数值 (取文本中间 (到文本 (中间数), 1, 1))
.计次循环首 (长度 - a, )
较大的数 = 到数值 (取文本中间 (到文本 (中间数), b, 1))
.如果真 (较小的数 > 较大的数)
暂存数 = 较小的数
较小的数 = 较大的数
较大的数 = 暂存数
.如果真结束
b = b + 1
.计次循环尾 ()
编辑框2.内容 = 编辑框2.内容 + 到文本 (较小的数)
a = a + 1
.如果真 (a = 长度)
编辑框2.内容 = 编辑框2.内容 + 到文本 (较大的数)
.如果真结束
b = 2
替换后结果 = 子文本替换 (编辑框1.内容, 到文本 (较小的数), “”, , 1, 真)
中间数 = 到数值 (替换后结果)