Реферат: Реализация связанных списков на базе массивов

BEFORE = Refs(i)

Link AFTER, BEFORE

PutSpace i

Count = Count – 1

Else

Err.Raise vbObjectError + 513, , "List is empty"

End If

End Sub

' прочитать значение элемента из списка

' если параметр Index отсутствует или

' не является порядковым номером эелемента списка

' то возвращается значение элемента перед указателем

' в противном случае возвращается значение элемента

' спорядковымномеромIndex

Function ReadItem(Optional Index As Integer = -1) As Double

If Not (Index >= 0 And Index < Count) Then

If IsEndOfList Then

ReadItem = Elems(AFTER)

Else

ReadItem = Elems(BEFORE)

End If

Else

Dim i As Integer, k As Integer

k = NullElem

For i = 0 To Index

k = Refs(k)

Next i

ReadItem = Elems(k)

End If