(VB) Programación para encontrar el número de términos en la secuencia de Fibonacci cuyo valor no sea mayor que 1000 y generar el valor de cada término. La interfaz de referencia se muestra en la Figura 5-5.

Privado?Sub?Command1_Click() Dim?Fib1?As?Integer, ?Fib2?As?Integer, ?Fib3?As?Integer, ?Contador?As?Integer Fib1?=?1 Fib2?= ?1 Contador?=?2 Lista1.AddItem?"Item 1="?amp;?Fib1 List1.AddItem?"Item 2="?amp;?Fib2 ¿

Contador?=?Contador ? 1

Fib3?=?Fib1? ?Fib2

List1.AddItem?" item="?amp;?Counter?amp;?"

Fib1? =?Fib2

Fib2?=?Fib3 Loop?Until?Fib3?gt;?986 Label1.Caption?=?Label1.Caption? ?vbCrLf? "Es el *** con un valor no mayor de 1000 tiene elementos "?amp;?List1.ListCount?amp;?"

End?Sub

Privado?Sub?Command2_Click() Fin

End?Sub

Private?Sub?Form_Load() Label1.Caption?=?"Secuencia de Fibonacci:"

End?Sub

Por cierto, hay hay un error en la imagen dada en la pregunta

: ¡el término 17 de la secuencia de Fibnacci no es 987, el término 17 es 1597 y el término 16 es 987!