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