1、算法說明

素數（質數）：就是一個大于等于2的整數，并且只能被1和本身整除，而不能被其他整數整除的數。

判別某數m是否是素數的經典算法是：

對于m，從I＝2，3，4，……，m－1依次判別能否被I整除，只要有一個能整除，m就不是素數，否則m是素數。

Private Function sushu(ByVal n As Long) As Boolean

    Dim i As Long

    For i = 2 To n - 1

    If (n Mod i) = 0 Then Exit For

Next I

If I=n then sushu=True

End Function

很顯然，實際上，我們可以改進上面

For i = 2 To n – 1

為：

For i = 2 To int（sqr（m））

這樣可以很好的提高效率。

以上判斷是否為素數的代碼務必識記！

應用舉例

求100－200之內素數。

Private Sub Command1_Click()

    Dim j As Integer

    For j = 100 To 200

        If sushu(j) = True Then

        Print j

        End If

    Next j

End Sub

解題技巧

識記判斷素數的算法過程，根據題意，靈活調用！

實例說明

編程題（2002年春上機試卷04）

         找出10000以內所有可以表示為兩個平方數和的素數。

思路：

首先找10000以內的所有素數，對于每個素數判斷其是否可以表示為兩個平方數之和（即對于任意小于該素數shu的數I，如果I和shu－I均為平方數，則說明其可以表示為兩個平方數之和。）

判斷數I是否為平方數的方法：sqr（i）=int(sqr(i))

Private Sub Command1_Click()

    Dim j As Integer

    Dim m As Long, n As Long

    For j = 2 To 10000

        If sushu(j) = True Then

            If pf(j, m, n) = True Then

                List1.AddItem j & "=" & m & "+" & n

            End If

        End If

    Next j

End Sub

Private Function pf(ByVal shu As Long, m As Long, n As Long) As Boolean

    Dim i As Long

    For i = 1 To shu - 1

        If (Sqr(i) = Int(Sqr(i))) And (Sqr(shu - i) = Int(Sqr(shu - i))) Then

            pf = True

            m = i

            n = shu - i

            Exit Function

        End If

    Next

End Function

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目