Serie de Fibonacci en Visual Basic 6

Muchos me habéis  pedido el código de la serie de Fibonacci para Visual Basic 6. Pues aquí lo tenéis. Este código genera los primeros 12 números de la serie (si quereis mas o menos números hay que modificar la variable intTotalNumeros y la tabla fibonacci para que tenga el mismo tamaño).

  Dim intTotalNumeros As Integer
  intTotalNumeros = 12
  Dim fibonacci(12) As Long
  Dim i As Integer
  fibonacci(1) = 1
  fibonacci(2) = 1
  For i = 3 To intTotalNumeros
    fibonacci(i) = fibonacci(i - 1) + fibonacci(i - 2)
  Next i
            
  For i = 1 To intTotalNumeros
    Print fibonacci(i) 
  Next i


Si necesitais el código para generar la serie de Fibonacci en otros lenguajes de programación podéis pasaros por esta entrada del blog: La serie de Fibonacci en varios lenguajes de programación