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

46 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 Boş Olan Tüm Hücreleri Vurgulu Yapmak

VBA Dikdörtgenin Alanını Hesaplama Örneği

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

VBA Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

VBA 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği