'Visual Basic 2010 Recursie Procedures en Functies
Module Example4
    Sub Main()
        Console.WriteLine(GetPower(2, 3))
        Console.WriteLine(GetPower(2, 2))
        Console.WriteLine(GetPower(2, 1))
        Console.WriteLine(GetPower(2, 0))
        Console.WriteLine(GetPower(2, -1))
        Console.WriteLine(GetPower(2, -2))
        Console.WriteLine(GetPower(2, -3))
        '
        Console.ReadLine()
    End Sub
    '
    Function GetPower(ByVal base As Integer, _
                      ByVal exponent As Integer) As Integer
        If exponent = 0 Then
            GetPower = 1
        ElseIf exponent > 0 Then
            GetPower = base * GetPower(base, exponent - 1)
        ElseIf exponent < 0 Then
            GetPower = 1 / GetPower(base, -exponent)
        End If
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.