第1个回答 2009-09-29
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 长度, 整数型
.程序集变量 a, 整数型
.程序集变量 b, 整数型
.程序集变量 较小的数, 整数型
.程序集变量 较大的数, 整数型
.程序集变量 中间数, 整数型
.程序集变量 替换后结果, 文本型
.程序集变量 暂存数, 整数型
.子程序 _按钮1_被单击
编辑框2.内容 ＝ “”
a ＝ 1
b ＝ 2
长度 ＝ 取文本长度 (编辑框1.内容)
中间数 ＝ 到数值 (编辑框1.内容)
.计次循环首 (长度 － 1, )
调用子程序 (&对比算法, , , )
.计次循环尾 ()
.子程序 对比算法
较小的数 ＝ 到数值 (取文本中间 (到文本 (中间数), 1, 1))
.计次循环首 (长度 － a, )
较大的数 ＝ 到数值 (取文本中间 (到文本 (中间数), b, 1))
.如果真 (较小的数 ＞ 较大的数)
暂存数 ＝ 较小的数
较小的数 ＝ 较大的数
较大的数 ＝ 暂存数
.如果真结束
b ＝ b ＋ 1
.计次循环尾 ()
编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文本 (较小的数)
a ＝ a ＋ 1
.如果真 (a ＝ 长度)
编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文本 (较大的数)
.如果真结束
b ＝ 2
替换后结果 ＝ 子文本替换 (编辑框1.内容, 到文本 (较小的数), “”, , 1, 真)
中间数 ＝ 到数值 (替换后结果)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
我测试过了 没问题 费了我一个小时 就为了10分本回答被提问者采纳