Реализация связанных списков на базе массивов (стр. 2 из 2)

Sub Test() Dim i As Integer Dim list1 As MyLinkedList Set list1 = New MyLinkedListlist1.CreateLinkedList 3 ' вывод количества элементовDebug.Print "count of elems = ", list1.GetCount - 1' заполнение списка случайными числами RandomizeFor i = 1 To 5 list1.AddItem Rnd() * 100Next i ' вывод содержимого спискаlist1.MoveFront Do Until list1.IsEndOfList Debug.Print list1.ReadItem list1.MoveNext Loop ' выводколичестваэлементов Debug.Print "count of elems = ", list1.GetCount - 1' удаление первого элемента list1.MoveFront list1.RemoveItem ' вывод содержимого списка list1.MoveFront Do Until list1.IsEndOfList Debug.Print list1.ReadItem list1.MoveNextLoop ' вывод содержимого 2-го элементаDebug.Print list1.ReadItem(2)End Sub

Список литературы

Д. Кнут. Искусство программирования. (3-е издание) Т.1.

А.Г. Кушниренко, Г.В. Лебедев. Программирование для математиков. М: Наука. 1988, стр. 202-210.