ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

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

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

 

VB.NET2002対応 VB.NET2003対応 VB2005対応

'■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

 

使用例

VB.NET2002対応 VB.NET2003対応 VB2005対応

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

 


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