Imports System
Public Class Program
Public Shared Function factorial(ByVal n As Integer) As Integer
Return If((n = 1 OrElse n = 0), 1, n * factorial(n - 1))
End Function
Public Shared Sub Main()
Dim n As Integer = 5
Console.Write(factorial(n))
End Sub
End Class
' run:
'
' 120
'