Calcular los n primeros números primos Codigo Fuente en Visual Basic

Problema
Calcular los n primeros números primos

Solución
Ingresamos un número decimal donde se indica la cantidad de números primos que se desea obtener

Ejemplo

• Entrada: 5

• Salida: 2 3 5 7 11

Codigo Fuente en Visual Basic

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Integer
        Dim n As Integer = 4
        Dim cont As Integer = 2
        Dim i As Integer
        Dim cad As String = ""

        num = TextBox1.Text
        If (num > 2) Then
            cad = "2 - 3"
            While (cont < num)
                i = 2
                While (i <= n)
                    If (i = n) Then
                        cad = cad + " - " + Trim(n)

                        cont = cont + 1
                    Else
                        If (n Mod i = 0) Then
                            i = n
                        End If

                    End If
                    i = i + 1
                End While
                n = n + 1
            End While
            TextBox2.Text = cad
        Else
            If (num > 0) Then
                If (num = 1) Then
                    TextBox2.Text = "es primo 2"
                Else
                    TextBox2.Text = "Es primo 2, 3"
                End If
            Else
                TextBox2.Text = "ingrese un numero positivo"
            End If
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic