Deret Fibonaci menggunakan VB 06

Hehhehe Penolong tugas Program Deret Fibonaci menggunakan VB 06 :)

Gunakan textbox sebanyak 3 untuk input data 1 , input data 2 dan input jumlah deret ,
gunakan command button sebanyak 2 untuk button proses dan button untuk keluar dari aplikasi
dan gunakan listbox untuk output / hasil proses deret

Klik pada form , dan klik 2 kali pada button dan isi seperti di bawah ini ....

Private Sub Command1_Click()
Dim a, b, c, n As Double

a = Text1.Text
b = Text2.Text
n = Text3.Text
List1.AddItem a
List1.AddItem b

For i = 3 To n
    c = Val(a) + Val(b)
    List1.AddItem c
    a = b
    b = c
Next i

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

setelah itu tekan F5 untuk untuk menjalankan programnya ....
selesai ....

===>  link view  <===