设计一个圆类CIRCLE

来源：百度知道 编辑：UC知道 时间：2024/06/02 03:05:09
要求：该类的浮点型私有成员radius代表半径；area代表面积。构造函数radius赋初值。公有成员函数set（）可为radius赋值；show（）显示radius和area的值，折构函数显示字符串“Goodbye”。另外设计程序主函数，应能测试上述成员所有功能。

Module Module1

Sub Main()
Dim c As New Circle
c.SetRadius(1)
c.Show()
End Sub

End Module

Public Class Circle
Private radius As Double
Private area As Double
Public Sub New()
radius = 0.0
area = Math.PI * radius ^ 2
End Sub

Public Sub SetRadius(ByVal R As Double)
radius = R
area = Math.PI * radius ^ 2
End Sub

Public Sub Show()
Console.WriteLine("半径:" & radius)
Console.WriteLine("面积:" & area)
End Sub

Protected Overrides Sub Finalize()
MyBase.Finalize()
Console.WriteLine("Good Bye!")
Console.Read()
End Sub
End Class