窗体上有一个文本框text1(内容为空)一个命令按钮Command1两个列表框list1和list2（内容都为空
窗体上有一个文本框text1(内容为空)一个命令按钮Command1两个列表框list1和list2（内容都为空）运行后在文本框中输入一个整数，单击按钮判断此数，如果为偶...
窗体上有一个文本框text1(内容为空)一个命令按钮Command1两个列表框list1和list2（内容都为空）运行后在文本框中输入一个整数，单击按钮判断此数，如果为偶数，则添加到list 1中否则添加到list2中。
Option Explicit
Private Sub Command1_Click（） 展开
Option Explicit
Private Sub Command1_Click（） 展开
1个回答
展开全部
If text1.text mod 2 = 1 then list2.additem text1.text else list1.additem text1.text
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
