Leren programmeren: fibonacci

In dit programma berekenen we de opeenvolgende getallen in de rij van Fibonacci, waarbij elk getal de som is van de twee voorgaande. We starten met nul en een, en we voorzien een knop om te starten en een label om de berekende waarden te tonen.

Private Sub cmdStart_Click()
Dim fibo1 As Integer
Dim fibo2 As Integer
Dim fibo3 As Integer
Dim teller As Integer
fibo1 = 0
fibo2 = 1
lblUitvoer.Caption = "Getal 1: " & fibo1 & vbCrLf
lblUitvoer.Caption = lblUitvoer.Caption & "Getal 2: " & fibo2 & vbCrLf
For teller = 3 To 20
fibo3 = fibo1 + fibo2
fibo1 = fibo2
fibo2 = fibo3
lblUitvoer.Caption = lblUitvoer.Caption & "Getal " & teller & ": " & fibo3 & vbCrLf
Next teller
End Sub