'Visual Basic 2010 Recursie Procedures en Functies
Module Example1
    Sub Main()
        Console.WriteLine(GetFaculty(0))
        Console.WriteLine(GetFaculty(1))
        Console.WriteLine(GetFaculty(2))
        Console.WriteLine(GetFaculty(3))
        Console.WriteLine(GetFaculty(4))
        Console.WriteLine(GetFaculty(5))
        '
        Console.ReadLine()
    End Sub
    Function GetFaculty(ByVal value As Integer) As Integer
        GetFaculty = 1
        For factor As Integer = value To 2 Step -1
            GetFaculty *= factor
        Next
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.