Azıcık hatırlayalım. Fibonacci dizisi birbirini takip eden sayıların toplamı şeklinde yazılır Mesela ilk sayımız 2, ikinci sayımız 5 olsun, üçüncü sayımız 7 olur, 4. sayımız 12 olur. Form'a bir tane combobox, 3 tane textbox, 2 tane command buton ekleyin. Private Sub Command1_Click Dim birinci, ikinci, adet, sonraki As Integerbirinci = Val(Text1. Text) 'Text kutusundan ilk değer alınıp Val fonksiyonu ile sayısal veriye dnüştürülüyorikinci = Val(Text2. Text) 'Text kutusundan ikinci değer alınıp Val fonksiyonu ile sayısal veriye dnüştürülüyoradet = Val(Text3. Text) 'Text kutusundan üçüncü değer alınıp Val fonksiyonu ile sayısal veriye dnüştürülüyorsonraki = birinci + ikinci 'rneğin; İlk değer 8, ikinci değer 11 ise üçüncü değer 19 olacaktır. toplam = sonraki + sonraki 'Gelen değerlerin ilk toplamını belirliyoruz Combo1. AddItem "Fibonacci 1 :" & birinci 'Combo kutusuna ilk değerimizi ekliyoruz Combo1. AddItem "Fibonacci 2 :" & ikinci 'Combo kutusuna ikinci değerimizi ekliyoruz Combo1. AddItem "Fibonacci 3 :" & sonraki 'Combo kutusuna üçüncü değerimizi ekliyoruz sonraki = birinci + ikinci ' 8, 11 den sonra 19 gelmesini sağlıyoruz For i = 4 To adet 'Toplam n-adet değerin ilk üçünü başta girdik sıra diğerlerine geldi. Dgüyü başlattık birinci = ikinci 'birinci = 8, ikinci = 11, sonraki = 19 sayılarını ekledikten sonra değişkenlere yeni değerleri veriliyor. Yeni değeri ise şyle olur birinci = 11, ikinci = 19, sonraki = 30 yapılmasını sağladık. ikinci = sonraki sonraki = birinci + ikinci toplam = toplam + sonraki 'Dizinin elemanlarının toplamına devam ediyoruz. Combo1. AddItem "Fibonacci " & i & " :" & sonraki 'Bulduğumuz her bir değeri Comboya ekliyoruz. Next i 'Bir sonraki i değerine geçmesini sağlıyoruz. MsgBox , , "Bilgi" 'Artistlik yapıp mesaj verdirelim. Form1. Print " Ortalama " & toplam / adet 'Sonracığıma form üzerine ortalamayı yazdıralım. End Sub Private Sub Command2_Click End 'İkinci butona basınca program -okus pokus kaybol ortadan -End Sub Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.