10金币 从大到小整理号码， 对于高手应该很简单！

爱家的小懒虫

吾爱破 发表于 2011-10-2 22:14
你的没用啊。你代码都写错了，你是复制的那里来的吧？直接提示"错误(10044): 不能将“文本型 数组”数据转 ...

[e]
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 最后次交换位置, 整数型
.局部变量 temp, 文本型
.局部变量 k, 整数型, 静态
编辑框2.内容 ＝ “”
k ＝ 1 － k
数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
j ＝ 取数组成员数 (数组)
.判断循环首 (j ＞ 0)
    最后次交换位置 ＝ 0
    .计次循环首 (j － 1, i)
        .如果 (取文本长度 (数组 ) ＞ 取文本长度 (数组 [i ＋ 1]))
            temp ＝ 数组
            数组 ＝ 数组 [i ＋ 1]
            数组 [i ＋ 1] ＝ temp
        .否则
            .如果真 (取文本长度 (数组 ) ＝ 取文本长度 (数组 [i ＋ 1]))
                .如果真 (到整数 (数组 ) ＞ 到整数 (数组 [i ＋ 1]))
                    temp ＝ 数组
                    数组 ＝ 数组 [i ＋ 1]
                    数组 [i ＋ 1] ＝ temp
                .如果真结束
            .如果真结束
        .如果结束
        最后次交换位置 ＝ i
    .计次循环尾 ()
    j ＝ 最后次交换位置
    .如果 (k ＝ 1)
        编辑框2.内容 ＝ 数组 ＋ #换行符 ＋ 编辑框2.内容
    .否则
        编辑框2.加入文本 (数组 ＋ #换行符)
    .如果结束
.判断循环尾 ()
处理事件 ()

[/e]



用代码插入 变错了!!! 版主过来看下 怎么回事???

下面是直接复制的.

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 最后次交换位置, 整数型
.局部变量 temp, 文本型
.局部变量 k, 整数型, 静态
编辑框2.内容 ＝ “”
k ＝ 1 － k
数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
j ＝ 取数组成员数 (数组)
.判断循环首 (j ＞ 0)
    最后次交换位置 ＝ 0
    .计次循环首 (j － 1, i)
        .如果 (取文本长度 (数组 ) ＞ 取文本长度 (数组 [i ＋ 1]))
            temp ＝ 数组
            数组 ＝ 数组 [i ＋ 1]
            数组 [i ＋ 1] ＝ temp
        .否则
            .如果真 (取文本长度 (数组 ) ＝ 取文本长度 (数组 [i ＋ 1]))
                .如果真 (到整数 (数组 ) ＞ 到整数 (数组 [i ＋ 1]))
                    temp ＝ 数组
                    数组 ＝ 数组 [i ＋ 1]
                    数组 [i ＋ 1] ＝ temp
                .如果真结束
            .如果真结束
        .如果结束
        最后次交换位置 ＝ i
    .计次循环尾 ()
    j ＝ 最后次交换位置
    .如果 (k ＝ 1)
        编辑框2.内容 ＝ 数组 ＋ #换行符 ＋ 编辑框2.内容
    .否则
        编辑框2.加入文本 (数组 ＋ #换行符)
    .如果结束
.判断循环尾 ()
处理事件 ()

还是错误!

柳叶飞

1. 
   
2. .版本 2
   
3. .程序集 窗口程序集1
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 QQ号码, 整数型, , "0"
   
6. .局部变量 I, 整数型
   
7. 编辑框1.内容 ＝ “”
   
8. QQ号码 ＝ { 45421, 1000, 44, 1, 454, 4, 15, 87, 8, 87871, 544545 }
   
9. 数组排序 (QQ号码, 假)
   
10. .计次循环首 (取数组成员数 (QQ号码), I)
    
11.     编辑框1.加入文本 (到文本 (QQ号码 [I]) ＋ #换行符)
    
12. .计次循环尾 ()
    

复制代码

为什么要那么复杂呢，直接这样不好吗？

1. 
   
2. 
   
3. 数组排序（，）
   
4. 参数<1>的名称为“数值数组变量”，类型为“通用型（all）”，提供参数数据时只能提供变量数组。
   
5. 参数<2>的名称为“排序方向是否为从小到大”，类型为“逻辑型（bool）”，可以被省略。如果参数值为真，排序方向为从小到大，否则为从大到小。如果本参数被省略，默认值为真。
   
6.    

复制代码