Imports System
Public Class RecursiveFunctionThatCalculatePower_VB_NET
Public Shared Sub Main(ByVal args As String())
Console.WriteLine(Power(2, 3))
Console.WriteLine(Power(2, 4))
Console.WriteLine(Power(3, 2))
Console.WriteLine(Power(3, 3))
Console.WriteLine(Power(5, 4))
End Sub
Public Shared Function Power(ByVal x As Integer, ByVal y As Integer) As Integer
If y = 0 Then
Return 1
End If
Return x * Power(x, y - 1)
End Function
End Class
' run:
'
' 8
' 16
' 9
' 27
' 625
'