potencia y cuadrado

[.seb]

Aunque también podrías implementar tu propia potencia...

Código:

    Private Function elevadoALa(ByVal i As Int32, ByVal j As Int32) As Int32
        Dim res As Int32 = 1
        Dim x As Int32

        For x = 1 To j
            res = res * i
        Next

        Return res

    End Function

;)