设计一个圆类CIRCLE

发布网友发布时间：2023-05-03 09:59

共1个回答

热心网友时间：2023-10-19 10:06

Mole Mole1

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

End Mole

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com