Determinar si un número es primo Codigo Fuente en Visual Basic

Problema
Diseñar un algoritmo que me permita ingresar cualquier número y determinar si el número ingresado es primo.

Solución

• Entrada: 19

• Salida:   Si es número primo

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 a As Integer = 0
        Dim n As Integer
        n = TextBox1.Text
        For i As Integer = 1 To n + 1
            If (n Mod i = 0) Then
                a = a + 1
            End If
        Next i
        If (a <> 2) Then
            TextBox2.Text = "No es Primo"
        Else
            TextBox2.Text = "Si es Primo"
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic