Savoir si un nombre est premier !!!

Télécharger le projet
Commenter

Description

Permet de verifier si un nombre est premier.

Source / Exemple : 


'*************************************************
'* NOM : IsNPremier
'* DATE : 31/07/2000
'*
'* AUTEUR : Legay Thomas (TomAmplius)
'*
'* DESCRIPTION :
'* Verifie si un nombre est premier
'*
'*************************************************
Option Explicit
Dim Nombre As Long
Dim Temp_1 As Long

Private Function IsNpremier(ByRef Nombre As Long) As Boolean
If Nombre Mod 2 = 0 And Nombre <> 2 Then GoTo Non
'ajouter la ligne ci-dessous dans le cas ou les nombres traités sont grands
'(if right(str(Nombre) = "0" or right(str(Nombre) = "5" )and Nombre <> 5 then goto non:

For Temp_1 = 3 To Sqr(Nombre) Step 2
  If Nombre Mod Temp_1 = 0 Then GoTo Non
Next Temp_1
IsNpremier = True
Exit Function

Non:
IsNpremier = False
End Function
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TomAmplius)