Un problema de cálculo en VB
El siguiente es un error en tu dibujo: el primer y segundo término de la secuencia de Fibonacci son ambos 1. Falta el primer término en tu dibujo y se han agregado 31 elementos, pero en realidad es 2-31.
Código del programa (con imágenes):
¿Público? ¿clase? Formulario 1
¿Privado? ¿Sub? Button1_Click(¿ByVal?Remitente?As?System.Object,?ByVal?e?As?System.EventArgs)? ¿manejar? Botón 1. Haga clic en
¿Atenuar? x1,? x2,? incógnita,? I,? suma,? ¿Contar? ¿Como? Enteros
¿Contando? =?30
x1? =?1
x2? =?1
suma? =?2
Cuadro de texto 1. ¿Palabra? =?"1,1"
¿Para qué? ¿I? =?3?¿Adónde ir? ¿Cuenta
x? =?x1? +?x2
x1? =?x2
x2? =?x
Cuadro de texto 1. ¿Palabra? =?Cuadro de texto 1. ¿Palabra? y amplificador? ","?& amperio? x
suma? =?suma? +?x
Luego
Cuadro de texto 2. ¿Palabra? =?Suma
Fin? Submarino
¿Fin? Clase