Imports System
Public Class Test
Public Shared Sub Main()

Console.writeline(frac(5))
End sub

Public Shared Function frac(byval n as integer)as long
Dim a as integer = 1
Dim id as integer
For id = 1 to n
a *= id
Next
Return a
End Function
End Class