[Resolvido] Função número primo

[xanburzum 169]

Aqui é uma função que vai dizer se um número passado para ele é um número primo ou não. Os números primos são freqüentemente usados em criptografia e em outros algoritmos matemáticos .

 

function NumPrimo(ByRef LongNumber)
   Dim LongSquare
   Dim LongIndex
   NumPrimo= False
   if LongNumber < 2 Then Exit function
   if LongNumber Mod 2 = 0 Then Exit function
   LongSquare = Sqr(LongNumber)
   For LongIndex = 3 To LongSquare Step 2
      if LongNumber Mod LongIndex = 0 Then Exit function
   Next
   NumPrimo= True
End function

Usando: MeuNumeroPrimo = NumPrimo(3)
Retorno: MeuNumeroPrimo = True