Escrito por Maq77
Ver mensaje
Código:
Module Funciones ' Función para determinar si un número es o no primo Public Function Primo(ByVal pN As Long) As Boolean Dim i As ULong Primo = True ' Modificacion ' ********************************************************** If ((pN = 1) Or ((pN / 2) = Int(pN / 2))) And (pN <> 2) Then ' ****************************************************** Primo = False Else For i = 3 To Math.Sqrt(pN) Step 2 If (pN / i) = Int(pN / i) Then Primo = False i = pN End If Next End If End Function End Module
Saludos.
Dejar un comentario: