|
发表于 2012-8-22 14:24:40
|
显示全部楼层
浙江省温州市
流星雨 发表于 2012-8-22 13:22 
有没有源码,联系我的QQ457711512 - .版本 2
- .支持库 iext
- .程序集 窗口程序集1
- .程序集变量 a, 整数型
- .子程序 __启动窗口_创建完毕
- .局部变量 i, 整数型
- 置随机数种子 ()
- .计次循环首 (50, i)
- 超级列表框1.插入表项 (, 到文本 (i), , , , )
- 超级列表框1.置标题 (i - 1, 1, 到文本 (取随机数 (10000000, 99999999)))
- .计次循环尾 ()
- .计次循环首 (7, i)
- 超级列表框2.插入表项 (, 到文本 (i), , , , )
- .计次循环尾 ()
- .子程序 _按钮1_被单击
- .局部变量 提交地址, 文本型
- .局部变量 提交数据, 文本型
- .局部变量 i, 整数型
- .局部变量 j, 整数型
- .计次循环首 (超级列表框2.取表项数 (), i)
- j = a × 超级列表框2.取表项数 () + i
- 超级列表框2.置标题 (i - 1, 1, 超级列表框1.取标题 (j - 1, 0))
- 超级列表框1.获取焦点 ()
- 超级列表框1.保证显示 (j - 1)
- 超级列表框1.选择表项 (j - 1)
- .计次循环尾 ()
- a = a + 1
复制代码 |
|