窗体上有一个文本框text1(内容为空)一个命令按钮Command1两个列表框list1和list2（内容都为空

If text1.text mod 2 = 1 then list2.additem text1.text else list1.additem text1.text