冒泡排序/取随机数

.计次循环首 (K, i)
.如果真 (flag ＝ 假)
跳出循环 ()
.如果真结束
flag ＝ 假
last ＝ 0
.计次循环首 (K, j)
.如果真 (到整数 (数组_文本 [j]) ＞ 到整数 (数组_文本 [j ＋ 1]))
flag ＝ 真
last ＝ j
temp ＝ 到整数 (数组_文本 [j])
数组_文本 [j] ＝ 数组_文本 [j ＋ 1]
数组_文本 [j ＋ 1] ＝ 到文本 (temp)
.如果真结束

.计次循环尾 ()
K ＝ last
.计次循环尾 ()
.计次循环首 (取数组成员数 (数组_文本), 计次)
排序后的文本 ＝ 排序后的文本 ＋ 数组_文本 [计次] ＋ “,”
.计次循环尾 ()
编辑框2.内容 ＝ 取文本左边 (排序后的文本, 取文本长度 (排序后的文本) － 1)