Imports System
Public Module Module1
'Determine if an integer is prime
Function isPrime(num As Integer) As Boolean
Dim equalPrime As Boolean = True
If (num < 2) 'Less than 2
equalPrime = False
ElseIf (num mod 2) = 0 'Even/Positive Number
If num <> 2 'Even/Positive Number that is not 2
End If
Else 'Odd Number
For i As Integer = 3 To num-1 Step 2 'Skip even numbers
If (num mod i) = 0 'Odd Non Prime Number
Exit For
Next
Return equalPrime 'If all checks pass return default value of 'True'
End Function
'Print the first 100 prime numbers
Sub print100Primes()
Dim count As Integer = 1 'Counted 2 already
Dim primeToTry As Integer = 3
console.WriteLine(2) 'Print 2 first
While(count < 100)
If isPrime(primeToTry)
console.WriteLine(primeToTry)
count += 1
primeToTry += 2
End While
End Sub
Public Sub Main()
print100Primes()
End Module