WAP for generating Fibonacci series.

___________________________________

Private Sub Command1_Click()

List1.Clear

num = Val(Text1.Text)

a = 0

b = 1

c = 0

List1.AddItem (a)

List1.AddItem (b)

For i = 1 To num Step 1

c = a + b

List1.AddItem (c)

a = b

b = c

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

List1.Clear

End Sub

________________________________

OUTPUT

________________________________

DOWNLOAD

____________________________________

Download its form

Download its Image

## No comments:

## Post a Comment