在vb中用什么实现队列？

Question

考虑用Collection对象,可以添加同种或不同种的数据类型及对象实例.
如果是同种对象,例如都是某个类Class1的实例,可以用VB6自带的"类模块向导"自定义集合.
集合具备Count/Item属性,具备Add/Remove方法,可以通过Index(整数或字符串Key)来索引.另外，请顺便回复我的一个帖子：
http://www.csdn.net/expert/topic/654/654811.xml?temp=.8152735
主题：  我自认VB水平不错，请大家给我估估价！

Answer 1

下班了,手头没有现成的例子,周一再答复你!
数组比集合可能省一点资源,但是不友好.推荐用集合!
留下信箱!我的信箱:[email protected]
请在标题注明:询问VB问题(我的信箱里,垃圾占99%)记得访问我的帖子,留言!
http://www.csdn.net/expert/topic/654/654811.xml?temp=.8152735
主题：  我自认VB水平不错，请大家给我估估价！

Answer 2

数组为queue(n)自己做个入队与出队的函数queuein(),queueout()还有两个队头队尾的变量h_queue,b_queue，每当有个元素入队时用queuein(h_queue,element)存放,在函数中对h_queue加1出队时用queueout(b_queue,element)在函数中对减1.如果h_queue超过n,则h_queue=h_queue mod n ,b_queue同理.判断队列是否已满的方法是(h_queue+n)mod n <=(b_queue+n) mod n +1则满了.

Answer 3

定义一个数组，用第一个元素表示队首指针（数组下标），用第二个元素表示队尾指针。
以也假设数组定义为d(n)
进队
if d(1)=n then
   j=2
else
   j=d(1)+1
end if
if j=d(0) then    msgbox "队列已满"
   exit function
end ifd(j)=somevalue 
d(1)=j
出队
if d(0)=n then d(0)=2 else d(0)=d(0)+1
遍历
for i=d(0)to n
  ......
  .....
next
for i=2 to d(1)
  ......
  ......
next
用以上方法可以实现一个简单的数组实现循环队列。