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)