Números primos o compuestos

Me podrías ayudar con una función que me diga si un numero es primo o compuesto
1

1 respuesta

Respuesta
1
En un Módulo:
Public Function EsPrimo(ByVal Numero As Long) As String
EsPrimo = "Primo"
If Numero Mod 2 <> 0 Then
For I = 3 To Sqr(Numero) Step 2
If I <> Numero And Numero Mod I = 0 Then
EsPrimo = "Compuesto"
Exit For
End If
Next I
Else
For I = 2 To Sqr(Numero) Step 2
If I <> Numero And Numero Mod I = 0 Then
EsPrimo = "Compuesto"
Exit For
End If
Next I
End If
End Function
Ya lo ensaye y funciona

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas