vbcircle.vb

来自「《CSDN 开发高手》2004年第6期」· VB 代码 · 共 25 行

Public Class VBCircle
    Implements CSharpClassNameSpace.IMyShape

    Private _radius As Single

    Property Radius() As Single
        Get
            Radius = _radius
        End Get
        Set(ByVal Value As Single)
            _radius = Value
        End Set
    End Property

    Public Sub New()
        _radius = 0
    End Sub

    Public Function Area() As Double Implements CSharpClassNameSpace.IMyShape.Area
        Return System.Math.PI * _radius * _radius
    End Function
End Class