Bueno, espero me puedan ayudar acerca de un algoritmo matematico para saber si un numero de entrada es primo o no?

Lo trate de hacer con funciones pero aun no me sale.
Soy novato en esto de la programacion y espero tengan tolerancia.
mi codigo es el siguiente:

Public Class Form1
Public num As Integer
Public contador As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Public num As Integer
num = Val(TextBox1.Text)

If Primo(num) > 2 Then
'If contador > 2 Then
MsgBox("no es primo")
Else
MsgBox("si es primo")
End If
End Sub
Function Primo(ByVal p As Integer) As Integer
'Dim contador As Integer
contador = 1
Dim i As Integer
'Dim nump As Integer
'Dim num As Integer

For i = 2 To (p / 2) Step 1 ' el ciclo for con incremento
'contador = contador + 1
'Exit For
If (i Mod p) = 0 Then
contador = contador + 1
'Return contador
'resultado = Primo(num)
End If
'Exit For
Next i
End Function
End Class



Ahh y en mi formulario solo tengo un textbox1, y un boton button1
Espero me puedan orientar y ayudar con mi codigo!!!
Hasta pronto

Hola,el titulo que pusiste es invalido segun las reglas del foro por eso lo corregi y posteaste una duda de vb net en el foro de visual basic clasico..aviso nomas.

sobre tu duda,probate este codigo:

Código:

Public Class Form1

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

 Function Primo(ByVal Numero As Integer) As Boolean
 Dim i As Integer
 Dim m As Boolean
 m = True
 For i = 2 To Numero - 1
 If Numero Mod i = 0 Then
 m = False
 Exit For
 End If
 Next

 If m Then
 Return True
 Else
 Return False
 End If
 End Function
End Class

saludos.

Gracias por todo, Seba123neo pero aun no se resuelva mi problema.
Al compilar el programa y ejecutarlo antes de que me deje meter un valor numerico; solo me manda un MsgBox con "True".
Y al presionar el boton ya no sale absolutamente nada.
Y creo que falta el codigo en el boton o no?
por que al introducir el codigo me deja en blanco la seccion del button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
End Class

Y no lo se pero me parece que desde esta seccion hay que hacer la llamada de la funcion.

No se si me di a antender, pero el programa espera un valor numerico desde el teclado, por medio de un textbox y ya de esto entra en accion la Funcion Primo, donde se supone debe de contar los numeros que son divisibles con este numero.

Si el contador de los divisores es igual a 2 entonces el numero Es Primo; y si el contador es mayor de 2 entonces No es Primo.

Haciendo alarde de su definicion: "Un numero es Primo si y solo si, este numero se divide entre si mismo y la unidad".

Saludos!!!!

pues como era tan facil adaptar ese codigo a lo que vos qeurias ni siquiera lo puse...si lo queres hacer con un textbox y un boton pues es lo mismo ,cambias solo el valor que le pasas a la funcion y listo...

Código:

Public Class Form1
 Function Primo(ByVal Numero As Integer) As Boolean
 Dim i As Integer
 Dim m As Boolean
 m = True
 For i = 2 To Numero - 1
 If Numero Mod i = 0 Then
 m = False
 Exit For
 End If
 Next

 If m Then
 Return True
 Else
 Return False
 End If
 End Function

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 If TextBox1.Text = "" Then Exit Sub
 If Primo(TextBox1.Text) = True Then MsgBox("El Numero " & TextBox1.Text & " es PRIMO")
 If Primo(TextBox1.Text) = False Then MsgBox("El Numero " & TextBox1.Text & " NO es PRIMO")
 End Sub
End Class

saludos.

Hola. Al codigo de Seba se le puede hacer unas pequeñas modificacion por si el numero es muy grande (ya que no es necesario verificar los pares, ni tampoco intentar dividir por los i > numero/3).

Public Class Form1
Function Primo(ByVal Numero As Long) As Boolean
Dim i As Long
Dim Hasta As Long
Dim m As Boolean
m = True
Hasta = Numero/3

For i = 3 To Hasta step 2
If Numero Mod i = 0 Then
m = False
Exit For
End If
Next

If m Then
Return True
Else
Return False
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then Exit Sub
if clng(TextBox1.Text) mod 2 =0 then MsgBox("El Numero " & TextBox1.Text & " No es PRIMO"): Exit Sub
If Primo(TextBox1.Text) = True Then MsgBox("El Numero " & TextBox1.Text & " es PRIMO")
If Primo(TextBox1.Text) = False Then MsgBox("El Numero " & TextBox1.Text & " NO es PRIMO")
End SubAunque me parece que la funcion "mod" no admite numeros Long. Si es así, habra que buscar otra estrategia para para determinar si la división por "i" es exacta.

saludos

Muchas Gracias a todos los del foro, los felicito por su actitud tan desinteresada y amigable para ayudar a los colegas!!!!

Muchas gracias!!!!

De verdad estoy muy agradecido por su ayuda, y que estos dos ejemplos sirven bastante en mi aprendizaje con esta area de la Programacion!!!

Saludos programadores.