这道题我盯了几天了,实在是没有办法,哪位朋友帮我看一下,这里先谢过了......
Module modFree
#Region "clsShape"
Public Class clsShape
Private m_Area As Double
Private m_Sides As Integer
Public Sub New()
m_Area = 0.0
m_Sides = 0
End Sub
Public Sub New(ByVal Sides As Integer)
m_Sides = Sides
End Sub
Public Sub New(ByVal Area As Double)
m_Area = Area
End Sub
Public Sub New(ByVal Area As Double, ByVal Sides As Integer)
m_Area = Area
m_Sides = Sides
End Sub
Public Property Area() As Double
Get
Return m_Area
End Get
Set(ByVal Value As Double)
m_Area = Value
End Set
End Property
Public Property Sides() As Integer
Get
Return m_Sides
End Get
Set(ByVal Value As Integer)
m_Sides = Value
End Set
End Property
End Class
#End Region
#Region "clsTriangle"
Public Class clsTriangle
Inherits clsShape
Public Sub New()
MyBase.New(3)
End Sub
Public Sub New(ByVal Area As Double)
MyBase.New(Area, 3)
End Sub
Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional ByVal AssignToArea As Boolean = False) As Double
Dim Area As Double = (SideBase * Height) / 2
If AssignToArea Then
Me.Area = Area
End If
Return Area
End Function
End Class
#End Region
Public Sub
Dim objTriangle As New clsTriangle
Dim objShape As New clsShape
objTriangle.Area = -330
objTriangle.Sides = 5.5
objTriangle.CalculateArea(10.0, 2.5)
objShape.Area = 123
objShape.Sides = -2
objShape = CType(objShape, clsTriangle)
Console.WriteLine(TypeOf objTriangle Is clsShape)
Console.WriteLine(TypeOf objShape Is clsTriangle)
Console.WriteLine(objTriangle.Area)
End Sub
End Module
7.1 Please find the line of code from the procedure
Answer:
7.2 Please write the result output from the procedure
Answer: