Menghitung Deret Fibonacci Dengan Visual Basic Editor

Deret Fibonacci adalah suatu deret matematika dimana deret ke tiga dan seterusnya berasal dari penjumlahan dua bilangan sebelum deret ke n. misalnya deret ke 3 adalah penjumlahan dari deret ke 1 dan 2. deret ke 5 merupakan penjumlahan deret ke 3 dan ke 4. dan seterusnya. untuk membuat program fibonacci menggunakan visual basic editor , maka langkah yang dapat dilakukan adalah sebagai berikut:
1. buka microsoft Excel pada komputer anda
2. jika anda menggunakan microsoft office 2007 langkah yang dilakukan untuk membuka VB adalah: klik 'developer' -> 'visual basic editor' maka akan muncul layar :

3. kilik 'insert'-> 'userform' pada VB

 

4. buat box seperti dibawah ini:

    

 5. bentuk program fibonacci dengan mengklik 2x pada box command button: programnya adalah

     Private Sub CommandButton1_Click()

     'this is a program to count fibonaci number
     'give a value of A , B , C , n

     Dim A, B, C, n As Double

     A = DeretKe1.Text
     B = DeretKe2.Text
     n = BanyakDeret.Text
     Hasil.AddItem A
     Hasil.AddItem B

     'counting series of number fibonacci

     For i = 3 To n

     C = Val(A) + Val(B)
     Hasil.AddItem C

    A = B
    B = C

   Next i

   End Sub

6. Run program dengan menekan tombol F5 pada keyboard komputer. hasil runing untuk bilangan pertama 1 dan bilangan ke dua 1 dan jumlah deret 8 adalah :