Question

How to find the 100001 prime number in VB.NET

Answer 1

Imports System

Public Class FindPrime
    Public Shared Sub Main(ByVal args As String())
        Dim count As Integer = 0
        Dim number As Integer = 1
        Dim target As Integer = 100001

        While count < target
            number += 1

            If IsPrime(number) Then
                count += 1
            End If
        End While

        Console.WriteLine("The 100,001st prime number is: " & number)
    End Sub

    Public Shared Function IsPrime(ByVal num As Integer) As Boolean
        If num < 2 Then Return False

        For i As Integer = 2 To Math.Sqrt(num)

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

        Return True
    End Function
End Class



' run:
'
' The 100,001st prime number is: 1299721
'

 

70+ SQL courses for beginners and professionals