乱打超级列表框内容和数据保存

取出超级列表框1的内容保存到数组
.计次循环首 (10, 计数)
加入成员 (数组, 超级列表框1.取标题 (计数 － 1, 0) ＋ “---” ＋ 超级列表框1.取标题 (计数 － 1, 1))
.计次循环尾 ()
调试输出 (数组)
' 打乱数组顺序保存到数组1
.计次循环首 (取数组成员数 (数组), )
容器 ＝ 取随机数 (1, 取数组成员数 (数组))
加入成员 (数组1, 数组 [容器])
删除成员 (数组, 容器, )
.计次循环尾 ()
调试输出 (数组1)
' 数组1写到超级列表框2中
.计次循环首 (取数组成员数 (数组1), 计数)
数组2 ＝ 分割文本 (数组1 [计数], “---”, )
调试输出 (数组2)
超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (计数 － 1, 0, 数组2 [1])
超级列表框2.置标题 (计数 － 1, 1, 数组2 [2])
.计次循环尾 ()