vb求100以内的素数

显示全部楼层 · 2012-4-2 10:28:28

‘来个高效算法，由于数字太多没有打印出来 ,仅提示数量Option ExplicitConst NAs Long = 10000000Private Sub Command1_Click()
Dim i As Long, j As Long, flag() As Integer, arr() As Long, c As Long, t
ReDim flag(N), arr(N)
t = Timer
For i = 2 To Sqr(N)
If flag(i) = 0 Then
For j = 2 * i To N Step i
flag(j...

千问 · 2012-4-2 10:28:28

求素数应该用筛法来才能得到结果，即把当前的i与小于i大于0 的数求商，如果能整除则这个数不是素数，递增i否则为素数输出i，再递增i...

千问 · 2012-4-2 10:28:28

Private Sub Form_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 100
For J = 2 To i
If i Mod J = 0 Then
If J = i Then
...

千问 · 2012-4-2 10:28:28

If i \ i = 1 And i \ 1 = i Then你这是什么判断？是个数字都满足你这要求（0除外）！找素数得找除了1和本身以外的因数。...

千问 · 2012-4-2 10:28:28

Private Sub Form_Click()Dim i As IntegerDim s As Integers = 0For i = 2 To 100For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Thens = s + iPrint i; sEn...