Private Sub Form_Click()
Dim n As Integer, k As Integer, i As Integer, swit As Integer
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
'**********FOUND**********
swit = 0
'**********FOUND**********
While i <= k
If n Mod i = 0 Then
swit = 1
i = k + 1
Else
'**********FOUND**********
i = i + 1
End If
Wend
If swit = 0 Then
Print n;
End If
Next n
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024