Программа 20.6. Объявление типов

Public Type Person

name As String

birthday As Date End Type

Public Type Book

author As Person

title As String

content () as String End Type

Sub TypeExample()

Dim arrBook(l) As Book

arrBpok(1).author.name = "Федор Новиков"

arrBook(l).author.birthday = #10/10/1951#

arrBook(l).title = "Microsoft Office 2001 в целом"

ReDim arrBook(1).content(0 To 1)

arrBook(1).content(0) = "Введение"

MsgBox (arrBook(1).content(0)) End Sub