UC知道关于VB种判断质数 高手来啊 小弟等你
来源：百度知道 编辑：UC知道 时间：2024/07/05 03:14:03
Private Sub Command1_Click()
For n = 1000 To 3000
For i = 2 To Sqr(3000)
If n Mod i = 0 Then
Picture1.Print n
m = m + 1
If m Mod 10 = 0 Then Picture1.Print
Exit For
End If
Next i
Next n
我是想要在PICTURE BOX中显示出来 并且 10个换行
结果 显示出来的时候 都是竖着显示
而且并没有正确判断
这样：
1000
1001
1002
....
....
....
高手指教下是怎么回事
1003是质数还是和数哦 呵呵
For n = 1000 To 3000
For i = 2 To Sqr(3000)
If n Mod i = 0 Then
Picture1.Print n
m = m + 1
If m Mod 10 = 0 Then Picture1.Print
Exit For
End If
Next i
Next n
我是想要在PICTURE BOX中显示出来 并且 10个换行
结果 显示出来的时候 都是竖着显示
而且并没有正确判断
这样：
1000
1001
1002
....
....
....
高手指教下是怎么回事
1003是质数还是和数哦 呵呵
Picture1.Print n;
后面有个分号。
Private Sub Command1_Click()
Dim j, n As Integer
n = Val(Text1.Text)
For j = 2 To Int(Sqr(n))
leap = 1
If n Mod j = 0 Then
leap = 0
Exit For
End If
Next
If leap = 1 Then
Label1.Caption = "素数"
Else
Label1.Caption = "合数"
End If
End Sub
===============================
1个text
1个command
1个label
这个才是正确的