|
12楼
发表于 2013-12-17 10:06:45
|
只看该作者
广东省东莞市
自己测试一下吧!
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 q, 整数型
q = 取启动时间 ()
超级列表框1.禁止重画 ()
.计次循环首 (20000, i)
超级列表框1.插入表项 (, 到文本 (i), , , , )
' 处理事件 ()
.计次循环尾 ()
超级列表框1.允许重画 ()
信息框 (“加入数据使用时间:” + 到文本 ((取启动时间 () - q) ÷ 1000) + “秒”, 0, )
.子程序 _按钮2_被单击
.局部变量 i, 整数型
.局部变量 b, 文本型
.局部变量 q, 整数型
q = 取启动时间 ()
超级列表框1.禁止重画 ()
.计次循环首 (超级列表框1.取表项数 (), i)
b = 超级列表框1.取标题 (i - 1, 0)
.如果真 (到数值 (b) % 2 ≠ 0)
超级列表框1.删除表项 (i - 1)
.如果真结束
' 处理事件 ()
.计次循环尾 ()
超级列表框1.允许重画 ()
信息框 (“加入数据使用时间:” + 到文本 ((取启动时间 () - q) ÷ 1000) + “秒”, 0, )
[/e] |
|