Generar los primeros 20 términos de la secuencia de Fibonacci en VB

Encuentre la secuencia de Fibonacci mediante recursividad y recursividad respectivamente:

Opción explícita

Opción base 1

Dim a() como entero, n como entero

Función privada f2(m como entero) como entero

Atenuar i como entero

Si m = 1 o m = 2 entonces

f2 = 1

De lo contrario

Si m > 2 entonces

Para i = 3 Para m

f2 = f2(i - 1 ) + f2(i - 2)