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

0 Okunma VBA

"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
Fibonacci Seri Dizi Bulma Sayı VBA

İlginizi Çekebilir

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Tek Satırda If Else Yazmak

VBA İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

VBA 1'den 100'e Kadar Çift Sayı Toplam Örneği