VISUAL BASIC.NET / Fibonecci Dizisi

[HZ.CİN]

VISUAL BASIC.NET / Fibonecci Dizisi
Fibonecci Dizisini Bu Kodlan Yazabilirsiniz

1 button ekle button un click olayına yaz

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