'Visual Basic 2010 Recursie Procedures en Functies
Module Example2
    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
        If value = 0 Then
            GetFaculty = 1
        Else
            GetFaculty = value * GetFaculty(value - 1)
        End If
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.