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 Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak

VBA Tüm Satırları Auto Fit Yapmak

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

VBA Şimdiki Zamanı Getirmek