VBA练习--尝试写下,斐波拉契,递归,回溯?--不看先看别人的,觉得自己先思考的过程比较有用

'加入，读各种关键次数，别都写代码里，然后加入再来一次，还有前面不出等，模拟要奔着随机百万次？
'先试个小迭代，
'再改读参数
'计算重构下，单独得函数，
'再整体调整，一部分一部分得来把




'我要试试 f(n) = f(n - 1) + n 累加？
'我要试试 f(n) = f(n - 1) + f (n-2)


Sub t2()   '试试斐波
  
  a = 1
  b = 2
  c = a + b
  d = c + b
  
End Sub


Function f1(n) '试试斐波
   If n = 1 Then
      f1 = 1 '错误return 1
  ElseIf n = 2 Then
      f1 = 2 '错误return 2
  Else
      f1 = f1(n - 1) + f1(n - 2)
  End If

End Function


Sub t1()
For i = 1 To 20
    Debug.Print f1(i)
Next
End Sub