Código de Visual Basic para Aplicaciones - Sucesión Numeros de Lucas

sin imagen de perfil
Val: 85
Ha disminuido 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Sucesión Numeros de Lucasgráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 11 de Agosto del 2017 por David
1.326 visualizaciones desde el 11 de Agosto del 2017
Los números de Lucas son los números pertenecientes a la sucesión de enteros, llamados así por el matemático François Édouard Anatole Lucas (1842-1891), que estudió tanto que la secuencia y los números de Fibonacci están estrechamente relacionados con los Lucas. No deben ser confundidos con la Sucesión de Lucas, que es la sucesión a la cuál pertenecen los números de Lucas.
De manera similar a los números de Fibonacci, cada número de Lucas se define como la suma de sus dos inmediatos anteriores, formando así una secuencia de enteros de Fibonacci. Los dos primeros números Lucas son L0 = 2 y L1 = 1 en contraposición a los dos primeros números de Fibonacci que son F0 = 0 y F1 = 1. Aunque estrechamente relacionado en la definición, los números de Lucas y de Fibonacci presentan propiedades distintas.
En este ejemplo, crearemos dicha secuencia con VBA (Visual Basic for Applications) en Excel.

Requerimientos

Windows, Microsoft Office

1.0

Actualizado el 2 de Octubre del 2017 (Publicado el 11 de Agosto del 2017)gráfica de visualizaciones de la versión: 1.0
1.327 visualizaciones desde el 11 de Agosto del 2017
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim I As Integer
Dim A As Double
Dim B As Double
Dim N As Double
Dim L As Double
With Hoja1
 
    .Cells.Clear
        N = Application.InputBox("COLOQUE Nº SECUENCIA", "NUMEROS DE LUCAS")
        A = 2
        B = 1
 
        .Cells(1, 1) = "Nº DE SECUENCIAS"
        .Cells(1, 1).Font.Bold = True
        .Cells(1, 1).Interior.Color = vbBlue
        .Cells(1, 1).Font.Color = vbWhite
        .Cells(2, 1) = A
        .Cells(3, 1) = B
 
            For I = 1 To N
 
               L = A + B
 
                .Cells(I + 3, 1) = L
 
            A = B
            B = L
 
            Next I
 
 
    .Columns(1).AutoFit
 
 
End With



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4106