Задача на открытое и закрытое хеширование - VB

Формулировка задачи:

Есть id студента (№зачетки) и информация о нем. Из файла взять 20 студентов и разместить в открытом хеше 10 элементов, в закрытом хеше 30 элементов. Помогите решить..

Решение задачи: «Задача на открытое и закрытое хеширование»

textual
                            Листинг программы 
                        

                             Global Const HASH_FOUND = 0
 Global Const HASH_NOT_FOUND = 1
 Global Const HASH_INSERTED = 2
 
 Private Function LocateItemUnsorted(Value As Long) As Integer
 Dim cell As ChainCell
 
 ' Получить вершину связного списка.
 Set cell = m_ListTops(Value Mod NumLists).NextCell
 Do While Not (cell Is Nothing)
 If cell.Value = Value Then Exit Do
 Set cell = cell.NextCell
 Loop
 
 If cell Is Nothing Then
 LocateItemUnsorted = HASH_NOT_FOUND
 Else
 LocateItemUnsorted = HASH_FOUND
 End If
 End Function
                        