Programa VB para diseñar suma de secuencia. El primer término de la secuencia es 0, el segundo término es 1 y todos los términos posteriores son la suma de los dos primeros términos. Escriba una función para encontrar el valor del enésimo elemento. es tiempo de examen
Private Sub Command1_Click()
'El primer término de la matriz es 0, el segundo término es 1. Todos los elementos posteriores son la suma de los dos primeros términos
Dim a() Como entero
n = Val(InputBox("Ingrese el número entero N"))
ReDim a(n )
i = 3
a(1) = 0
a(2) = 1
Hacer
a(i) = a(i - 1) a(i - 2)