Vous vous souvenez de la célèbre suite de nombre du mathématicien italien Leonardo Pisano (1170 à 1250) pour calculer à l'origine la croissance de la population de lapin. Selon le spirale suivant:

Voici un programme permettant de calculer le Fibonacci de nombre entier en LotusScript:

Function Fibonacci(Byval n As Integer) As Integer      Dim w As Integer      Dim u As Integer       Dim v As Integer       If n <= 0 Then Fibonacci = 0:Exit Function      If n = 1 Then Fibonacci = 1:Exit Function      u  = 0      v  = 1      Dim i As Integer      For i = 2 To n           w = u + v           u = v           v = w      Next      Fibonacci = v End Function Sub Main()      Dim i As Integer      For i = 0 To 10           Print "Fibonacci(" &Str$(i) &")=" &Str$(Fibonacci(i))      Next End Sub

on obtiendra le résultat suivant:

Fibonacci(0)=0 Fibonacci(1)=1 Fibonacci(2)=1 Fibonacci(3)=2 Fibonacci(4)=3 Fibonacci(5)=5 Fibonacci(6)=8 Fibonacci(7)=13 Fibonacci(8)=21 Fibonacci(9)=34 Fibonacci(10)=55