一款好用简单的投票系统

各行文本数组 ＝ 分割文本 (编辑框2.内容, #换行符, )
调试输出 (各行文本数组)
.计次循环首 (取数组成员数 (各行文本数组), )
调试输出 (各行文本数组)
每行的名字与票数 ＝ 分割文本 (各行文本数组 [1], “,”, ) ' ++++++++++++++
要找的票数 ＝ 到数值 (每行的名字与票数 [2])
要找的位置 ＝ 1
.计次循环首 (取数组成员数 (各行文本数组), n1)
每行的名字与票数 ＝ 分割文本 (各行文本数组 [n1], “,”, ) ' ++++++++++++++
.如果 (要找的票数 ＜ 到数值 (每行的名字与票数 [2]) ≠ 真升假降)
要找的票数 ＝ 到数值 (每行的名字与票数 [2])
要找的位置 ＝ n1
.否则

.如果结束

.计次循环尾 ()
列表框1.加入项目 (各行文本数组 [要找的位置], )
删除成员 (各行文本数组, 要找的位置, )
.计次循环尾 ()