不用数组排序来，来排序数字

ST陈尘

把编辑框1的内容里的数字
进行由大到小排序显示到编辑框2里面

不允许使用数组排序（）这个命令

ST陈尘

125585,555,66666,-55,8,4,9,2,444,333333333

帅气与大侠

  

子程序名	返回值类型	公开	备 注
数组_数值排序	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
顺序	整数型				0=升序，1=降序
返回数组	文本型

变量名	类 型	静态	数组	备 注
成员数	整数型
n	整数型
列表成员数	整数型
i	整数型
数值	双精度小数型
是否变动	整数型

成员数 ＝ 取数组成员数 (数组)
清除数组 (返回数组)
列表成员数 ＝ 0
计次循环首 (成员数, n)
数值 ＝ 到数值 (数组 [n])
是否变动 ＝ 0
计次循环首 (列表成员数, i)
判断 (顺序 ＝ 0)
如果真 (数值 ≥ 到数值 (返回数组 [列表成员数 － i ＋ 1]))
插入成员 (返回数组, 列表成员数 － i ＋ 2, 数组 [n])
是否变动 ＝ 1
跳出循环 ()

如果真 (数值 ≤ 到数值 (返回数组 [列表成员数 － i ＋ 1]))
插入成员 (返回数组, 列表成员数 － i ＋ 2, 数组 [n])
是否变动 ＝ 1
跳出循环 ()


计次循环尾 ()
如果真 (是否变动 ＝ 0)
插入成员 (返回数组, 1, 数组 [n])

列表成员数 ＝ 列表成员数 ＋ 1
计次循环尾 ()
返回 (列表成员数)

.版本 2<br /> <br /> .子程序 数组_数值排序, 整数型<br /> .参数 数组, 文本型, 数组<br /> .参数 顺序, 整数型, 可空, 0=升序，1=降序<br /> .参数 返回数组, 文本型, 数组<br /> .局部变量 成员数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 列表成员数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 数值, 双精度小数型<br /> .局部变量 是否变动, 整数型<br /> <br /> 成员数 ＝ 取数组成员数 (数组)<br /> 清除数组 (返回数组)<br /> 列表成员数 ＝ 0<br /> .计次循环首 (成员数, n)<br />     数值 ＝ 到数值 (数组 [n])<br />     是否变动 ＝ 0<br />     .计次循环首 (列表成员数, i)<br />         .判断开始 (顺序 ＝ 0)<br />             .如果真 (数值 ≥ 到数值 (返回数组 [列表成员数 － i ＋ 1]))<br />                 插入成员 (返回数组, 列表成员数 － i ＋ 2, 数组 [n])<br />                 是否变动 ＝ 1<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .默认<br />             .如果真 (数值 ≤ 到数值 (返回数组 [列表成员数 － i ＋ 1]))<br />                 插入成员 (返回数组, 列表成员数 － i ＋ 2, 数组 [n])<br />                 是否变动 ＝ 1<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> <br />     .如果真 (是否变动 ＝ 0)<br />         插入成员 (返回数组, 1, 数组 [n])<br />     .如果真结束<br /> <br />     列表成员数 ＝ 列表成员数 ＋ 1<br /> .计次循环尾 ()<br /> 返回 (列表成员数)

wang981942

66666666666666