Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement