Question

How to sum 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}
        Dim sum As Integer = 0

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



' run:
' 
' 35

 

70+ SQL courses for beginners and professionals