متغیر صف Queue و پشته Stack

در Queue برای ریختن اطلاعات از Enqueue و برای گرفتن دریافت اطلاعات از Dequeue استفاده میشود. Peek نیز برای گرفتن اطلاعات بدون از بیرون کشیدن آن از صف است.

'Queue: First In First Out

Imports System.Collections

Dim q As New Queue()
q.Enqueue("Hello")
q.Enqueue("world")
q.Enqueue("just testing")
MsgBox("Queue demonstration:")
For i As Integer = 1 To 3
     ListBox1.Items.Add(q.Dequeue().ToString())
Next

خروجی در لیست باکس به ترتیب زیر خواهد بود:
Hello
world
just testing

در Stack برای ریختن اطلاعات از Push و برای گرفتن دریافت اطلاعات از Pop استفاده میشود. Peek نیز برای گرفتن اطلاعات بدون از بیرون کشیدن آن از پشته است.

'Stack: First In Last Out

Imports System.Collections
Dim s As New Stack()
s.Push("Hello")
s.Push("world")
s.Push("just testing")
MsgBox("Stack demonstration:")
For i As Integer = 1 To 3
ListBox1.Items.Add(s.Pop().ToString())
Next

خروجی در لیست باکس به ترتیب زیر خواهد بود:
just testing
world
Hello