Contoh2 program vb

                                            Deret Fibonacci


Deret fibonacci merupakan deret bilangan yang memiliki rumus bahwa bilangan berikutnya merupakan hasil penjumlahan dari dua bilangan sebelumnya, kecuali dua bilangan pertama yang sealu diisi dengan angka nol dan satu.

Untuk membuat aplikasi deret bilangan VB ini, hal pertama yang harus kalian lakukan adalah membuat desain form VB seperti yang terlihat pada gambar dibawah ini:

Nah, jika sudah, double click button1 atau button proses, lalu ketikkansyntax berikut:


Dim w, y, z As Integer
        y = 0
        z = 1
        ListBox1.Items.Clear()
        ListBox1.Items.Add(y)
        ListBox1.Items.Add(z)
        For x As Integer = _
            1 To NumericUpDown1.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 deret yang tersedia yaitu variabel y dan z. Dan pada saat hasil penjumlahan tersebut telah melebihi batas yang telah ditentukan (dengan perintah IF), maka perulangan akan dikeluarkan dari proses dengan menggunakan perintah Exit For.

Jika sudah, double click button2 atau button Exit dan ketikkan syntax berikut:

End

Selanjutnya tekan F5 untuk compile dan menjalankan program, jika sudah maka akan terlihat hasilnya seperti gambar dibawah ini. Dan nilai maksimal dari numericupdown adalah 100.