RosettaCodeData/Task/Fibonacci-sequence/Visual-Basic-.NET/fibonacci-sequence-2.visual
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
131 B
Text

Function Seq(ByVal Term As Integer)
If Term < 2 Then Return Term
Return Seq(Term - 1) + Seq(Term - 2)
End Function