Программа 20.29. Объявление семейства

Программа 20.29. Объявление семейства

Sub BooksCollection()

Dim Books As New Collection

Dim Novikov As New Person

Dim Vba As New Book

Novikov.perslnit "Novikov", #10/10/1951#, True

Vba.booklnit "VBA и разработка приложений в Office 2000", Novikov

Books.Add Vba, "VBprog"

Dim Office As New Book

Office.booklnit "Microsoft Office 2001 в целом", Novikov

Books.Add Office, "off"

Dim Stroustrup As New Person

Dim С As New Book

Stroustrup.perslnit "Stroustrup", #11/25/1947#

C.booklnit "C++ Programming", Stroustrup

Books.Add C, "Cprog", 2

Books.Remove "Cprog" For i = 1 To Books.Count

Books.Item(i).bookPrint Next i End Sub

На этом мы заканчиваем описание языка VBA, считая, что вы готовы к его полноценному использованию, и переходим к описанию редактора Visual Basic Editor.