Question

How to find the sum of all the primes below two million in VB.NET

Answer 1

Imports System

Public Class Program
    Friend Shared Function isPrime(ByVal n As Integer) As Boolean
        If n < 2 OrElse (n Mod 2 = 0 AndAlso n <> 2) Then
            Return False
        End If

        Dim count As Integer = CInt(Math.Floor(Math.Sqrt(n)))

        For i As Integer = 3 To count Step 2

            If n Mod i = 0 Then
                Return False
            End If
        Next

        Return True
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim num As Long = 2000000, sum As Long = 0

        For i As Integer = 2 To num - 1

            If isPrime(i) Then
                sum += i
            End If
        Next

        Console.WriteLine("sum = " & sum)
    End Sub
End Class




' run:
'
' sum = 142913828922
'
 

 

70+ SQL courses for beginners and professionals