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
Comments
0 B
|👍
/👎