Function fibbonacci()
Dim t1: t1 = 0
Dim t2: t2 = 1
For i = 1 To 10 Step 1
MsgBox "" & t1
Sum = t1 + t2
t1 = t2
t2 = Sum
Next
End Function
Dim t1: t1 = 0
Dim t2: t2 = 1
For i = 1 To 10 Step 1
MsgBox "" & t1
Sum = t1 + t2
t1 = t2
t2 = Sum
Next
End Function
No comments:
Post a Comment