关于一段求100以内的素数的代码

Question

本帖最后由 bcrun 于 2012-07-12 12:34:03 编辑

Answer 1

你忘了每一轮b循环都应该重置一次a = TruePrivate Sub Form_Click()
    Dim a As Boolean
    Dim b, c
    For b = 3 To 99 Step 2
        a = True
        For c = 2 To b - 1
            If (b Mod c) = 0 Then a = False
        Next c
        If a = True Then Print b
    Next b
End Sub

Answer 2

http://download.csdn.net/detail/veron_04/1627064

Answer 3

本帖最后由 bcrun 于 2012-07-20 10:32:03 编辑

  

Answer 4

谢谢各位了！原来是a=true那条语句放错地方了！太水了我，呵呵