Question

How to find the max prime number 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}
        Dim max As Integer = arr(0)

        For i As Integer = 0 To arr.Length - 1
            If isPrime(arr(i)) Then ' 5 17 13
                 if (max < arr(i)) Then
                    max = arr(i)
                End If
            End If
        Next
        
        Console.WriteLine(max)
    End Sub
End Class



' run:
' 
' 17

 

70+ SQL courses for beginners and professionals