FUNCION DE UN EXPONENTE ELEVADO A UN NÚMERO NEGATIVO

FUNCION DE UN EXPONENTE ELEVADO A UN NÚMERO NEGATIVO

Module Module1

Sub Main()

Dim base As Integer

Dim exponente As Integer

Dim resultado As Double

Console.Write(" ingrese la base ")

base = Console.ReadLine

Console.Write(" ingrese el exponente ")

exponente = Console.ReadLine

resultado = proceso(base, exponente)

Console.Write(resultado)

Console.ReadLine()

End Sub

Function proceso(ByVal base As Integer, ByVal exponente As Integer) As Double

Dim i As Integer

Dim r As Integer

Dim acu As Double

acu = 1

If exponente < 0 Then

For r = exponente To -1

acu = acu * (1 / base)

Next

Else

If exponente > 0 Then

For i = 1 To exponente

acu = acu * base

Next

End If

End If

proceso = acu

End Function

End Module

...