En kö är sätt att organisera data så att det behandlas ” Först in, först ut ”, liksom rad vid en mataffär , i motsats till en ” först in, Sist ut ” stack , som är som en bunt plattor . Även om en kö är ett grundläggande begrepp inom datavetenskap , inte genomföra Visual Basic 6 inte det inbyggt . Du kan skapa din egen kö klass från grunden och använda den istället
1
Klicka . ” Arkiv> Ny > Klassmodul ” i Visual Basic Editor och namnge den nya klassen du har skapat ” kön. ”
2
Kopiera och klistra in följande kod i den nya klassen kod fönster .
” detta är den samling som håller värden
Dim colValues Som ny samling
”Lägg till ett nytt värde till kön
Sub Enqueue ( värde As Variant )
colValues. Add värde
End Sub
” läsa nästa värde från kö och ta bort det
” väcker och fel om kön är tom
Funktion dequeue () As Variant
dequeue=colValues . Punkt (1 )
colValues. Remove 1
End Function
” Return nästa värde från kön , utan att ta bort det
” höja fel om kön är tom
Funktion Peek () As Variant
Peek=colValues. Item (1 )
End Function
” Return antalet värden i kön
Funktion Count () As Long
Räkna=colValues. Count
End Function
”klara kön
Sub Clear ( )
Set colValues=Ny samling
End Sub
3 .
Kopiera och klistra in följande kod i huvuddelen av ditt program för att skapa en ny kö och använda den :
Dim myQueue som ny kö
myQueue. Enqueue 1234
myQueue. Enqueue 5678
Debug. Print ”Count=” myQueue. Count
Debug. Print ” Peek=” myQueue. Peek
göra medan myQueue. Count
Debug. Print ” Nästa punkt=” myQueue. Dequeue
Loop
tips och varningar
コメント