易语言文本冒泡排序源码 支持中/英/数/符

.子程序 __启动窗口_创建完毕
.局部变量 要排序的文本, 文本型, , "0"
.局部变量 位置, 整数型
.局部变量 临时变量, 文本型
.局部变量 操作数量, 整数型
.局部变量 当前位置, 整数型

要排序的文本 ＝ { “z”, “a”, “9”, “啊”, “b”, “1”, “吃”, “波”, “5”, “ab”, “佛”, “0”, “bca”, “额”, “的”, “哥” }
操作数量 ＝ 取数组成员数 (要排序的文本)
.判断循环首 (操作数量 ＞ 0)
    当前位置 ＝ 0
    .变量循环首 (1, 操作数量 － 1, 1, 位置)
        .如果真 (取代码 (要排序的文本 [位置], ) ＞ 取代码 (要排序的文本 [位置 ＋ 1], ))
            临时变量 ＝ 要排序的文本 [位置]
            要排序的文本 [位置] ＝ 要排序的文本 [位置 ＋ 1]
            要排序的文本 [位置 ＋ 1] ＝ 临时变量
            当前位置 ＝ 位置
        .如果真结束

    .变量循环尾 ()
    操作数量 ＝ 当前位置
.判断循环尾 ()
调试输出 (要排序的文本)
' // 排序后：
' 开始运行被调试程序
' * 数组:16{“啊”,“波”,“吃”,“的”,“额”,“佛”,“哥”,“0”,“1”,“5”,“9”,“a”,“ab”,“b”,“bca”,“z”}