阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在答题纸的对应栏内。【说明】 某绘图系统定

Question

阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

某绘图系统定义了一个抽象类IShape，现有三个类CPoint、CLine和CCircle，它们都具有IShape界面。相应的类图关系如图7-1所示。

已知某第三方库已经提供了XCircle类，且完全满足CCircle图元显示时所需的功能。代码7-1是抽象类IShape的类模块内容，代码7-2实现了类CCircle的IShape界面，并使用了XCircle提供的显示功能。

XCimle提供的显示功能方法接口为displayIt。

【代码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

Answer 1

正确答案：(1)Implemellts IShape (2)XCirc1e (3)New XCircle (4)Get IShspe_Co1or (5)Let IShspe_Co1or (6)bridSed.displayIt
(1)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”。