Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

  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

Рекомендуем скачать другие рефераты по теме: дипломная работа по психологии, рефераты.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата