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
' вывод содержимого списка Рекомендуем скачать другие рефераты по теме: дипломная работа по психологии, рефераты.
Предыдущая страница реферата | 1
2
3
4
5
6
7
8
9 | Следующая страница реферата
|