Acabo de terminar este pequeño algoritmo para saber si un número es primo utilizado Visual Basic. Lo comparto con ustedes por si les es de utilidad.
Module Module1
Sub Main()
Dim N As Integer
Dim M As Integer
M = 2
Console.WriteLine(“Ingrese un número”)
N = Console.ReadLine()
While (N Mod M > 0)
M = M + 1
End While
If (N = M) Then
Console.WriteLine(“El número es primo”)
Else
Console.WriteLine(“El número es no primo”)
End If
Console.ReadKey
End Sub
End Module
Saludos, Renzo
Este es mejor, mas optimo
Module Module1
Sub Main()
Dim N, I, CONT_PRIMO As Integer
CONT_PRIMO = 0
Console.WriteLine("INGRESE NUMERO")
N = Console.ReadLine
For I = 1 To N Step 1
If N Mod I = 0 Then
CONT_PRIMO = CONT_PRIMO + 1
Else
CONT_PRIMO = CONT_PRIMO
End If
Next
If CONT_PRIMO = 2 Then
Console.WriteLine("ES PRIMO")
Else
Console.WriteLine("NO ES PRIMO")
End If
Console.ReadKey()
End Sub
End Module
Slds
yo quiero uno sencillo osea en lo basico!
Muy bueno tu aporte me sirvió muchísimo de verdad Agradecido