Hasilnya penulis buatkan di Visual Basic .NET karena VB 6.0 sudah tidak terinstall di komputer. Tetapi coding di bawah ini bisa dipakai untuk Visual Basic 6.0 :
Buat project baru, tambahkan satu buah ListBox dan satu buah Button, pada button tambahakan kode program berikut :
Public Class Form1
' http://cariprogram.blogspot.com
' nuramijaya@gmail.com
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = 0
Dim b As Integer = 1
Dim fib As Integer = 0
ListBox1.Items.Clear()
ListBox1.Items.Add("1")
Do
fib = a + b
a = b
b = fib
ListBox1.Items.Add(fib.ToString)
Loop While fib <= 100
'di vb 6.0 gunakan
'ListBox1.Clear
'dan
'ListBox1.Add fib
End Sub
End Class
Hasilnya :
Project selengkapnya silakan didownload disini. Kesulitan dalam mendownload, caranya seperti ini..
Semoga berguna.