Pages

jueves, 17 de enero de 2013

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

2 comentarios:

bianel dijo...

te doy no mil gracias si no 100,300,852 GRACIAS. ME SALVASTE gracias :)))))) :D :3

Anónimo dijo...

/\ Cien Millones Trecientos Mil Ochocientos Cincuenta y Dos (Gracias) por si les
/ \ dio flogera averiaguar que numero era xD
l
l

Publicar un comentario en la entrada