排序求助

我很低调

啊排序求助.e (2.33 KB, 下载次数: 8)

3 天前 上传

点击文件名下载附件

石榴熟了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
array	整数型
i	整数型
j	整数型
目标列表框	超级列表框
a	文本型
b	文本型

目标列表框 ＝ 超级列表框1
计次循环首 (目标列表框.取表项数 () － 1, i)
计次循环首 (目标列表框.取表项数 () － i, j)
a ＝ 目标列表框.取标题 (j － 1, 0)
b ＝ 目标列表框.取标题 (j, 0)
如果真 (取文本长度 (a) ＜ 取文本长度 (b))
目标列表框.置标题 (j － 1, 0, b)
目标列表框.置标题 (j, 0, a)

计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 array, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 目标列表框, 超级列表框<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型<br /> <br /> <br /> 目标列表框 ＝ 超级列表框1<br /> <br /> .计次循环首 (目标列表框.取表项数 () － 1, i)<br />     .计次循环首 (目标列表框.取表项数 () － i, j)<br />         a ＝ 目标列表框.取标题 (j － 1, 0)<br />         b ＝ 目标列表框.取标题 (j, 0)<br />         .如果真 (取文本长度 (a) ＜ 取文本长度 (b))<br />             目标列表框.置标题 (j － 1, 0, b)<br />             目标列表框.置标题 (j, 0, a)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

白宝宝

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

列表排序 (真)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

列表排序 (假)

子程序名	返回值类型	公开	备 注
列表排序	逻辑型
参数名	类 型	参考	可空	数组	备 注
从多到少	逻辑型

变量名	类 型	静态	数组	备 注
项目数	整数型
i	整数型
j	整数型
列表数组	文本型		0
计次	整数型
临时文本	文本型
计数1	整数型
计数2	整数型

项目数 ＝ 超级列表框1.取表项数 ()
计次循环首 (项目数, i)
加入成员 (列表数组, 超级列表框1.取标题 (i － 1, 0))
计次循环尾 ()
' 冒泡排序
计次循环首 (项目数 － 1, i)
计次循环首 (项目数 － i, j)
计数1 ＝ 取文本长度 (列表数组 [j])
计数2 ＝ 取文本长度 (列表数组 [j ＋ 1])
如果真 (从多到少 且 计数1 ＜ 计数2 或 取反 (从多到少) 且 计数1 ＞ 计数2)
临时文本 ＝ 列表数组 [j]
列表数组 [j] ＝ 列表数组 [j ＋ 1]
列表数组 [j ＋ 1] ＝ 临时文本

计次循环尾 ()
计次循环尾 ()
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (列表数组), 计次)
超级列表框1.插入表项 (计次 － 1, 列表数组 [计次], , , , )
计次循环尾 ()
返回 (真)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 列表排序 (真)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 列表排序 (假)<br /> <br /> .子程序 列表排序, 逻辑型<br /> .参数 从多到少, 逻辑型<br /> .局部变量 项目数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 列表数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 计数1, 整数型<br /> .局部变量 计数2, 整数型<br /> <br /> 项目数 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (项目数, i)<br />     加入成员 (列表数组, 超级列表框1.取标题 (i － 1, 0))<br /> .计次循环尾 ()<br /> <br /> ' 冒泡排序<br /> .计次循环首 (项目数 － 1, i)<br />     .计次循环首 (项目数 － i, j)<br />         计数1 ＝ 取文本长度 (列表数组 [j])<br />         计数2 ＝ 取文本长度 (列表数组 [j ＋ 1])<br /> <br />         .如果真 (从多到少 且 计数1 ＜ 计数2 或 取反 (从多到少) 且 计数1 ＞ 计数2)<br />             临时文本 ＝ 列表数组 [j]<br />             列表数组 [j] ＝ 列表数组 [j ＋ 1]<br />             列表数组 [j ＋ 1] ＝ 临时文本<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取数组成员数 (列表数组), 计次)<br />     超级列表框1.插入表项 (计次 － 1, 列表数组 [计次], , , , )<br /> .计次循环尾 ()<br /> <br /> 返回 (真)