[function] Simple funcion de potenciacion

[_katze_]

en estas horas me puse a tratar de mejorar algo que hicimos en clase algo muy simple para calentar la mano y para ir poniendo algo en la seccion les dejo esta function simple pero funcional.

Código: (vb) [Seleccionar]

Public Function VsPotencia(ByVal vdNum As Double, ByVal vdExpon As Double) As String
        Dim vsRes As String = String.Empty
        'verificamos que sean positivos.-
        If vdNum < 0 Then
            'si no lo son lo convetimos a positivo.
            vdNum = Math.Abs(vdNum)
            'convertimos el resultado al tipo string, mientras con pow elevamos al exponente 3
            vsRes = CType(Math.Pow(vdNum, vdExpon), String)
            'esto es lo mismo para cualkier caso vsRes = CStr(Math.Pow(vdNum, 3))
        Else
            vsRes = CType(Math.Pow(vdNum, 3), String)
        End If
        Return vsRes
    End Functiondevuelve el resutado en una string por lo q asi me pedian pero obvio que podemos cambiarlo por otro tipo de datos