Question

How to find the prime numbers between 1 to 100 in VB.NET

Answer 1

Imports System

Public Class Program
	Public 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()
        For n As Integer = 2 To 100

            If isPrime(n) Then
                Console.Write(n & " ")
            End If
        Next
    End Sub
End Class




' run:
'
'  2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
'

 

70+ SQL courses for beginners and professionals