Question

How to find of all the prime numbers in an array with VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Function isPrime(n As Integer) As Boolean
        If (n = 0) Then Return False
        If (n = 1) Then Return False
        For i As Integer = 2 To CInt(Math.Sqrt(n))
            If (n Mod i = 0) Then Return False
        Next
 
        Return True
    End Function
    
    Public Shared Sub Main()
        Dim arr() As Integer = {4, 8, 5, 17, 9, 22, 21, 13, 18, 99}

        For i As Integer = 0 To arr.Length - 1
            If isPrime(arr(i)) Then
                Console.WriteLine(arr(i))
            End If
        Next
    End Sub
End Class



' run:
' 
' 5
' 17
' 13

 

70+ SQL courses for beginners and professionals