vb.net - チェックイフプライムの使い方

Question

コードでアイテムを使用する必要がありますCheckIfPrimeが、問題が発生した場合、どのように対処すればよいですか? 申告は必要ですか？

For number As Integer = 1 To 30
    If CheckIfPrime(number) = True Then
        sb.Append(number.ToString & " ")
    End If
Next

Visual Basic でそれを行う方法についてアドバイスをお願いします。

Answer 1

にはメソッドVB.netがないため、タスクでこれを処理するには、素数であるかCheckIfPrimeどうかをチェックするメソッドを作成する必要があります。

   Public Function CheckIfPrime(number As Integer) As Boolean
        For i As Integer = 2 To number - 1
            If number Mod i = 0 Then
                Return False
            End If
        Next
        Return True
    End Function

使用法

   For number As Integer = 1 To 30
      If CheckIfPrime(number) = True Then
       'Console.WriteLine(number.ToString & " ")
       sb.Append(number.ToString & " ")
      End If
   Next

Source