| Elemanlar:
textbox, Command1
Kodlar :
Private Sub Command1_Click()
ReDim dizi(10)
a = Val(Text1.Text)
dizi(0) = 0
dizi(1) = 1
For i = 1 To a
dizi(i + 1) = dizi(i) + dizi(i - 1)
Next i
For i = 2 To a + 1
Print dizi(i)
Next i
End Sub
Chestertroyl
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. | 
