.版本 2
.支持库 iext
.子程序 __启动窗口_创建完毕
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 z, 整数型
置随机数种子 ()
.计次循环首 (1000, y)
x = 取随机数 (1000, 9999)
z = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (z, 0, 到文本 (y))
超级列表框1.置标题 (z, 1, 到文本 (x))
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 s, 整数型
s = 到整数 (编辑框1.内容)
.如果真 (s < 0)
s = 0
.如果真结束
超级列表框1.保证显示 (s + 20)
超级列表框1.保证显示 (s - 1)