Rekursion einfach erklärt Rekursion an Hand einer Kindergeschichte als VB Code einfach erklärt
Autor:   Andreas Mascheck	Bewertung:     [ Jetzt bewerten ]	Views:  17.253
www.extra-tours.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgender Code zeigt, wie man eine Funktion solange rekursiv aufruft, bis eine bestimmte Abbruchbedingung erreicht wurde.

Erstellen Sie ein neues Projekt, platzieren auf die Form eine TextBox (Text1), eine Schaltfäche (Command1) und eine MultiLine-TextBox (MeineTextBox).

Private Sub Command1_Click()
  MeineTextBox.Text = ""
  meineRekursion Val(Text1.Text)
End Sub

' Funktion wird rekursion aufgerufen, bis der Parameter
' "AnzSoehene" den Wert 0 erreicht
Private Sub meineRekursion(ByVal AnzSoehne As Integer)
  If AnzSoehne > 1 Then
    Me.MeineTextBox.Text = Me.MeineTextBox.Text & " ""Es war einmal ein Mann, der hatte " & _
      AnzSoehne & " Söhne und die Söhne riefen:" & vbCrLf & _
      """lieber Papa, bitte erzähle uns doch eine Geschichte"". Da fing der Papa an: " & _
      vbCrLf & vbCrLf
 
    ' Funktion mit Anz Söhne - 1 erneut aufrufen
    meineRekursion (AnzSoehne - 1)
 
  Else
    Me.MeineTextBox.Text = Me.MeineTextBox.Text & " ""Es war einmal ein Mann, der hatte " & _
      AnzSoehne & " Sohn und der Sohn rief:" & vbCrLf & _
      """lieber Papa, lass mich jetzt endlich schlafen " & vbCrLf
  End If
End Sub