VB.Net Tutorial/Class Module/Recursive Function
Demonstrating Fibonacci sequence recursively
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim number As Integer = 13 Console.WriteLine("Fibonacci Value is " & Fibonacci(number))
End Sub " calculate Fibonacci value recusively Shared Function Fibonacci(ByVal number As Integer) As Long " check for base cases If number = 1 OrElse number = 0 Then Return number Else Return Fibonacci(number - 1) + Fibonacci(number - 2) End If End Function " Fibonacci
End Class</source>
Fibonacci Value is 233
Recursively generates factorial of number
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim value As Integer = 12 Dim i As Integer For i = 0 To value Console.WriteLine(i & "! = " & Factorial(i)) Next End Sub Shared Function Factorial(ByVal number As Long) As Long If number <= 1 Then " base case Return 1 Else Return number * Factorial(number - 1) End If End Function " Factorial
End Class</source>
0! = 1 1! = 1 2! = 2 3! = 6 4! = 24 5! = 120 6! = 720 7! = 5040 8! = 40320 9! = 362880 10! = 3628800 11! = 39916800 12! = 479001600