VBA Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

41 Okunma VBA

"VBA" Programlama dilinde "Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği" ile ilgili kod örneği aşağıda verilmiştir. 

Sub Fibonacci()

    Dim n1 As Integer, n2 As Integer, n3 As Integer, count As Integer
    n1 = 0
    n2 = 1
    count = InputBox("Dizideki terim sayısını girin: ")
    Debug.Print n1 & " " & n2 & " "
    
    For i = 2 To count - 1
        n3 = n1 + n2
        Debug.Print n3 & " "
        n1 = n2
        n2 = n3
    Next i
    
End Sub
Döngü Seri Fibonacci Yazdır Iterasyon VBA

İlginizi Çekebilir

VBA Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örne ...

VBA While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

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

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

VBA Bugünün Tarihini Getirmek