FIBONACCI ( SUITE )

Private Sub btnAfficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfficher.Click
        Dim lngFibo As System.Int64
        ' Variable enregistrant la position de la suite de Fibonacci
        Dim strN As System.String
        strN = txtN.Text
        ' Formule déterminant le nombre de Fibonacci correspondant à la position saisie
        lngFibo = 1 / Sqrt(5) * (((1 + Sqrt(5)) / 2) ^ CInt(strN) - ((1 - Sqrt(5) / 2)) ^ CInt(strN))
        lblFibo.Text = Str(lngFibo)
    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        ' Réinitialisation des contrôles TextBox et Label
        txtN.Text = ""
        lblFibo.Text = ""
        txtN.Focus()
    End Sub

    Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
        Me.Close()
    End Sub

Télécharger le zip