Fibonacci en VBA (3méthodes)
Résolu
VBA_Newb
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
VBA_Newb Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
VBA_Newb Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
2 réponses
Bonjour
En fonction de ce que j'ai compris
En fonction de ce que j'ai compris
Function fibo_fn (n as long) as long dim fibo as long dim i as long dim j as long fibo = 0 : i = 1 for j = 1 to n fibo = fibo + i i = fibo - i next i fibo_fn = fibo end function Function fibo_while (n as long) as long dim fibo as long dim i as long dim j as long fibo = 0 : i = 1 : j = 0 While j< n fibo = fibo + i i = fibo - i j = j + 1 wend fibo_While = fibo end function Function fibo_do (n as long) as long dim fibo as long dim i as long dim j as long fibo = 0 : i = 1 : j = 0 Do fibo = fibo + i i = fibo - i j = j + 1 loop while j<n fibo_do = fibo end function