Function LONGFIBO(n&) 'Renvoie le vecteur ligne ((F(n), F(n-1))
Dim f, g$, h$
If n = 0 Then
LONGFIBO = Array("0", "1")
Else
f = LONGFIBO(n \ 2)
g = LONGPRODUIT(CStr(f(0)), CStr(f(0)))
h = LONGPRODUIT(CStr(f(1)), CStr(f(0)))
If n Mod 2 = 0 Then
LONGFIBO = Array(LONGUESOMME(LONGUESOMME(h, h), g), _
LONGUESOMME(LONGPRODUIT(CStr(f(1)), CStr(f(1))), g))
Else
LONGFIBO = Array(LONGUESOMME(LONGPRODUIT(CStr(f(1)), LONGUESOMME(LONGUESOMME(CStr(f(0)), CStr(f(0))), CStr(f(1)))), LONGUESOMME(g, g)), _
LONGUESOMME(LONGUESOMME(h, h), g))
End If
End If
End Function