Programación en Vb de la secuencia de Fibonacci

Dim fbn(19) as an integer' define la matriz de variables de secuencia de Fibonacci, ***20.

Fbn(0) = 1 'Da los dos primeros valores.

fbn(1) = 1

Para i = 2 a 19

fbn(i) = fbn(i - 2) fbn(i - 1)

Siguiente I

Imprimir fbn(19)

Suma = fbn(19)