ayuda con visual basic y ciclo while

[huesca_92]

hola a todos
pues aqui dejo mi peticion espero me puedan ayudar lo mas pronto posible por k es una tarea para pasar materia
necesito una forma con el ciclo while para que me sume los dos ultimos numeros que yo pongo
por ejemplo:
tengo los numeros 1 y 2, suman 3, despues el 2 se lo sumo al 3 y sale 5, despues que sume el 3 y el 5 y sale ocho
a eso me refiero con los ultimos numeros
espero una respuesta rapida
gracias
dejo mi correo por cualquier cosa
huesca_92@hotmail.com

 

[Zephyros]

Y lo que llevas hecho del código es...?

Si quieres ayuda debes postear lo que lleves avanzado de código fuente y con base en el mismo, plantéarnos tus dudas, no esperabas que lo hiciéramos todo por ti, verdad?

Aquí no le hacemos la tarea a nadie!!!!!

 

[huesca_92]

esto es lo que llevo de codigo, pero lo que hace esto es sumar de 1 en 1
y tienes razon zephyros, no es que hagan mi tarea, jejejejejej, creo k lo tuve que haber puesto antes


Dim suma As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
suma = 0
While (suma < 34)
suma = suma + 1
MsgBox("el numero es:" + Str$(suma))
End While
End Sub
End Class

 

[oldBoy]

pudiste haber ahorrado todo tu ejemplo diciendonos que se trataba de la sucesión de Fibonacci

 

[huesca_92]

no sabia que se llamaba asi, lo puso el profesor pero pense que era un nombre comun
gracias por el dato sKeLdEn

 

[huesca_92]

segun yo entendi a lo k me pusiste sKeLdEn eso va cambiado en suma= suma + 1

suma= suma + 1 ( 1+ 0) , ( ( 1 + 0 ) + 1 ) , ( 1+ 0 ) + ( ( 1 + 0 ) + 1 ) , ( ( 1 + 0 ) + 1 ) + ( 1+ 0 ) + ( ( 1 + 0 ) + 1 )

pero me marco error

 

[oldBoy]

segun yo entendi a lo k me pusiste sKeLdEn eso va cambiado en suma= suma + 1

suma= suma + 1 ( 1+ 0) , ( ( 1 + 0 ) + 1 ) , ( 1+ 0 ) + ( ( 1 + 0 ) + 1 ) , ( ( 1 + 0 ) + 1 ) + ( 1+ 0 ) + ( ( 1 + 0 ) + 1 )

pero me marco error

Olvida eso jaja, no te funcionara en el programa. Aqui esta el codigo fuente en java, tal vez te puedas guiar mejor
http://elvex.ugr.es/decsai/java/pdf/7C-Ejemplos.pdf

 

[huesca_92]

sKeLdEn, tienes correo para k mejor hablemos mas a gusto
y me puedas explicar??
agregame no xfas
huesca_92@hotmail.com

 

[oldBoy]

Sub fibonacci As Integer ( Dim n As Integer)
If n = 0 Or n = 2
fibonacci = 1
ElseIf
fibonacci = fibonacci(n-1) + fibonacci (n-2)

End If
End Sub
Corrijanme si me equivoque en algo, no uso muy bien vb

 

[stalky_666]

pues la solucion recursiva es la que conozco para este problema, como ya postearon

static int fibonacci (int n)
{
if ((n == 0) || (n == 1))
return 1;
else
return fibonacci(n-1) + fibonacci(n-2);

no deberia ser muy dificil aplicarla en visual basic,

eso si, asegurate entender como funciona el metodo (o lo que es una funcion recursiva),

 

[stalky_666]

Sub fibonacci As Integer ( Dim n As Integer)
If n = 0 Or n = 2
fibonacci = 1
ElseIf
fibonacci = fibonacci(n-1) + fibonacci (n-2)

End If
End Sub
Corrijanme si me equivoque en algo, no uso muy bien vb

por ahi la llevas, pero creo que el Sub no regresa ningun valor,

conviertelo el Sub a function (que si te regresa valores), y creo que con eso ya estas....