1000万以内的素数有多少个?

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 16:50:07
1000万以内的素数有多少个?

1000万以内的素数有多少个?
1000万以内的素数有多少个?

1000万以内的素数有多少个?
Private Sub Command1_Click()
n = 3
For i = 4 To 10000000
For j = 2 To Int(i ^ 0.5) + 1
If i Mod j = 0 Then Exit For
Next j
If j = Int(i ^ 0.5) + 2 Then n = n + 1:Text1.Text = n
Next i
End Sub
这个就是代码~
:)
VB编写的,消息里也发了一份