Программа 20.23. Встраивание классов

Программа 20.23. Встраивание классов

Dim author As New Person Private title As String

Public Sub booklnit (str As String, persObject As Person)

title = str

Set author = persObject End Sub

Public Sub bookPrint() Dim str As String

str = "Book title is " & title & Chr(13) & "Written by " & author.name

MsgBox(str) End Sub

Покажем использование объектов класса Book, изменив код программы 20.22 следующим образом: