楼下那个不完善
.版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 n, 整数型, 静态
.局部变量 m, 整数型, 静态
.如果真 (n ≥ 超级列表框1.取列数 ())
n = 0
m = m + 1
.如果真 (m ≥ 超级列表框1.取表项数 ())
m = 0
n = 0
.如果真结束
.如果真结束
编辑框1.内容 = 超级列表框1.取标题 (m, n)
n = n + 1
.版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 行, 整数型, 静态
.局部变量 列, 整数型, 静态
.如果真 (列 > 1)
列 = 0
行 = 行 + 1
.如果真结束
编辑框1.内容 = 超级列表框1.取标题 (行, 列)
列 = 列 + 1