如何用vb实现链表等数据结构

Question

建立一个node.cls
Public  x  As  Long  
Public  nextnode  As  node  
Dim  head  As  node  
 Dim  pointer  As  node  
 Dim  newnode  As  node  
 Dim  temp  As  node  
Private  Sub  createlist_Click()  
 Dim  n  As  node  
 Dim  i  As  Long  
 Set  head  =  New  node  
   head.x  =  8  
   Set  head.nextnode  =  Nothing  
   Set  pointer  =  head  
   For  i  =  1  To  15  
   Set  newnode  =  New  node  
     newnode.x  =  i  
     Set  newnode.nextnode  =  Nothing  
     Set  pointer.nextnode  =  newnode  
     Set  pointer  =  newnode  
   Next  i  
   
 Set  pointer  =  head  
   While  pointer.nextnode  =  head  
               Print  pointer.x  
               Set  pointer  =  pointer.nextnode  
               DoEvents  
   Wend  
End  Sub  
Private  Sub  konglianbiao_Click()  
Set  pointer  =  head  
While  Not  pointer  Is  Nothing  
       Set  temp  =  pointer  
       Set  temp  =  Nothing  
       Set  pointer  =  pointer.nextnode  
Wend  
Form1.Cls  
End  Sub  
Private  Sub  leave_Click()  
End  
End  Sub  
改一下

Answer 1

楼上的老兄太复杂了......其实很简单,自己动手就ok了...先建立一个链表的接点类,其中包括后继指针..和几个数值域...再建立一个链表类,其中包括头指针,后继指针....链表长度等等...自己动手很重要.....jvhmr(珍惜我的每一天!)