Cara membuat derec fibonacci dalam VB 2008

Pada kesempatan ini saya ingin memberikan sedikit ilmu mengenai derec fibonacci dalam VB 2008. derect fibonaccci merupakan deret bilangan yang memiliki rumus bahwa bilangan berikutnya merupakan hasil penjumlahan dari dua bilangan sebelumnya, kecuali dua bilangan pertama yang selalu di isi dengan angka nol dan satu.

Untuk mebuat desain form VB seperti yang terlihat pada gambar dibawah ini :

Nah jika sudah doble klik button1 atau button proses, lalu ketikan sintax berikut

Dim w,y,zAs Integer

y=0

z=1

ListBox1.Items.Clear()

ListBox1.Items.Add(y)

ListBox1.Items.Add(z)

For x As Integer=_

1 To NumericuUpDown1.Value

w=y+z

y=z

z=w

If w>NumericUpDown1.Value_

Then Exit For

ListBox1.Items.Add(w)

Next

Penjelasan:

Variabel w berfungsi untuk menampung hasil penjumlahan dua bilangan sebelumnya dari derect yang tersedia yaitu variabel y dan z. Dan pad saat hasil penjumlahan tersebut telah melebihi batas yang telah di tentukan (dengan perintah IF),maka perulangan akan dikeluarkan dari  proses dengan menggunakn perintah Exit For .

Jika sudah, double klik button12 atau button exit dan ketikkan sintaxs berikut :

End

Selanjutnya tekan F5 untik compilr da menjalankan program, jika sudah maka akan terlihat hasilnya seperti gambar di bawah ini, dan nilai maksimal dari numeric updown adalah 100.