怎样快速地把一组数字从小到大排列

小马过河

这个可能对你有用！
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 数组2, 文本型, , "0"
.局部变量 数组, 整数型, , "0"
.局部变量 文本, 文本型
.局部变量 计次


数组2 ＝ { “09”, “06”, “22”, “33”, “25”, “08” }
.计次循环首 (取数组成员数 (数组2), 计次)
    文本 ＝ 数组2 [计次]
    加入成员 (数组, 到整数 (文本))

.计次循环尾 ()

' 数组 ＝ { 2, 23, 25, 45, 65, 58, 98, 47, 12, 46 }
数组排序 (数组, 真)
.计次循环首 (取数组成员数 (数组), 计次)
    文本 ＝ 到文本 (数组 [计次])
    .如果真 (取文本长度 (文本) ＝ 1)
        文本 ＝ “0” ＋ 文本
    .如果真结束
    编辑框1.加入文本 (文本 ＋ #换行符)
.计次循环尾 ()

qq875737210

金哥专用 发表于 2011-9-22 13:05
精币给谁呢？？

反正不给你