J ai un BUG!!!(Bogue pour les maniaques de la francophonie)

Question

Bonjour, je vais essayer de m exprimer simplement.
Private Function PGCD(E As Double, nbr As Double)  
'Plus grand commun diviseur
On Error Resume Next

Dim R#
Dim tmp#
Dim a#
Dim b#

    If E < nbr Then
        a = nbr
        b = E
    Else
        a = E
        b = nbr
    End If

    While b > 0
        R = a Mod b
        a = b
        b = R
    Wend
PGCD = a
End Function

Donc voila.Je recois bien mes valeurs "E" et "nbr" dans ma fonction.Dans ma boucle while, j ai besoin de diviser le plus grand nombre par le plus petit.(d'ou mon test juste avant).
Mais quand E<nbr et que je rentre dans ma boucle while, 
j ai "a Mod b = 0" alors qu en debuggant, j ai bien des valeurs dans a et b mais rien dans R.
Je sais pas d ou ca vient ce bug...
Aidez moi! Merci

cs_EBArtSoft · Answer

Bonjour, tu trouveras plusieurs exemples/solutions sur ce site dans les rubriques "math" ou "module". Ou depuis le moteur de recherche avec les mots clef "math, pgcd". Si malgres cela tu ne trouves pas de reponse et si ta question est toujours d'actualité, tu peux lancer une nouvelle discussion sur le forum.

Bonne pr@g

J ai un BUG!!!(Bogue pour les maniaques de la francophonie)

1 réponse

Discussions similaires