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

sin imagen de perfil
Val: 85
Ha aumentado 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 (9 códigos)
2.695 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
2.696 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4106