Visual Basic - FIBONACCI+FLEXGRID

Life is soft - evento anual de software empresarial
 
Vista:

FIBONACCI+FLEXGRID

Publicado por NACHO (1 intervención) el 11/07/2005 00:44:38
LA IDEA ES ALMACENAR LOS N TERMINOS DE FIBONACCI EN UNA FLEXGRID

1 1
2 1
3 2
4 3
5 5
.
.
.

.
.
Lo que me interesa saber es como sumar el valor de las filas de fibonacci por ejemplo
el valor del 4to termino = valor del termino 3 + valor del termino 2
hay alguna sintaxis ??
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:FIBONACCI+FLEXGRID

Publicado por AFleming (52 intervenciones) el 11/07/2005 20:13:49
PUEDES HACER ASI:

N = 10 'maximo de filas
With GRID 'este es la tabla
.Col = 0
For i = 0 To N
If .Rows = i Then .Rows = .Rows + 1
If i < 2 Then
.Row = i
.Text = "1"
Else
suma = 0
.Row = i - 2
suma = Val(.Text)
.Row = i - 1
suma = suma + Val(.Text)
.Row = i
.Text = suma
End If
Next i
End With
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