Программа 20.6. Объявление типов
Программа 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
Содержание раздела