【说明】 某绘图系统定义了一个抽象类Ishape，现有3个类Cpoint，CLine

题目：

【说明】 某绘图系统定义了一个抽象类Ishape，现有3个类Cpoint，CLine和Ccircle，它们都具有IShape界面。相应的类图关系如图5-11所示。

已知某第三方库已经提供了XCircle类，且完全满足CCircle图元显示时所需的功能。【Visual Basic代码6-1】是抽象类IShape类模块内容。【Visual Basic代码6-2】实现了类CCircle的IShape界面，并使用了XCircle提供的显示功能。 XCircle提供的显示功能方法接口为displayIt。 【Visual Basic代码6-1】 Publie Color As Long Sub draw()’方法体不包括可执行语句 End Sub Sub move(stepx As Single, stepy As Single)’方法体不包括可执行语句 End Sub 【Visual Basic代码6-2】 (1) Private color As Long … ’其他定义省略 Private ridged As (2) Private Sub Class_Initialize() Set bridged= (3) End Sub Private Property (4) ()As Long IShape_Color=color End Property Private Property (5) (ByVal newColor As Long) Color=newColor End Property Private Sub IShape_draw() 使用XCircle提供的显示功能 (6) End Sub Private Sub IShape_move(stepx As Single, stepy As Single) … ’省略描述 End Sub