有如下VB程序：
Dim n As Integer
Function f（k As Integer） As Long
    If k＜=2 Then f=1 Else f=f（k-1）+f（k-2）
End Function
Private Sub command1_click（　　）
   n=Val（Text1．Text）
   Label2．Caption=Str（f（n））
End Sub
该VB程序采用的主要算法是（　　）