超级列表框数值排序并记录原标记

乐鱼驴 · 发表于 2023-3-16 10:28:43

.版本 2
.支持库 iext
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 s, 整数型
.局部变量数组, 小数型, , "0"
.局部变量文本, 文本型
.局部变量 b, 整数型
.局部变量对比, 文本型
.局部变量成员, 文本型
.局部变量顺序, 文本型, , "0"

超级列表框1.插入列 (, , , , , )
超级列表框1.插入列 (, , , , , )
超级列表框1.插入列 (, , , , , )
.计次循环首 (20, i)
' 调试输出 (“第” ＋到文本 (i) ＋ “行”)
s ＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (s, 0, 到文本 (i))
超级列表框1.置标题 (s, 1, “第” ＋到文本 (i) ＋ “行”)
超级列表框1.置标题 (s, 2, 到文本 (取随机数 (1, 500) ÷ 100))
.计次循环尾 ()
.计次循环首 (超级列表框1.取表项数 (), i)
加入成员 (数组, 到小数 (超级列表框1.取标题 (i － 1, 2)))
.计次循环尾 ()
数组排序 (数组, 假)
重定义数组 (数组, 真, 10)
.计次循环首 (取数组成员数 (数组), i)
成员＝到文本 (数组 )
文本＝文本＋成员＋ “,”
.计次循环尾 ()
.计次循环首 (超级列表框1.取表项数 (), i)
对比＝到文本 (到数值 (超级列表框1.取标题 (i － 1, 2)))
.如果真 (寻找文本 (文本, 对比, , 假) ≠ -1)
调试输出 (i)
加入成员 (顺序, 到文本 (i))
.如果真结束

.计次循环尾 ()
信息框 (“排序完成点击继续”, 0, , )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (顺序), i)
s ＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (s, 0, 顺序 )
超级列表框1.置标题 (s, 1, “第” ＋到文本 (i) ＋ “行”)
超级列表框1.置标题 (s, 2, 到文本 (数组 ))
.计次循环尾 ()

youxigw · 发表于 2023-5-20 15:03:55

学习学习学习

caidu6 · 发表于 2023-4-13 12:29:16

学习学习学习

18725857948 · 发表于 2023-4-12 21:28:59

q不企鹅额请问

hu2017 · 发表于 2023-4-11 14:21:59

感谢分享，很给力！~

枫杨 · 发表于 2023-4-10 21:28:40

超级列表框数值排序并记录原标记

张张利利 · 发表于 2023-4-10 11:06:02

张张利利发表于 2023-4-10 08:35
选中啊啊啊

我我问问是是是

张张利利 · 发表于 2023-4-10 08:35:14

选中啊啊啊

古巷孤猫 · 发表于 2023-4-10 04:02:16

11111111111111111111111111111

wed543 · 发表于 2023-4-9 12:05:02

谢谢分享

		自动登录	找回密码
密码			注册

[易语言纯源码] 超级列表框数值排序并记录原标记

评分

本帖被以下淘专辑推荐: