Private Sub Form_click()
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
swit = 0
While i <= k And swit = 0
If n Mod i = 0 Then
i=i+1
Else
print n
swit = 1
End If
Wend
Next n
End Sub
这个程序为什么打印不出100与300之间的素数
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
swit = 0
While i <= k And swit = 0
If n Mod i = 0 Then
i=i+1
Else
print n
swit = 1
End If
Wend
Next n
End Sub
这个程序为什么打印不出100与300之间的素数
Dim i As Integer, j As Integer
For i = 101 To 300 Step 2
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next
If j > Sqr(i) Then Print i
Next
End Sub
Private Sub Command1_Click()
Dim n As Long
Dim k As Long, i As Long, swit As Long
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
swit = 0
While i <= k And swit = 0
If n Mod i = 0 Then
swit = 1
End If
i = i + 1
Wend
If swit = 0 Then
Print n
End If
Next n
End Sub
While i <= k And swit = 0
If n Mod i = 0 Then
i = i + 1
Else
Print n
swit = 1
End If
Wend
当n不能被i整除时就会打印出来,而i是2到sqr(n)的数当然会全部打印