.版本 2 .支持库 EDataStructure .支持库 iext .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 txtc, 文本型, , "0" .局部变量 b, 节点 .局部变量 n, 整数型 .局部变量 c, 整数型 .局部变量 k, 整数型 .局部变量 txt, 文本型 .计次循环首 (超级列表框2.取表项数 (), n) txt ＝ 超级列表框2.取标题 (n － 1, 1) .如果真 (b.加入属性 (txt, 1) ＝ 假) b.取数值 (txt, c) b.修改属性 (txt, c ＋ 1) .如果真结束 .计次循环尾 () b.取全部属性名 (txtc) 超级列表框1.表项 ＝ { } .计次循环首 (取数组成员数 (txtc), n) k ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (k, 0, 到文本 (n)) 超级列表框1.置标题 (k, 1, txtc [n]) b.取数值 (txtc [n], c) 超级列表框1.置标题 (k, 2, 到文本 (c)) .计次循环尾 () .子程序 __启动窗口_创建完毕 _按钮初始化_被单击 () .子程序 _按钮初始化_被单击 .局部变量 n, 整数型 .局部变量 txtc, 文本型, , "0" .局部变量 k, 整数型 置随机数种子 () 超级列表框2.表项 ＝ { } txtc ＝ { “L1”, “L2”, “L3”, “L4”, “L5” } .计次循环首 (取随机数 (1, 20), n) k ＝ 超级列表框2.插入表项 (, , , , , ) 超级列表框2.置标题 (k, 0, 到文本 (n)) 超级列表框2.置标题 (k, 1, txtc [取随机数 (1, 取数组成员数 (txtc))]) .计次循环尾 ()