请教这个Module有没有错误，如果没有错误运行后输出什么？多谢

[xiaoxiaoisaac]

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 Main()
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

[xiaoxiaoisaac]

还是有些懵懵懂懂的，分数奉上

[xiaoxiaoisaac]

没有人知道吗？请各位帮帮忙，实在是没辙了，多谢了

[wzuomin]

clsTriangle Inherits clsShape
觉得
objShape = CType(objShape, clsTriangle) 这句不行吧

[xiaoxiaoisaac]

那应该怎样改？？？这句错在哪里？？？能不能仔细说说？

[xiaoxiaoisaac]

没有其他的朋友知道了吗？大家帮帮忙，多谢了

[3tzjq]

你的Sides属性是Int32类型，而在objTriangle.Sides = 5.5 却赋予的是Double类型，语法上就这个错误。


Console.WriteLine(TypeOf objTriangle Is clsShape) 'return true
Console.WriteLine(TypeOf objShape Is clsTriangle) 'return false
Console.WriteLine(objTriangle.Area) 'return -330