| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 编号数组1 | 文本型 | | 0 |
| II | 整数型 | | |
| nn | 整数型 | | |
| kk | 整数型 | | |
| a | 整数型 | | |
| 计次数组 | 整数型 | | 0 |
| 姓名数组 | 文本型 | | 0 |
| 金额数组 | 双精度小数型 | | 0 |
| 编号数组 | 文本型 | | 0 |
| mm | 整数型 | | |
| 金额 | 双精度小数型 | | |
| sy | 整数型 | | |
| 只加一次 | 逻辑型 | | |
计次循环首 (超级列表框1.
取表项数 (), II
)
加入成员 (编号数组1, 超级列表框1.
取标题 (II, 2
))
计次循环尾 ()计次循环首 (10, kk
)a ＝
数组_取次数 (编号数组1,
“00” ＋
到文本 (kk
))
如果真 (a ＞ 0
)金额 ＝ 0
加入成员 (计次数组, a
)加入成员 (编号数组,
“00” ＋
到文本 (kk
))
超级列表框1.现行选中项 ＝ -1
计次循环首 (超级列表框1.
取表项数 (), mm
)超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 ＋ 1
只加一次 ＝ 真
如果真 (超级列表框1.
取标题 (超级列表框1.现行选中项, 2
) ＝
“00” ＋
到文本 (kk
))
计次循环首 (取数组成员数 (姓名数组
), nn
)如果 (姓名数组
[nn
] ＝ 超级列表框1.
取标题 (超级列表框1.现行选中项, 1
))
只加一次 ＝ 假
只加一次 ＝ 真
计次循环尾 ()如果真 (只加一次 ＝
真)加入成员 (姓名数组, 超级列表框1.
取标题 (超级列表框1.现行选中项, 1
))
金额 ＝ 金额 ＋ 到数值 (超级列表框1.取标题 (超级列表框1.现行选中项, 3))调试输出 (金额
)
计次循环尾 ()加入成员 (金额数组, 金额
)sy ＝ 超级列表框2.
插入表项 (, , , , ,
)超级列表框2.
置标题 (sy, 4,
到文本 (计次数组
[超级列表框2.
取表项数 ()]))
超级列表框2.
置标题 (sy, 0,
到文本 (超级列表框2.
取表项数 ())
)超级列表框2.
置标题 (sy, 1, 姓名数组
[超级列表框2.
取表项数 ()])超级列表框2.
置标题 (sy, 2, 编号数组
[超级列表框2.
取表项数 ()])超级列表框2.
置标题 (sy, 3,
到文本 (金额数组
[超级列表框2.
取表项数 ()]))
计次循环尾 ()_超级列表框2_表头被单击 (4
)判断 (被单击列索引 ＝ 4
)排 (超级列表框2, 被单击列索引, 3
)排 (超级列表框2, 被单击列索引, 3
)
计次循环首 (超级列表框2.
取表项数 () － 3, i
)超级列表框2.
删除表项 (超级列表框2.
取表项数 () － 1
)计次循环尾 ()i ＝ 1计次循环首 (超级列表框2.
取表项数 (), i
)超级列表框2.
置标题 (超级列表框2.
取表项数 () － i, 0,
到文本 (超级列表框2.
取表项数 () － i ＋ 1
))
计次循环尾 ()
