1
2
3
4
5
6
7
8
9
10
11
12
13

Public Class Circle
    Public Shared Function GetCircleLength(ByVal Diameter As Double) As Double
        Return Diameter * Math.PI
    End Function

    Public Shared Function GetCircleArea(ByVal Radius As Double) As Double
        Return Math.Pow(Radius, 2) * Math.PI
    End Function

    Public Shared Function GetCircleDiameter(ByVal Area As Double) As Double
        Return Math.Sqrt((Area / Math.PI))
    End Function
End Class