Folge 31: Rekursion

Option Explicit
Sub main()
    rekursiv 1
End Sub
Sub rekursiv(ByVal number As Integer)
    Debug.Print "Übergebene Zahl: " & number
    number = number + 1
    Debug.Print "Wert der Zahl nach Addition: " & number
    If number < 4 Then rekursiv number
    Debug.Print "Wert am Ende: " & number
End Sub
Sub doLoop()
    Dim number As Integer
    number = 1
    Do
        Debug.Print "Wert am Anfang: " & number
        number = number + 1
        Debug.Print "Wert nach Addition: " & number
    Loop While number < 4
End Sub