作业帮用vb判断输入1 to 1000是否为奇数,偶数,素数
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/07/18 06:34:56
用vb判断输入1 to 1000是否为奇数,偶数,素数
定义三个listbox
Option Explicit
Private Sub Form_Click()
Dim i As Long, j As Long
List1.AddItem ("奇数")
List2.AddItem ("偶数")
List3.AddItem ("素数")
For i = 1 To 1000
If i Mod 2 = 1 Then
List1.AddItem (i)
End If
If i Mod 2 = 0 Then
List2.AddItem (i)
End If
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
ElseIf j = i - 1 Then
List3.AddItem (i)
End If
Next j
Next i
End Sub
再问： 非常感谢，但是有个小问题，运行发现素数里“2”没在啊，2应该是最小的素数吧，还有就是不用列出来判断的结果，只要输入1 TO 1000中随意一个数字，判断显示为“奇数”，“偶数”，“素数”就OK了，麻烦了
Option Explicit
Private Sub Form_Click()
Dim i As Long, j As Long
List1.AddItem ("奇数")
List2.AddItem ("偶数")
List3.AddItem ("素数")
For i = 1 To 1000
If i Mod 2 = 1 Then
List1.AddItem (i)
End If
If i Mod 2 = 0 Then
List2.AddItem (i)
End If
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
ElseIf j = i - 1 Then
List3.AddItem (i)
End If
Next j
Next i
End Sub
再问： 非常感谢，但是有个小问题，运行发现素数里“2”没在啊，2应该是最小的素数吧，还有就是不用列出来判断的结果，只要输入1 TO 1000中随意一个数字，判断显示为“奇数”，“偶数”，“素数”就OK了，麻烦了
用vb判断输入1 to 1000是否为奇数,偶数,素数
怎么用matlab判断输入的正数是否为素数
c语言从键盘上输入一个数,判断是否为偶数,如果是偶数的话输出是偶数,如果是奇数输出是奇数!
输入一个大于2且不大于200的整数,判断该数是否为偶数,如果是偶数,将该偶数分解为两个素数之和.
VB实训 判断一个数是否为素数
VB编程:判断任意正整数N是否为素数
用VB编写一段代码,在1000之内随即产生一个数,并判断该数是否为素数
如何判断一个数是否为素数~用C语言写,输入数值,输出是否为素数~
写VB程序:用函数过程来判断一个数是否为素数
vb中从键盘上输入10个数,判断有几个偶数,有几个奇数?
判断奇数偶数的VB源码!
用VB 能否判断一个11位数是否为素数,即用VB能否设计出程序证明费马对于素数的猜想是错误的,QUICKBASIC