Visual Basic - problemas para mostrar resultado con While

Life is soft - evento anual de software empresarial
   
Vista:

problemas para mostrar resultado con While

Publicado por camilo (1 intervención) el 12/11/2009 20:02:51
Hola a todos,

Necesito de su ayuda urgentemente.

Tengo un código para generar un numero de la secuencia figonacci (determinado por el usuario)

El código es el siguiente:

i = 2
a = Text1.Text
fib1 = 0
fib2 = 1
fibi = 0

While (i <= a)
fibi = fib1 + fib2
fib2 = fib1
fib1 = fibi
i = i + 1
Wend

Text2.Text = fibi

En text2 imprime la respuesta, pero ahora necesito que imprima en la pantalla del formulario toda la secuencia hasta el número que ingreso el usuario, es decir cuando el usuario ingrese el numero 5 en el formulario le debe mostrar no solo el resultado de 5 en la secuencia figonacci (3), si no que también debe mostrar todos los números de la secuencia del 1 al 5.
Numero Resultado
1= 0
2= 1
3= 1
4= 2
5= 3

Se me ocurrió que la respuesta debía colocarla en una lista (por que alguna vez la use con un for para que me colocara resultados, algo parecido) pero no me sale por ningún lado

Se lo agradeceré mucho al que me pueda ayudar

Nota: mi conocimiento del visual es básico.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemas para mostrar resultado con While

Publicado por resp (2 intervenciones) el 12/11/2009 22:33:56
Private Sub Command1_Click()

Text1 = ""
Dim b As Integer
Dim c As Integer

a = 1
b = 1

Text1 = 0 & Text1 & vbNewLine
Text1 = Text1 & 1 & vbNewLine
Text1 = Text1 & 1 & vbNewLine
For i = 1 To Val(Text2) - 3
c = a + b
a = b
b = c
Text1 = Text1 & c & vbNewLine
Next

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problemas para mostrar resultado con While

Publicado por jaime guerrero (361 intervenciones) el 17/11/2009 20:37:14
pones

ListBox1.AddItem ""
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar