VISUAL BASIC.NET / Fibonecci Dizisi
Fibonecci Dizisini Bu Kodlan Yazabilirsiniz
1 button ekle button un click olayına yaz
Fibonecci Dizisini Bu Kodlan Yazabilirsiniz
1 button ekle button un click olayına yaz
Code:
dim s1,s2,s3,i as integer
i=1
s1=1
s2=2
do while i<50
s3=s1+s2
msgbox(s1 & "-" & s2 & "-" & s3)
s1=s2
s2=s3
i+1