定义三个listboxOption ExplicitPrivate Sub Form_Click()Dim i As Long, j As LongList1.AddItem ("奇数")List2.AddItem ("偶数")List3.AddItem ("素数")For i = 1 To 1000If i Mo...非常感谢，但是有个小问题，运行发现素数里“2”没在啊，2应该是最小的素数吧，还有就是不用列出来判断的结果，只要输入1 TO 1000中随意一个数字，判断显示为“奇数”，“偶数”，“素数”就OK了，麻烦了