1到1,000,000里有多少素数?

2025-04-24 00:34:54

推荐回答（1个）

回答1：

这个问题用VB不好解决!因为1到1000000之间的数值太大了
如果用VB编写,一运行程序,程序就停止响应了.

先说一下素数的概念:所谓素数是指,一个自然数N除了能被1和自身所整除外,不被其他任何数整除.

下面以1到1000的自然数中有多少个素数为例
Private Sub Command1_Click()
Dim N, I, J, T, P As Long
N = 0
T = 1000
For I = 1 To 1000
J = 2 \'从2开始试除
Do While J <= I - 1
If I Mod J = 0 Then \'说明I不是素数
N = N + 1 \'不是素数的个数
Exit Do
Else
J = J + 1
End If
Loop
Next I
P = T - N
Print P
End Sub