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

下面哪种描述不符合股票的定义（）

A.股票是一种有价证券

B.股票是股份有限公司发行的凭证

C.股票是证明投资者权益的凭证

D.股票发行人定期支付利息并到期偿付本金