先定义一个节点类.docVIP

先定义一个节点类： Node.cls ********************************************************************** 链表类**** 创建人：wkf**** 创建日期：2006-11-14 Option Explicit Public member As ObjectPublic nextNode As Node Public Sub nodeConstruction(ByRef mem As Object, Optional nextNode As Node = Nothing)? Set member = memEnd Sub 链表类： LinkedList.cls ********************************************************************** 链表类LinkedList**** 创建人：wkf**** 创建日期：2006-11-14 Option Explicit Private count As Integer 链表中元素数量Private pHead As Node? 指向表头Private pEnd As Node? 指向表尾 初始化链表Private Sub Class_Initialize()? count = 0? Set pHead = Nothing? Set pEnd = NothingEnd Sub Public Function add(obj As Object) As Boolean 将指定元素追加到末尾? On Error GoTo errHandle:? Dim nod As Node? Set nod = New Node? Call nod.nodeConstruction(obj)? If (count = 0) Then??? Set pHead = nod??? Set pEnd = nod? Else??? Set pEnd.nextNode = nod??? Set pEnd = nod? End If? count = count + 1? Exit FunctionerrHandle:?add = FalseEnd Function 将指定元素追加到某一个位置,index从零开始如果index小于零，不插入任何值如果index大于链表的长度加1，则插入到末尾Public Sub addExact(index As Integer, obj As Object)? If index 0 Then??? Exit Sub? End If? If index = count Then??? Call add(obj)??? Exit Sub? End If? Dim nod As Node? Set nod = New Node? nod.nodeConstruction (obj)? If (index = 0) Then??? Set nod.nextNode = pHead??? Set pHead = nod??? Exit Sub? End If? Dim n As Integer? Dim ps As Node? Set ps = pHead? n = 0? While n index - 1??? Set ps = ps.nextNode? Wend? Set nod.member = ps.nextNode? ps.nextNode = nodEnd Sub 清空列表Public Sub clear()? count = 0? Set pHead = Nothing? Set pEnd = NothingEnd Sub 如果此列表包含指定元素，则返回 true。Public Function contains(obj As Object) As Boolean? Dim ps As Node? Set ps = pHead? While Not (ps Is Nothing)??? If (obj Is ps.member) Then????? contains = True????? Exit Function??? Else????? Set ps = ps.nextNode??? End If? Wend? contains = FalseEnd Function 返回此列表中指定位置处的元素。Public Function getExact(index As Integer)