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

   Private _RekuCache1(,) As Long
   Private _RekuCache2(,) As Long
 
   Sub Main()
      Dim uhr As New Stopwatch
      Console.WriteLine("Berechnung läuft...")
      Dim c = 21
      Dim a = c, b = c
      uhr.Start()
      Dim erg = Reku1(a, b)
      uhr.Stop()
      Console.WriteLine("Ergebnis: {0}  Zeit: {1}", erg, _
        uhr.ElapsedMilliseconds)
 
      ReDim _RekuCache1(a, b)
      ReDim _RekuCache2(a, b)
      uhr.Restart()
      erg = Rku1(a, b)
      uhr.Stop()
      Console.WriteLine("Ergebnis: {0}  Zeit: {1}", erg, _
        uhr.ElapsedMilliseconds)
 
      '=================================================
      'Ausgabe mit Reku1(26, 26):
      '--------------------------
      'Berechnung läuft...
      'Ergebnis: 5.632.870.627  Zeit: 00:00:30.2627623
   End Sub
 
   Private Function Rku1(a As Integer, b As Integer) As Long
      If a < 1 OrElse b < 1 Then Return 1
      If _RekuCache1(a, b) < 1 Then
         _RekuCache1(a, b) = If(a < 1 OrElse b < 1, 1, Rku1(a - 1, b) + Rku2(b _
           - 2, a - 1))
      End If
      Return _RekuCache1(a, b)
   End Function
 
   Private Function Rku2(a As Integer, b As Integer) As Long
      If a < 1 OrElse b < 1 Then Return 1
      If _RekuCache2(a, b) < 1 Then
         _RekuCache2(a, b) = If(a < 1 OrElse b < 1, 1, Rku1(b, a - 1) + Rku2(a, _
           b - 1))
      End If
      Return _RekuCache2(a, b)
   End Function

(Rechtschreibfehler urheberrechtlich geschützt)