用vb判断输入1 to 1000是否为奇数,偶数,素数

问题描述:

用vb判断输入1 to 1000是否为奇数,偶数,素数

定义三个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了,麻烦了