超级列表框随机取一行，请各位老师给个例程，感谢

jottxi

请各位有空的老师，给个例程，谢谢

neige轩

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
选中数组	整数型		0
金额	文本型

计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
金额 ＝ 超级列表框1.取标题 (i － 1, 1)
如果真 (到整数 (金额) ≥ 50 且 到整数 (金额) ≤ 200)
加入成员 (选中数组, i － 1)


计次循环尾 ()
如果真 (取数组成员数 (选中数组) ≠ 0)
置随机数种子 ()
调试输出 (选中数组 [取随机数 (1, 取数组成员数 (选中数组))])

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 选中数组, 整数型, , "0"<br /> .局部变量 金额, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)<br />         金额 ＝ 超级列表框1.取标题 (i － 1, 1)<br />         .如果真 (到整数 (金额) ≥ 50 且 到整数 (金额) ≤ 200)<br />             加入成员 (选中数组, i － 1)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取数组成员数 (选中数组) ≠ 0)<br />     置随机数种子 ()<br />     调试输出 (选中数组 [取随机数 (1, 取数组成员数 (选中数组))])<br /> .如果真结束