Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim N As Integer
Dim I As Integer
Private Sub Command1_Click()
List1.Clear
A = Text1.Text
B = Text2.Text
N = Text3.Text
List1.AddItem "......................."
List1.AddItem "N" & vbTab & "Fibo"
List1.AddItem "......................."
List1.AddItem 1 & vbTab & A
List1.AddItem 2 & vbTab & B
For I = 3 To N
C = A + B
A = B
B = C
List1.AddItem I & vbTab & C
Next I
List1.AddItem "......................."
End Sub
No comments:
Post a Comment
Note: only a member of this blog may post a comment.