Membuat Deret Fibonacci pada VB

Deret Fibonacci adalah urutan angka pertama kali dibuat oleh Leonardo Fibonacci (fi-bo-na-chi) pada 1202. Ini adalah deret yang tampak sederhana, tetapi ramifikasinya dan aplikasi yang hampir tak terbatas.

Beliau adalah matematikawan terpesona lebih dari 700 tahun, dan hampir semua orang yang telah bekerja dengan beliau telah menambahkan potongan baru teka-teki Fibonacci, sebuah berita menarik informasi baru tentang deret dan cara kerjanya. Fibonacci matematika adalah cabang terus berkembang dari teori bilangan, dengan lebih banyak orang dan lebih yang ditarik ke dalam seluk-beluk kompleks warisan Fibonacci itu.

Secara matematika, didefinisikan sebagai berikut:

Berikut langkah-langkah membuat deret fibonacci pada visual basic editor :

1. Buka Visual Basic Editor

2. Buat Userform

3. Masukkan Perintah berikut :

Penjelasan Algoritma :
Pada UserForm ini dimasukkan angka-angka pada bilangan pertama dan kedua deret fibonacci yang kita inginkan. Kemudian masukkan pula jumlah deret yang kita inginkan pula.

ListBox1.AddItem adalah fungsi di mana nilai a dimasukkan ke listbox sehingga nilai a muncul pada listbox, kemudian nilai b muncul pula.

Untuk nilai deret selanjutnya menggunakan fungsi loop For, karena deret pertama adalah bilangan pertama (a) dan deret kedua adalah bilangan kedua (b) maka dicari deret ketiga hingga ke deret terakhir yang kita inginkan (n).
maka dari itu loop For di mulai dari i = 3 to n
c = val (a) + val (b)
nilai c di dapat dengan menjumlahkan a dan b
kemudian listbox1.additem c untuk memasukkan nilai c yang baru.
kemudian nilai a berubah menjadi b dan b berubah menjadi c untuk perhitungan pada loop selanjutnya.

Pada Contoh :
a = 1
b = 1
n = 12

listbox1.additem a
listbox1.additem b

c = a + b = 2

listbox1.additem c
a = 1
b = 2

c = a +b = 3

listbox1.additem c
a = 2
b= 3

Begitu seterusnya hingga pada deret ke (n), lalu pada listbox muncul angka
1
1
2
3
dst.

4. Run dan hitung
 

Sekian, semoga bermanfaat...