非常实用的冒泡算法排序例程

发现这个算法真的很好 写了一个例程不会的拿去学习一下吧。

.计次循环首 (取数组成员数 (局部_文本数组), i)
.变量循环首 (i ＋ 1, 取数组成员数 (局部_文本数组), 1, j)
.如果真 (取文本长度 (局部_文本数组 [j]) ＜ 取文本长度 (局部_文本数组 [i])) ' 改为 > 则为降序排列
局部_保留 ＝ 局部_文本数组 [i]
局部_文本数组 [i] ＝ 局部_文本数组 [j]
局部_文本数组 [j] ＝ 局部_保留
.如果真结束

.变量循环尾 ()
列表框_文本排序显示.加入项目 (到文本 (局部_文本数组 [i]), )
.计次循环尾 ()

列表框_自定义数组排序显示.清空 ()
.计次循环首 (取数组成员数 (局部_自定义数组), i)
.变量循环首 (i ＋ 1, 取数组成员数 (局部_自定义数组), 1, j)
.如果真 (局部_自定义数组 [j].序号 ＜ 局部_自定义数组 [i].序号) ' 改为 > 则为降序排列
局部_保留.序号 ＝ 局部_自定义数组 [i].序号
局部_保留.姓名 ＝ 局部_自定义数组 [i].姓名
局部_自定义数组 [i].序号 ＝ 局部_自定义数组 [j].序号
局部_自定义数组 [i].姓名 ＝ 局部_自定义数组 [j].姓名
局部_自定义数组 [j].序号 ＝ 局部_保留.序号
局部_自定义数组 [j].姓名 ＝ 局部_保留.姓名
.如果真结束

.变量循环尾 ()
列表框_自定义数组排序显示.加入项目 (到文本 (局部_自定义数组 [i].序号) ＋ “ ” ＋ 到文本 (局部_自定义数组 [i].姓名), )
.计次循环尾 ()