阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中(1)～(6)空缺处的语句填写完整。【说明】某绘图系统定义了一个抽象类Ishape，现有3个类Cpoint，CLine和Ccircle，它们都具有IShape界面。相应的类图关系如图5-11所示。已知某第三方库已经提供了XCircle类，且完全满足CCircle图元显示时所需的功能。【Visual Basic代码6-1】是抽象类IShape类模块内容。【Visual Basic代码6-2】实现了

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中(1)～(6)空缺处的语句填写完整。

【说明】

某绘图系统定义了一个抽象类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