VBA Fibonacci Serisinde N'inci Terimi Bulma Örneği

"VBA" Programlama dilinde "Fibonacci Serisinde N'inci Terimi Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.

Option Explicit

Public Sub Main()
    Dim n As Integer
    n = InputBox("Pozisyon Girin (N): ")
    MsgBox "Fibonacci Numarası: " & NthFibonacciNumber(n)
End Sub

Public Function NthFibonacciNumber(n As Integer) As Integer
    If n = 1 Then
        NthFibonacciNumber = 0
    ElseIf n = 2 Then
        NthFibonacciNumber = 1
    Else
        NthFibonacciNumber = NthFibonacciNumber(n - 1) + NthFibonacciNumber(n - 2)
    End If
End Function



İlginizi Çekebilir

VBA Dosyaları Uzantıya Göre Arama

VBA Bir Dizi Tam Sayının Ortalamasını Bulma

VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

VBA Tüm Kolonları Auto Fit Yapmak

VBA Boş Olan Tüm Hücreleri Vurgulu Yapmak