Module Module1
Sub Main()
Dim exponent As Integer = 4, n As Integer = 2, i As Integer = 1
Dim power As Long = 1
While i <= exponent
power = power * n
i += 1
End While
Console.WriteLine("{0} ^ {1} = {2}", n, exponent, power)
End Sub
End Module
' run:
'
' 2 ^ 4 = 16