Imports System

Public Module volume_of_a_sphere

    Public Sub Main()

        dim volume as decimal 

        dim radius as decimal 

        dim pi as decimal=3.14159

         Function Area(ByVal radius As Double) As Double

        Return Math.PI * Math.Pow(radius, 2)

    End Function

​

    Sub Main()

        Dim a As Double = Area(4.0)

        Console.WriteLine(a)

    End Sub

        console.writeline("enter radius")

        radius=console.readline()

        volume=(4/3)*pi*radius^3

        console.writeline("................................")

        console.writeline("volume is")

        console.write(volume):console.writeline(" cm cubed")

        console.writeline("................................") 

    End Sub

End Module