Imports System
Public Module Module1
Public Function cubeRoot(n As Double) As Double
If (n >= 0) Then
return Math.Pow(n, 1/3)
else
return -Math.Pow((-n), 1/3)
End If
End Function
Public Sub Main()
Dim n As double = 0
Console.WriteLine(cubeRoot(n))
Console.WriteLine(cubeRoot(16))
Console.WriteLine(cubeRoot(-27))
Console.WriteLine(cubeRoot(64))
End Sub
End Module
' run:
'
' 0
' 2.51984209978975
' -3
' 4