MEB

Option Explicit

Private Sub Command1_Click()
    Dim test(1 To 3) As Integer '// UN ARRAY CON 3 COLUMNAS

    test(1) = 1 '// LE DOY VALOR PARA QUE NO ME DE 0
    test(2) = 1

    Dim loopc As Long

    For loopc = 1 To 8 '// EJECUTO EL CÓDIGO DE ADENTRO 8 VECES
        test(3) = test(1) + test(2) '// EN EL TEST(3) GUARDO LA SUMA DE TEST(1) + TEST(2)
        test(1) = test(2) '// EN TEST(1) GUARDO EL TEST(2)
        test(2) = test(3) '// EN TEST(2) GUARDO TEST(3)
        List1.AddItem test(3)
    Next loopc

    '// EJEMPLO:

    'TEST(3) = 1 + 1 = 2
    'TEST(1) = TEST(2) = 1
    'TEST(2) = TEST(3) = 2

    '// SEGUNDA VUELTA

    'TEST(3) = 1 + 2 = 3
    'TEST(1) = TEST(2) = 2
    'TEST(2) = TEST(3) = 3

    '// TERCERA VUELTA

    'TEST(3) = 2 + 3 = 5
    'TEST(1) = TEST(2) = 3
    'TEST(2) = TEST(3) = 5

End Sub