Índice

Solución 4.9 Comprobar si un número es primo

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 
     ...