Question

How to implement the power function in VB.NET

Answer 1

Imports System

Module PowerCalculation
    ' Function to compute integer exponentiation
    Function MyPow(baseValue As Double, exponent As Integer) As Double
        Dim result As Double = 1

        While exponent > 0
            If (exponent And 1) = 1 Then
                result *= baseValue
            End If
            exponent >>= 1
            baseValue *= baseValue
        End While

        Return result
    End Function

    Sub Main()
        Console.WriteLine(MyPow(2, 3))  ' 8
        Console.WriteLine(MyPow(3, 3))  ' 27
        Console.WriteLine(MyPow(3, 2))  ' 9
        Console.WriteLine(MyPow(2, 2))  ' 4
        Console.WriteLine(MyPow(5.0, 2))  ' 25
        Console.WriteLine(MyPow(-2, 4)) ' 16
    End Sub
End Module


 
' run:
'
' 8
' 27
' 9
' 4
' 25
' 16
'

 

70+ SQL courses for beginners and professionals