【代码7-1】
Public Color As Long
Sub draw()
’方法体不包括可执行语句
End Sub
Sub move(stepx As Single，stepy As Smgle)
’方法体不包括可执行语句
End Sub
【代码7-2】
(1)
Private color As Long
… ‘其他定义省略
Private bridged 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 ( ) ’使用XCirele提供的显示功能
(6)
End Sub
Private Sub IShape_move (stepx As Single, stepy As Single)
… ’省略描述
End Sub
参考答案：Implemellts IShape
(2)XCirc1e
(3)New XCircle
(4)Get IShspe_Co1or
(5)Let IShspe_Co1or
(6)bridSed.displayIt
解析：
[分析]：
在VB中，抽象类模块只包含属性和方法的定义，而不包括任何可执行代码。本题目中定义的抽象类Ishape中定义了一个属性color、两个方法draw和move。
在实现界面时，需要在有Ishape界面的类模块的说明段中添加一个Implements关键字，因此空(1)处应填入“Implemems IShape"。根据试题中的说明部分可知，类CCircle中要使用XCircle提供的显示功能，需声明XCircle的实例变量并生成和引用实例对象，因此空(2)处应填入“XCircle”，空(3)处填入“New XCircle”，空(6)处填入“bridged.displaylt”。
由“color=newColor”可知，空(5)处所在的Property过程使CCircle的私有数据成员color取得外部设置的newColor值，因此空(5)填入“Let IShape Color"。
同理由“IShape_Color=color”可知，空(4)处所在的Property过程使IShape_Color取得CCircle的私有数据成员color的值，因此空(4)填入“Get IShape Color”。