Visual Basic - Serie fibonacci

Life is soft - evento anual de software empresarial
 
Vista:

Serie fibonacci

Publicado por Azael (2 intervenciones) el 20/04/2008 07:06:57
Necesito ayuda para diseñar un programa sencillo pero que no encuentro la forma de programarlo en vb 2008, tengo dos problemas.
1.- el metodo keypress no me reconoce la sentencia keyascii osea me marca error si introdusco:

1
2
3
4
5
if KieyAscii = 13 then
Accion1
else
Accion2
end if

2.- No encuentro como capturar y realizar las operaciones con las variables o constantes para que empiece con el 0, el segundo sea 1 y cada elemento restante es la suma de los dos anteriores.

GRRACIAS POR SU AYUDA!!!!
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:Serie fibonacci

Publicado por christian (6 intervenciones) el 22/04/2008 04:24:57
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function Fibonacci(ByVal numero As Long) As Long
 
   Dim A As Long
   Dim B As Long
   Dim C As Long
   A = 0
   B = 1
   Do While numero > 0
      C = A + B
      A = B
      B = C
      numero = numero - 1
   Debug.Print C
   Loop
 
End Function
 
Private Sub Command1_Click()
Fibonacci (20)
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:Serie fibonacci

Publicado por Brayan (1 intervención) el 13/09/2011 18:03:29
Gracias por la serie de fibonnaci..

quisiera pedirle un favor!!!

como haria para q me imprimiera todos los numeros....

es decir q si yo digito 3, entonces
me imprima
1 - 2 - 4 - 7 ???????

y otra pregunta..
asi es como entendi el programa
si escribo 3 imprime 7
si escribo 5 imprime 20

LUEGO LA SERI DE FIBONNACI no es 1 - 2 - 3 - 5 - 8 - 13 - 21 -34 ...........
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:Serie fibonacci

Publicado por Jorge (1 intervención) el 26/11/2008 15:20:05
de la manera mas comedida desearia el ejercicio completo
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:Serie fibonacci

Publicado por slendy (1 intervención) el 11/03/2009 23:34:01
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
public class....
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer, b As Integer, n As Integer
        a = 0 : b = 1
        Dim c As Integer, suma As Integer = 0
        n = CInt(InputBox("digite", "digite"))
        Dim i As Integer
        For i = 0 To n - 2
            suma = suma + b
            c = a + b
            a = b
            b = c
        Next
        TextBox1.Text = suma
    End Sub
End Class

"esta es la secuencia fibonacci espero les sea de ayuda"
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