Código de la función:
Function DeterminarNumeroPrimo(lngNum As Long) As Boolean Dim lngDivisor As Long If lngNum < 4 Then DeterminarNumeroPrimo = True Else If lngNum Mod 2 = 0 Then DeterminarNumeroPrimo = False Else lngDivisor = 3 Do While (lngDivisor ˆ 2 <= lngNum) _ And (lngNum Mod lngDivisor > 0) lngDivisor = lngDivisor + 2 ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online