优化一下超级列表框中的代码！

光辉岁月SUI

我发的代码是我自己写的，代码多，特别是创建的变量也多  希望大佬可以优化一下！ 具体看图！
万位的出次统计是我自己写的  您可以写一个千位的！ 感谢！




23点09分.rar (987.04 KB, 下载次数: 18)

2020-12-25 23:09 上传

点击文件名下载附件

616

10.e (874.53 KB, 下载次数: 14)

2020-12-26 09:31 上传

点击文件名下载附件
先通过手动标记超级列表框组件

  

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

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (5, i)
插入 (i)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
插入			通过标记进行
参数名	类 型	参考	可空	数组	备 注
标记组件	整数型

变量名	类 型	静态	数组	备 注
计次	整数型
内容	文本型
索引	整数型
嵌套	整数型
数字	整数型
列表框	超级列表框
数量	整数型

列表框 ＝ 取标记组件 (标记组件)
列表框.全部删除 ()
计次循环首 (10, 计次)
内容 ＝ 到文本 (计次 － 1)
数字 ＝ 0
如果 (到整数 (编辑框2.内容) ≥ 超级列表框1.取表项数 ())
数量 ＝ 超级列表框1.取表项数 ()
数量 ＝ 到整数 (编辑框2.内容)
计次循环首 (数量, 嵌套)
如果真 (内容 ＝ 超级列表框1.取标题 (嵌套 － 1, 标记组件))
数字 ＝ 数字 ＋ 1

计次循环尾 ()
索引 ＝ 列表框.插入表项 (, , , , , )
列表框.置标题 (索引, 0, 到文本 (计次 － 1))
列表框.置标题 (索引, 1, 到文本 (数字))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (5, i)<br />     插入 (i)<br /> .计次循环尾 ()<br /> <br /> .子程序 插入, , , 通过标记进行<br /> .参数 标记组件, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 嵌套, 整数型<br /> .局部变量 数字, 整数型<br /> .局部变量 列表框, 超级列表框<br /> .局部变量 数量, 整数型<br /> <br /> 列表框 ＝ 取标记组件 (标记组件)<br /> 列表框.全部删除 ()<br /> .计次循环首 (10, 计次)<br />     内容 ＝ 到文本 (计次 － 1)<br />     数字 ＝ 0<br />     .如果 (到整数 (编辑框2.内容) ≥ 超级列表框1.取表项数 ())<br />         数量 ＝ 超级列表框1.取表项数 ()<br />     .否则<br />         数量 ＝ 到整数 (编辑框2.内容)<br />     .如果结束<br />     .计次循环首 (数量, 嵌套)<br />         .如果真 (内容 ＝ 超级列表框1.取标题 (嵌套 － 1, 标记组件))<br />             数字 ＝ 数字 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     索引 ＝ 列表框.插入表项 (, , , , , )<br />     列表框.置标题 (索引, 0, 到文本 (计次 － 1))<br />     列表框.置标题 (索引, 1, 到文本 (数字))<br /> .计次循环尾 ()

石榴熟了

waweiggfnh

1、把数组写到数组里
2、取重复值数量，代码如下：

3、把结果写入到编辑框，结果如下

ruyan666

费劲了不是 看我签名