Recursion Example

    Function Factorial(n As Integer) As Integer
        Console.WriteLine(n)
        if (n = 1) Then
            return 1
        Else
            Dim result As Integer = n * Factorial(n - 1)
            Console.WriteLine(n)
            Return result
        End If
    End Function

    Sub Main()
        Dim f As Integer = factorial(4)
        Console.WriteLine(f)
    End Sub