用vb判断输入1 to 1000是否为奇数,偶数,素数
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/08/18 03:48:52
用vb判断输入1 to 1000是否为奇数,偶数,素数
![用vb判断输入1 to 1000是否为奇数,偶数,素数](/uploads/image/z/6304409-17-9.jpg?t=%E7%94%A8vb%E5%88%A4%E6%96%AD%E8%BE%93%E5%85%A51+to+1000%E6%98%AF%E5%90%A6%E4%B8%BA%E5%A5%87%E6%95%B0%2C%E5%81%B6%E6%95%B0%2C%E7%B4%A0%E6%95%B0)
定义三个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