Sub Test()

    Dim i As Integer

    Dim list1 As MyLinkedList

    Set list1 = New MyLinkedList

    list1.CreateLinkedList 3

    ' вывод количества элементов

    Debug.Print "count of elems = ", list1.GetCount - 1

    ' заполнение списка случайными числами

 Randomize

    For i = 1 To 5

        list1.AddItem Rnd() * 100

    Next 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

    ' вывод содержимого списка

Поделитесь этой записью или добавьте в закладки