FIBONACCI ET NOMBRE D'OR

 Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        Dim strNombre As System.String
        ' Entrez un nombre pour la suite de Fibonacci
        strNombre = InputBox("Entrez un nombre pour la suite de Fibonacci", "Message")
        Dim lngFibo(CInt(strNombre)) As System.Int64
        Dim dblOr As System.Double
        Dim intCompteur As System.Int32
        ' Initialise la suite de Fibonacci
        lngFibo(0) = 1
        lngFibo(1) = 1
        lngFibo(2) = 2
        lstFibo.Items.Add(lngFibo(0))
        lstFibo.Items.Add(lngFibo(1))
        lstFibo.Items.Add(lngFibo(2))

        ' Calcule la suite de Fibonacci à concurrence du nombre saisi
        ' Démontre la relation avec le nombre d'or
        For intCompteur = 3 To (CInt(strNombre)) - 1 Step 1
            lngFibo(intCompteur) = lngFibo(intCompteur - 2) + lngFibo(intCompteur - 1)
            lstFibo.Items.Add(lngFibo(intCompteur))
            dblOr = Format(CDbl(lngFibo(intCompteur) / lngFibo(intCompteur - 1)), "#.##############")
            lstOr.Items.Add(dblOr)
        Next
    End Sub

Télécharger le zip