Leren programmeren: pinguïns

Een pinguïnpopulatie groeit met 15% per jaar aan. Als je vertrekt van een populatie van 50 individuen, hoe lang duurt het voor de populatie 100 bereikt heeft?

Private Sub cmdStart_Click()
Dim populatie As Integer
Dim einde As Integer
Dim groei As Integer
Dim jaar As Integer
populatie = 50
groei = 15
einde = 1000
Do
populatie = Int(populatie * (1 + groei / 100))
jaar = jaar + 1
Loop Until populatie >= einde
MsgBox "Na " & jaar & " jaar heb je " & populatie & " pinguïns"
End Sub