Código de Visual Basic para Aplicaciones

Código de Visual Basic para Aplicaciones - Vacas Narayana

Pos: 9

Val: 85

Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)

Vacas Narayana

Visual Basic para Aplicaciones

Publicado el 11 de Agosto del 2017 por David (9 códigos)

1.558 visualizaciones desde el 11 de Agosto del 2017

Narayana, matemático hindú del siglo XIV, propuso la siguiente situación:

"Una vaca tiene anualmente una cría. Cada una de ellas, cuando ya es novilla a los cuatro años, también tiene una cría anual."

De esta forma, el primer año habrá una vaca, el segundo permanece la misma vaca, al igual que el tercero, en el cuarto año ya hay dos vacas, pues la original tiene una cría...
Para poder resolverlo, empleamos VBA (Visual Basic for Applications) en Excel, ya que es una excelente herramienta para estos casos.

Fon1

Requerimientos

Windows, Microsoft Office

1.0

Actualizado el 13 de Noviembre del 2017 (Publicado el 11 de Agosto del 2017)

gráfica de visualizaciones de la versión: 1.0

1.559 visualizaciones desde el 11 de Agosto del 2017

'Creado por David Garcia

'Contacto : djgagarcia@gmail.com

Private Sub CommandButton1_Click()

Dim I As Double

Dim N As Double

With Hoja1

    .Cells.Clear

    .Cells(1, 1) = "AÑO"

    .Cells(1, 2) = "VACAS"

    .Range(.Cells(1, 1), .Cells(1, 2)).Interior.Color = vbBlue

    .Range(.Cells(1, 1), .Cells(1, 2)).Font.Bold = True

    .Range(.Cells(1, 1), .Cells(1, 2)).Font.Color = vbWhite

    .Range(.Cells(1, 1), .Cells(1, 2)).Font.Size = 14

    N = Application.InputBox("COLOQUE Nº NUMEROS", "VACAS NARAYANA")

    .Cells(2, 2) = 1

    .Cells(3, 2) = 1

    .Cells(4, 2) = 1

    For I = 1 To N - 2

        If IsNumeric(.Cells(I, 2)) Then

            .Cells(I + 3, 2) = .Cells(I + 2, 2) + .Cells(I, 2)

        End If

    Next I

    For I = 1 To N

        .Cells(I + 1, 1) = I

    Next I

End With

Comentarios sobre la versión: 1.0 (0)

No hay comentarios

Comentar la versión: 1.0

http://lwp-l.com/s4107

Divisores + Números Perfectos

Sucesión Numeros de Lucas

Código de Visual Basic para Aplicaciones - Vacas Narayana

Requerimientos

1.0

Comentarios sobre la versión: 1.0 (0)

Comentar la versión: 1.0

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