Question

易语言怎么实现数字大小排序？

这样的文本，怎么排列后面的数，整个一行从大到小排列？有大神教教吗





Answer 1

版本 2

.程序集 窗口程序集1

.程序集变量 分割的数字, 整数型, , "0"

.子程序 整数排列

.参数 大小排列, 逻辑型

.局部变量 计次, 整数型

清除数组 (分割的数字)  ' 先把数组归零以清除上次的数据

.计次循环首 (取文本长度 (编辑框1.内容), 计次)

    加入成员 (分割的数字, 到数值 (取文本中间 (编辑框1.内容, 计次, 1)))  ' 把文本数字分割并存入数组

.计次循环尾 ()

编辑框1.内容 ＝ “”

.判断开始 (大小排列 ＝ 真)

    数组排序 (分割的数字, 假)  ' 排序

.默认

    数组排序 (分割的数字, )

.判断结束

.计次循环首 (取数组成员数 (分割的数字), 计次)

    编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (分割的数字 [计次])  ' 显示

.计次循环尾 ()

.子程序 _从大到小_被单击

整数排列 (真)

.子程序 _从小到大_被单击

整数排列 (假)

Answer 2

版本 2
.程序集 窗口程序集1
.程序集变量 分割的数字, 整数型, , "0"
.子程序 整数排列
.参数 大小排列, 逻辑型
.局部变量 计次, 整数型
清除数组 (分割的数字) ' 先把数组归零以清除上次的数据
.计次循环首 (取文本长度 (编辑框1.内容), 计次)
加入成员 (分割的数字, 到数值 (取文本中间 (编辑框1.内容, 计次, 1))) ' 把文本数字分割并存入数组
.计次循环尾 ()
编辑框1.内容 ＝ “”
.判断开始 (大小排列 ＝ 真)
数组排序 (分割的数字, 假) ' 排序
.默认
数组排序 (分割的数字, )
.判断结束
.计次循环首 (取数组成员数 (分割的数字), 计次)
编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (分割的数字 [计次]) ' 显示
.计次循环尾 ()
.子程序 _从大到小_被单击
整数排列 (真)
.子程序 _从小到大_被单击
整数排列 (假)

Answer 3

版本 2
.程序集 窗口程序集1
.程序集变量 分割的数字, 整数型, , "0"
.子程序 整数排列
.参数 大小排列, 逻辑型
.局部变量 计次, 整数型
清除数组 (分割的数字) ' 先把数组归零以清除上次的数据
.计次循环首 (取文本长度 (编辑框1.内容), 计次)
加入成员 (分割的数字, 到数值 (取文本中间 (编辑框1.内容, 计次, 1))) ' 把文本数字分割并存入数组
.计次循环尾 ()
编辑框1.内容 ＝ “”
.判断开始 (大小排列 ＝ 真)
数组排序 (分割的数字, 假) ' 排序
.默认
数组排序 (分割的数字, )
.判断结束
.计次循环首 (取数组成员数 (分割的数字), 计次)
编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (分割的数字 [计次]) ' 显示
.计次循环尾 ()
.子程序 _从大到小_被单击
整数排列 (真)
.子程序 _从小到大_被单击
整数排列 (假)