Sapere se un Numero è Primo o no

Questa funzione indica se un numero è Primo o meno.
Rrestituisce i seguenti valori:
 1 il numero è primo
 0 il numero non è primo
-1 il numero è negativo

'*********************************************
'num = numero da controllare
'*********************************************

Function Primo(num As Double) As Integer
Dim indice As Integer
If num < 0 Then
    Primo = -1
    Exit Function
End If
If num = 1 Or num = 2 Then
    Primo = 1
Else
    For indice = 2 To num - 1
        If num Mod indice = 0 Then
            Primo = 0
            Exit Function
        End If
    Next indice
    Primo = 1
End If
End Function

Testato su: Tutti i Sistemi operativi