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