MENCARI DERET FIBONACI DI VB NET 2010

Itulah tampilan program mencari deret fibonaci yang saya coba buat di VB Net 2010 kawan, untuk Script mencari deret fibonaci di VB Net 2010, nih silahkan di pelajari ^_^


Dim a, b, c, d As Integer
        b = 0
        c = 1
        ListBox1.Items.Clear()
        ListBox1.Items.Add(b)
        ListBox1.Items.Add(c)

        For d = 1 To Val(maks.Text)
            a = b + c
            b = c
            c = a

            If (a > Val(maks.Text)) Then
                Exit For
            End If
            ListBox1.Items.Add(a)
        Next

Itulah script yang saya coba susun untuk mencari deret fibonaci dengan menggunakan VB Net 2010,,, dimanfaatkan yaa ^_^

Salam Berbagi