Module Rekursiv
 
  Sub Main()
    Dim uhr As New Stopwatch
    Console.WriteLine("Berechnung läuft...")
    uhr.Start()
    Dim erg = Reku1(42, 42)
    uhr.Stop()
    Console.WriteLine("Ergebnis: {0:n0}  Zeit: {1}", erg, uhr.Elapsed)
    Console.ReadLine()
    '=================================================
    'Ausgabe mit Reku1(26, 26):
    '--------------------------
    'Berechnung läuft...
    'Ergebnis: 5.632.870.627  Zeit: 00:00:30.2627623
  End Sub
 
  Private Function Reku1(a As Integer, b As Integer) As Long
    Return If(a < 1 OrElse b < 1, 1, Reku1(a - 1, b) + Reku2(b - 2, a - 1))
  End Function
 
  Private Function Reku2(a As Integer, b As Integer) As Long
    Return If(a < 1 OrElse b < 1, 1, Reku1(b, a - 1) + Reku2(a, b - 1))
  End Function
 
End Module