易语言怎样才能把超级列表框1最大的数字取出插入到超级列表框2求代码

2024-11-18 01:43:13
推荐回答(1个)
回答(1):

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

置随机数种子 ()

.子程序 _按钮1_被单击
.局部变量 a, 整数型

超级列表框1.全部删除 ()
超级列表框2.全部删除 ()
.计次循环首 (10, a)
    超级列表框1.插入表项 (a - 1, 到文本 (取随机数 (1, 999)), , , , )
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 b, 整数型
.局部变量 最大数, 文本型
.局部变量 最大数位置, 整数型

超级列表框2.全部删除 ()
.计次循环首 (超级列表框1.取表项数 (), b)
    .判断开始 (b = 1)
        最大数 = 超级列表框1.取标题 (0, )
        最大数位置 = b - 1
    .判断 (到数值 (超级列表框1.取标题 (b - 1, )) > 到整数 (最大数))
        最大数 = 超级列表框1.取标题 (b - 1, )
        最大数位置 = b - 1
    .默认

    .判断结束

.计次循环尾 ()
超级列表框2.插入表项 (, 最大数, , , , )
超级列表框1.获取焦点 ()
超级列表框1.选择表项 (最大数位置)