中秋节快乐！高手请进，在VB中，如何实现自引用结构、链表、堆栈、队列？ 如分不够，回答正确，可再加！

Question

这些用类实现都很方便啊，实在是没什么难度的
甚至数据单元据可以是抽象类堆栈队列用强大的collection处理

Answer 1

用类模拟啊！http://zyl910vb.51.net/vb/wdzp/LineTool.htm
这个程序的坐标数据就是用 双向链表 保存的

Answer 2

建立一个类模块，命名为“ClsNode”，写上
Public Data as Long
Public NextNode as ClsNode
Private Sub Class_Terminate()
    Set NextNode=Nothing
End Sub
----------------------------------------
Dim MyNode as ClsNode
Dim TempNode as ClsNode
Dim I as longSet MyNode=New ClsNode '新建
Set TempNode=MyNode '使TempNode指向MyNode
TempNode.Data=0For I=1 to 100
    Set TempNode.NextNode=Mew ClsNode
    Set TempNode=TempNode.NextNode '指向下一个节点
    TempNode.Data=I
Next ISet TempNode=Nothing '释放访问，因为没有任何一个Object型指向对象的时候，对象才清除'插入一个节点
Set TempNode=MyNode.NextNode
Set MyNode.NextNode=New ClsNode
Set MyNode.NextNode.NextNode=TempNode
Set TempNode=MyNode.NextNode
TempNode.Data=101
Set TempNode=Nothing
'显示
Set TempNode=MyNode
Do until TempNode Is Nothing
    Debug.Print TempNode.Data
    Set TempNode=TempNode.NextNode
Loop
Set MyNode=Nothing '清除

Answer 3

好像见过有人用VB指针的。
卓博单词通
http://www.sinwas.com/leus/jabsoft.exe