Folge 31 – Rekursion

In diesem Video werde ich euch zeigen, wie Rekursion funktioniert.

Und an dieser Stelle der Code der im Makro vorhanden ist.

<pre class="wp-block-syntaxhighlighter-code">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</pre>
Code-Sprache: VB.NET (vbnet)

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert