Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

ayuda con visual basic y ciclo while

H

huesca_92

Bovino maduro
Desde
10 Ago 2007
Mensajes
210
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
 
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!!!!!
 
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
 
pudiste haber ahorrado todo tu ejemplo diciendonos que se trataba de la sucesión de Fibonacci
 
no sabia que se llamaba asi, lo puso el profesor pero pense que era un nombre comun
gracias por el dato sKeLdEn
 
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
 
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
 
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),
 
.:sKeLdEn:. dijo:
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
Click para expandir ...

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....
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba