表紙へ

２．数値が素数か調べる

以下のIsSosu関数を使うと数値が素数がどうか判断できる。

この関数は数値が素数であるときTrue、そうでないときFalseを返す。

Public Function IsSosu(Number As Long) As Boolean

    Dim K As Long

    If Number < 2 Then Exit Function

    For K = 2 To CLng(Sqr(Number))

        If Number Mod K = 0 Then
            IsSosu = False
            Exit Function
        End If

    Next K

    IsSosu = True

End Function