【冒泡算法】

20099371

我想实现的是   排序后  怎么在编辑框里从大到小显示 ，我写的代码在编辑框里面只能显示最大的一个  求指点  谢谢大虾！
我的代码如下：ps(TC5.0)

功能 开始_点击()
    排序()
结束
功能  排序()
    变量 物品=数组() ,  缓冲区
    物品[0]=23
    物品[1]=1123
    物品[2]=3
    物品[3]=83
    物品[4]=11
    物品[5]=60
    物品[6]=5
    遍历(变量 i = 0; i < 6; i++)

        遍历(变量 j = i+1; j < 7; j++)

            如果(物品>物品[j])

                缓冲区=物品
                物品=物品[j]
                物品[j]=缓冲区


            结束
        结束
    结束
    遍历(变量 i = 0; i < 7;i++)
        //消息框("物品["&i&"]:"&物品)
        变量 s=物品
        编辑框设置文本("编辑框0",s)
    结束



结束
功能 退出_点击()

    退出()
结束

言术

每一次设置编辑框覆盖上一次的结果，或没设置编辑框的各种属性，如多行等等

1. 功能 开始_点击()
   
2.     排序()
   
3. 结束
   
4. 功能  排序()
   
5.     变量 物品=数组() ,  缓冲区
   
6.     物品[0]=23
   
7.     物品[1]=1123
   
8.     物品[2]=3
   
9.     物品[3]=83
   
10.     物品[4]=11
    
11.     物品[5]=60
    
12.     物品[6]=5
    
13.     遍历(变量 i = 0; i < 6; i++)
    
14.         遍历(变量 j = i+1; j < 7; j++)
    
15.             如果(物品>物品[j])
    
16.                 缓冲区=物品
    
17.                 物品=物品[j]
    
18.                 物品[j]=缓冲区
    
19.             结束
    
20.         结束
    
21.     结束
    
22.     遍历(变量 i = 0; i < 7;i++)
    
23.         编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&物品[i]&"\r\n")
    
24.     结束
    
25. 结束
    
26. 功能 退出_点击()
    
27.     退出()
    
28. 结束
    

复制代码