Why does my Loop end after 11 Loops?

[Kernelpanic]

@Dimster - Is there a reset back to zero for all Recursive calls as a normal use of Recursion . . .

Not that I know. The classic example of a recursion is the determination of the Fibonacci number.

As to the result: In Wikipedia (German), the zero is not taken into account. On the other hand, I orientated myself on the Matheduden.

Code: (Select All)

$Console:Only

Option _Explicit

Declare Function Fibonacci(eingabe As Integer) As _Integer64

Dim As Integer eingabe

Locate 2, 3
Print "Rekursive Berechnung der Fibonaccizahl"

Locate 4, 3
Input "Ihre Eingabe: ", eingabe

Locate 6, 3
Print Using "Die Fibonaccizahl von ### ist: #######"; eingabe, Fibonacci(eingabe)

'Fuer -Press Any Key-
Locate 10, 1

End


Function Fibonacci (eingabe As Integer)

  Dim fibonaccizahl As _Integer64

  If eingabe = 0 Or eingabe = 1 Then
    Fibonacci = 1
  Else
    fibonaccizahl = Fibonacci(eingabe - 1) + Fibonacci(eingabe - 2)
    Fibonacci = fibonaccizahl
  End If

End Function