Como calcular e exibir os 50 primeiros números primos em VB.NET - Desafio de Programação Resolvido em VB.NET

50 primeiros números primos:

     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   101   103   107   109   113
   127   131   137   139   149   151   157   163   167   173
   179   181   191   193   197   199   211   223   227   229

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    Dim quantidade As Integer = 50 ' quantidade de números primos
    Dim contador As Integer = 0 ' quantidade de números primos encontrados
    Dim numero As Integer = 0 ' inteiro inicial             

    ' Lembre-se! O número 1 não é primo
    Console.WriteLine(quantidade & " primeiros numeros primos:" & vbCrLf)

    ' laço while será executado até encontrar os 50 primeiros números primos 
    While contador < quantidade
      Dim primo As Boolean = True

      ' se o valor de i for 7, a variável j do laço contará
      ' de 2 até 7 / 2 (divisão inteira), ou seja, 3. Se o 
      ' módulo de 7 por qualquer um dos valores neste intervalo 
      ' for igual a 0, então o número não é primo
      For j As Integer = 2 To (numero / 2)
        If numero Mod j = 0 Then
          primo = False ' não é primo
          Exit For
        End If
      Next

      If (primo) And (numero > 1) Then
        Console.Write(numero.ToString().PadLeft(5) + "  ")
        contador = contador + 1 ' encontramos um número primo

        If contador Mod 10 = 0 Then
          Console.WriteLine()
        End If
      End If

        numero = numero + 1
     End While

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module