Kamis, 09 Februari 2012
0 komentar

Program Deret Bilangan Fibonacci



1. Buat form seperti ini :



2. Tulis sintax berikut :

Dim i,temp,inputan3 as integer
Private Sub Command3_Click()
inputan3 = Val(Text6.Text)
Text7.Text = ""
i = 0
x = 1
Do
temp = x + i
x = i
i = temp
Text7.Text = Text7.Text & Str(x)
Loop Until temp >= inputan3
End Sub

3. Masukkan nilai yang anda inginkan :


Selamat mencoba (^_^)
* Untuk lebih lengkap, download programnya disini


 
Toggle Footer
Top