http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FData_Structure%2FQueue
VB.Net/Data Structure/Queue - История изменений
2026-04-05T05:57:39Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/Data_Structure/Queue&diff=984&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/Data_Structure/Queue&diff=985&oldid=prev
Admin: 1 версия
2010-05-26T12:45:39Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Queue Demo: enqueue, dequeue and peek==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Collections<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim intQueue As New Queue( )<br />
Dim i As Integer<br />
For i = 0 To 4<br />
intQueue.Enqueue((i * 5))<br />
Next i<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue( ))<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue( ))<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
Console.WriteLine("(Peek) {0}", intQueue.Peek( ))<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
End Sub<br />
Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)<br />
Dim myEnumerator As IEnumerator = myCollection.GetEnumerator( )<br />
While myEnumerator.MoveNext( )<br />
Console.WriteLine("{0} ", myEnumerator.Current)<br />
End While<br />
Console.WriteLine( )<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Queue Item Count==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Collections<br />
Imports System.Collections.Specialized<br />
<br />
Public Class MainClass<br />
<br />
Shared Sub Main(ByVal args As String())<br />
Dim m_Queue As New Queue<br />
m_Queue.Enqueue("Text")<br />
m_Queue.Enqueue("Text")<br />
m_Queue.Enqueue("Text")<br />
Dim txt As String = DirectCast(m_Queue.Dequeue(), String)<br />
Console.WriteLine(txt)<br />
For Each str As String In m_Queue.ToArray()<br />
Console.WriteLine(str)<br />
Next str<br />
Console.WriteLine(m_Queue.Count )<br />
<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Simple Demo for Queue: Enqueue, Dequeue and Peek==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Collections<br />
<br />
Public Class MainClass<br />
Shared Sub Main(ByVal args As String())<br />
Dim intQueue As New Queue( )<br />
" populate the array<br />
Dim i As Integer<br />
For i = 0 To 4<br />
intQueue.Enqueue((i * 5))<br />
Next i<br />
" Display the Queue.<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
" Remove an element from the queue.<br />
Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue( ))<br />
" Display the Queue.<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
" Remove another element from the queue.<br />
Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue( ))<br />
" Display the Queue.<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
" View the first element in the<br />
" Queue but do not remove.<br />
Console.WriteLine("(Peek) {0}", intQueue.Peek( ))<br />
" Display the Queue.<br />
Console.WriteLine("intQueue values:")<br />
DisplayValues(intQueue)<br />
End Sub<br />
Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)<br />
Dim myEnumerator As IEnumerator = myCollection.GetEnumerator( )<br />
While myEnumerator.MoveNext( )<br />
Console.WriteLine("{0} ", myEnumerator.Current)<br />
End While<br />
Console.WriteLine( )<br />
End Sub "DisplayValues<br />
End Class<br />
<br />
</source></div>
Admin