Imports System
 
Public Class Test
	Public Shared Sub Main()
		CalculatePower(5, 3) ' 125 '
		CalculatePower(8, 4) ' 4096 '
		CalculatePower(6, 2) ' 36 '
	End Sub
 
	Private Shared Function CalculatePower(Number As Integer, PowerOf As Integer) As Long
    	Dim Result As Long = Number
    	For i As Integer = PowerOf To 2 Step -1
        	Result = (Result * Number)
    	Next
    	Console.WriteLine(Result.ToString())
    	Return Result
	End Function
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlDYWxjdWxhdGVQb3dlcig1LCAzKSAnIDEyNSAnCgkJQ2FsY3VsYXRlUG93ZXIoOCwgNCkgJyA0MDk2ICcKCQlDYWxjdWxhdGVQb3dlcig2LCAyKSAnIDM2ICcKCUVuZCBTdWIKCQoJUHJpdmF0ZSBTaGFyZWQgRnVuY3Rpb24gQ2FsY3VsYXRlUG93ZXIoTnVtYmVyIEFzIEludGVnZXIsIFBvd2VyT2YgQXMgSW50ZWdlcikgQXMgTG9uZwogICAgCURpbSBSZXN1bHQgQXMgTG9uZyA9IE51bWJlcgogICAgCUZvciBpIEFzIEludGVnZXIgPSBQb3dlck9mIFRvIDIgU3RlcCAtMQogICAgICAgIAlSZXN1bHQgPSAoUmVzdWx0ICogTnVtYmVyKQogICAgCU5leHQKICAgIAlDb25zb2xlLldyaXRlTGluZShSZXN1bHQuVG9TdHJpbmcoKSkKICAgIAlSZXR1cm4gUmVzdWx0CglFbmQgRnVuY3Rpb24KRW5kIENsYXNz