Fibonacci Serisi

[MelekDemirhan]

Fibonacci Serisini for döngüsü ve sadece if kullanarak nasıl yapabiliriz access vb kodlarıyla yardımcı olursanız sevinirim şimdiden teşekkürler.

 

[Taruz]

Merhaba..

Bu kod yapısını kullanabilirsiniz..:

Function fib(ByVal n As Integer)
        If n < 2 Then
        fib = n
        Else
        fib = fib(n - 1) + fib(n - 2)
        End If
End Function

 Sub trz()
  Dim n As Integer
        For n = 1 To 15
            Debug.Print (n & ":" & fib(n))
        Next
End Sub

Hazırladığım bu yapı 15 seriyi (15'e kadar değil) verir..

 

[modalı]

Sayın Melek Demirhan,

Örneğiniz ekte. Form kodlarındaki fonksiyonu inceleyin.

Public Function fibonacci(i As Integer) As String
Dim a, b, f As Double
a = 0
b = 1
fibonacci = a & "," & b
For x = 0 To i - 3
    f = a + b
    a = b
    b = f
    fibonacci = fibonacci & "," & f
Next x
End Function

İyi çalışmalar