RosettaCodeData/Task/Fibonacci-sequence/Visual-Basic-.NET/fibonacci-sequence-2.visual

5 lines
131 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
Function Seq(ByVal Term As Integer)
If Term < 2 Then Return Term
Return Seq(Term - 1) + Seq(Term - 2)
End Function