Numeros primos

Desarrollo de un Windows form donde calculamos los números primos.

Controles a usar:

Controles	Nombre de los controles
2 labels	Lbl1, lbl2
1 TextBox	txtnro
2 buttons	Btncal, btn2

  

El programa fncionaria  asì:

Ingresamos cualquier numero que queramos en el textbox, le damos clic en calcular  y en la parte de abajo nos a parece si es primo o no, podemos cerrar el programa con el btn cerrar.

Còdigo fuente del programa

Private Sub btncal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncal.Click

        Dim cont, interruptor, nro As Integer

        nro = txtnro.Text

        cont = 2

        Do While cont <= nro / 2

            If nro Mod cont = 0 Then

                interruptor = 1

            End If

            cont = cont + 1

        Loop

        If interruptor = 1 Then

            Me.lbl2.Text = "-- El " & nro & " : No es Primo"

        Else

            Me.lbl2.Text = "--El numero" & nro & " : es primo"

        End If

        Me.txtnro.Text = "" : Me.txtnro.Focus()

    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

        End

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.btncal.Focus()

    End Sub

End Class

Posted in: