|
发表于 2016-4-5 13:05:32
|
显示全部楼层
河北省保定市
- .版本 2
- .支持库 iext
- .子程序 _按钮1_被单击
- .局部变量 i, 整数型, , , 整个列表框数目
- .局部变量 a, 文本型, , "0", 变量
- .局部变量 b, 文本型, , "0"
- .局部变量 c, 文本型, , "0"
- .局部变量 列表, 整数型
- .局部变量 总数, 整数型, , , 没排除相同时的数目
- .局部变量 k, 整数型
- 总数 = 超级列表框1.取表项数 ()
- .计次循环首 (超级列表框1.取表项数 (), i)
- 加入成员 (a, 超级列表框1.取标题 (i - 1, 1))
- 加入成员 (b, 超级列表框1.取标题 (i - 1, 2))
- 加入成员 (c, 超级列表框1.取标题 (i - 1, 3))
- .计次循环尾 ()
- 超级列表框1.全部删除 ()
- .计次循环首 (取数组成员数 (a), i)
- .如果 (寻找文本 (c [i], “0G”, , 假) < 0)
- 列表 = 超级列表框1.插入表项 (, , , , , )
- 超级列表框1.置标题 (列表, 1, a [i])
- 超级列表框1.置标题 (列表, 2, b [i])
- 超级列表框1.置标题 (列表, 3, c [i])
- 超级列表框1.置标题 (列表, 0, 到文本 (超级列表框1.取表项数 ()))
- .否则
- k = k + 1
- .如果结束
- .计次循环尾 ()
- 信息框 (“已清空了” + 到文本 (k) + “个”, 0, , )
复制代码 |
|