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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.