VB 数値が素数であるか判定する

数値が素数であるか判定する

以下の関数IsPrimeを使用すると、数値が素数であるか判定できる。

'■IsPrime
''' <summary>数値が素数であるか判定します。</summary>
''' <param name="Number">対象の数値を指定します。</param>
''' <returns>Numberが素数である場合Trueを返します。</returns>
Public Shared Function IsPrime(ByVal Number As Long) As Boolean

Dim K As Long

    If Number < 2 Then
        Return False
    End If

    For K = 2 To CLng(Math.Sqrt(Number))
        If Number Mod K = 0 Then
            Return False
        End If
    Next K

Return True

End Function

使用例

If IsPrime(127) Then
MsgBox("127は素数です。")
Else
MsgBox("127は素数ではありません。")
End If

　→VB6 数値が素数か調べる参照