Números primos o compuestos
Me podrías ayudar con una función que me diga si un numero es primo o compuesto
1 respuesta
Respuesta de jgirj
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
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
