小白求解决一个超级列表框取值

吴彦祖wzy

求大神解决一个超级列表框取值问题

比如我超级列表框内有5条数据   第一条用10次后    第二条再用10次 用完后   第三条再用10次    5条都用完后    继续用第一条   

想写个循环取数据的  刚学不太懂

鹏书

  

子程序名	返回值类型	公开	备 注
子程序3	文本型

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型
结果	文本型

结果 ＝ 超级列表框1.取标题 (索引, 0)
i ＝ i ＋ 1
如果真 (i ＝ 10)
i ＝ 0
索引 ＝ 索引 ＋ 1
如果真 (索引 ＞ 4)
索引 ＝ 0

返回 (结果)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序3, 文本型<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 索引, 整数型, 静态<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 超级列表框1.取标题 (索引, 0)<br /> i ＝ i ＋ 1<br /> .如果真 (i ＝ 10)<br />     i ＝ 0<br />     索引 ＝ 索引 ＋ 1<br />     .如果真 (索引 ＞ 4)<br />         索引 ＝ 0<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (结果)

这个才对

补充内容 (2023-7-23 00:57):
静态记得要打勾

鹏书

  

子程序名	返回值类型	公开	备 注
子程序3	文本型

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型
结果	文本型

结果 ＝ 超级列表框1.取标题 (i, 0)
i ＝ i ＋ 1
如果真 (i ＝ 10)
索引 ＝ 索引 ＋ 1
如果真 (索引 ＞ 4)
索引 ＝ 0

返回 (结果)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序3, 文本型<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 索引, 整数型, 静态<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 超级列表框1.取标题 (i, 0)<br /> i ＝ i ＋ 1<br /> .如果真 (i ＝ 10)<br />     索引 ＝ 索引 ＋ 1<br />     .如果真 (索引 ＞ 4)<br />         索引 ＝ 0<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (结果)

鹏书

  

子程序名	返回值类型	公开	备 注
子程序3	文本型

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型
结果	文本型

结果 ＝ 超级列表框1.取标题 (索引, 0)
i ＝ i ＋ 1
如果真 (i ＝ 10)
索引 ＝ 索引 ＋ 1
如果真 (索引 ＞ 4)
索引 ＝ 0

返回 (结果)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序3, 文本型<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 索引, 整数型, 静态<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 超级列表框1.取标题 (索引, 0)<br /> i ＝ i ＋ 1<br /> .如果真 (i ＝ 10)<br />     索引 ＝ 索引 ＋ 1<br />     .如果真 (索引 ＞ 4)<br />         索引 ＝ 0<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (结果)