Imports System.IO
Module Module1
Sub Main()
Dim n As Integer
Try
Console.Write("Enter a number: ")
n = Convert.ToInt32(Console.ReadLine())
Console.WriteLine("Factorial of {0} is: {1}", n, recursiveFactorial(n))
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
Function recursiveFactorial(n As Integer) As Long
If (n = 0) Then
Return 1
Else
Return (n * recursiveFactorial(n - 1))
End If
End Function
' run:
'
' Enter a number: 5
' Factorial of 5 is: 120
End Module