當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

用VB实现循环队列算法收藏

發布時間：2025/3/20 编程问答 16 豆豆

生活随笔收集整理的這篇文章主要介紹了用VB实现循环队列算法收藏小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

??? 在日常代碼編制時，許多人會忽略一些最基本的算法，導致代碼冗余，思路不清楚。我曾經至少兩次在CSDN里遇到這類問題：我想在頁面的右邊顯示一個列表，列表長度為20，新加入一個用戶后，顯示在列表開頭，再加入的用戶，顯示在這個用戶的下邊，當用戶數量超過20后，擠掉最前面的那一位，第二位加入的用戶成了第一位，依次循環，保證列表最多顯示20位用戶。當然，實際問題可能與此有些出入，比如Coder是想顯示網友們最近選擇的歌曲列表，但實際意思差不多。

??? 面對這個問題，大多數朋友會想到使用數據。其實，這完全是一個隊列，只不過，這個隊列可以循環使用，在加入隊列元素時，如果超過長度，會自動擠掉最先加入的。如果能夠用代碼直接實現，為什么要用數據庫呢？考慮一下，為了提高網站性能，我們絞盡腦汁，卻往往因為思路的偏差，導致性能降低。

??? 那么，在VB中如何實現可循環的隊列呢？

??? 為此，我編寫了一個循環隊列類，以滿足上述需要，同時為了方便在HTML、ASP、WSH的VBScript腳本語言環境中使用，該類未聲明任何數據類型。

??? 首先看一下該循環隊列類的源代碼：

'* ************************************************************** *??
'*??? 程序名稱：Queue.cls??
'*??? 程序功能：一個VB循環隊列類??
'*??? 作者：lyserver??
'*??? 聯系方式：http://blog.csdn.net/lyserver??
'* ************************************************************** *??
'Class Queue '在ASP、WSH、HTML的VBScript腳本中使用時需加此句??
??? Dim m_Queue() '隊列??
??? Dim m_RetQueue() '隊列返回值??
??? Dim m_ReadIndex '列首偏移索引??
??? Dim m_WriteIndex '元素插入偏移索引??
??? Dim m_MaxLen '隊列最大尺寸??
??????
??? Private Sub Class_Initialize()??
??????? m_ReadIndex = 0??
??????? m_WriteIndex = 0??
??????? m_MaxLen = 20 '隊列默認大小為20??
??????? ReDim m_Queue(m_MaxLen - 1)??
??? End Sub?
??????
??? Private Sub Class_Terminate()??
??????? Erase m_Queue??
??????? Erase m_RetQueue??
??? End Sub?
??????
??? '獲得隊列大小??
??? Public Property Get MaxLen()??
??????? MaxLen = m_MaxLen??
??? End Property?
??????
??? '設置隊列大小??
??? Public Property Let MaxLen(ByVal NewValue)??
??????? If NewValue > 0 Then?
??????????? m_MaxLen = NewValue??
??????????? ReDim m_Queue(m_MaxLen)??
??????? End If?
??? End Property?
??????
??? '插入隊列元素??
??? Public Sub Insert(ByVal v)??
??????? If m_WriteIndex = m_MaxLen Then '隊列已滿，擠掉最先插入的元素??
??????????? m_WriteIndex = 0??
??????????? m_ReadIndex = (m_ReadIndex + 1) Mod m_MaxLen??
??????? End If?
??????? m_Queue(m_WriteIndex) = v??
??????? m_WriteIndex = m_WriteIndex + 1??
??? End Sub?
??????
??? '刪除隊列元素（按隊列原則，實際上是刪除最先插入的元素）??
??? Public Sub Delete()??
??????? Dim vTemp??
??????? m_Queue(m_ReadIndex) = vTemp '將此變量置為未初始化??
??????? m_ReadIndex = (m_ReadIndex + 1) Mod m_MaxLen??
??? End Sub?
??????
??? '清空隊列??
??? Public Sub Clear()??
??????? ReDim m_Queue(m_MaxLen)??
??????? m_WriteIndex = 0??
??????? m_ReadIndex = 0??
??? End Sub?
??????
??? '獲得隊列數組??
??? Public Property Get GetQueue()??
??????? Dim i, n??
??????????
??????? n = 0??
??????? ReDim m_RetQueue(m_MaxLen)??
??????? For i = m_ReadIndex To m_MaxLen - 1??
??????????? If IsEmpty(m_Queue(i)) Then Exit For?
??????????? m_RetQueue(n) = m_Queue(i)??
??????????? n = n + 1??
??????? Next?
??????? For i = 0 To m_ReadIndex - 1??
??????????? If IsEmpty(m_Queue(i)) Then Exit For?
??????????? m_RetQueue(n) = m_Queue(i)??
??????????? n = n + 1??
??????? Next?
??????? GetQueue = m_RetQueue??
??? End Property?
'End Class '在ASP、WSH、HTML的VBScript腳本中使用時需加此句?
'* ************************************************************** *
'*??? 程序名稱：Queue.cls
'*??? 程序功能：一個VB循環隊列類
'*??? 作者：lyserver
'*??? 聯系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
'Class Queue '在ASP、WSH、HTML的VBScript腳本中使用時需加此句
??? Dim m_Queue() '隊列
??? Dim m_RetQueue() '隊列返回值
??? Dim m_ReadIndex '列首偏移索引
??? Dim m_WriteIndex '元素插入偏移索引
??? Dim m_MaxLen '隊列最大尺寸
???
??? Private Sub Class_Initialize()
??????? m_ReadIndex = 0
??????? m_WriteIndex = 0
??????? m_MaxLen = 20 '隊列默認大小為20
??????? ReDim m_Queue(m_MaxLen - 1)
??? End Sub
???
??? Private Sub Class_Terminate()
??????? Erase m_Queue
??????? Erase m_RetQueue
??? End Sub
???
??? '獲得隊列大小
??? Public Property Get MaxLen()
??????? MaxLen = m_MaxLen
??? End Property
???
??? '設置隊列大小
??? Public Property Let MaxLen(ByVal NewValue)
??????? If NewValue > 0 Then
??????????? m_MaxLen = NewValue
??????????? ReDim m_Queue(m_MaxLen)
??????? End If
??? End Property
???
??? '插入隊列元素
??? Public Sub Insert(ByVal v)
??????? If m_WriteIndex = m_MaxLen Then '隊列已滿，擠掉最先插入的元素
??????????? m_WriteIndex = 0
??????????? m_ReadIndex = (m_ReadIndex + 1) Mod m_MaxLen
??????? End If
??????? m_Queue(m_WriteIndex) = v
??????? m_WriteIndex = m_WriteIndex + 1
??? End Sub
???
??? '刪除隊列元素（按隊列原則，實際上是刪除最先插入的元素）
??? Public Sub Delete()
??????? Dim vTemp
??????? m_Queue(m_ReadIndex) = vTemp '將此變量置為未初始化
??????? m_ReadIndex = (m_ReadIndex + 1) Mod m_MaxLen
??? End Sub
???
??? '清空隊列
??? Public Sub Clear()
??????? ReDim m_Queue(m_MaxLen)
??????? m_WriteIndex = 0
??????? m_ReadIndex = 0
??? End Sub
???
??? '獲得隊列數組
??? Public Property Get GetQueue()
??????? Dim i, n
???????
??????? n = 0
??????? ReDim m_RetQueue(m_MaxLen)
??????? For i = m_ReadIndex To m_MaxLen - 1
??????????? If IsEmpty(m_Queue(i)) Then Exit For
??????????? m_RetQueue(n) = m_Queue(i)
??????????? n = n + 1
??????? Next
??????? For i = 0 To m_ReadIndex - 1
??????????? If IsEmpty(m_Queue(i)) Then Exit For
??????????? m_RetQueue(n) = m_Queue(i)
??????????? n = n + 1
??????? Next
??????? GetQueue = m_RetQueue
??? End Property
'End Class '在ASP、WSH、HTML的VBScript腳本中使用時需加此句
?

??? 然后，我們再來看一下在VB中如何使用此類：

Sub main()??
??? Dim objQueue??
??? Dim i, nLen??
??????
??? Set objQueue = New Queue??
??? '將隊列長度置為5??
??? nLen = 5??
??? objQueue.MaxLen = nLen??
??????
??? '向隊列插入元素（不超過隊列長度）??
??? For i = 1 To nLen??
??????? objQueue.Insert i??
??? Next?
??? '顯示結果??
??? DisplayQueue objQueue??
?
??? '清空隊列后重新插入元素（超過隊列長度）??
??? objQueue.Clear??
??? For i = 1 To nLen + 1??
??????? objQueue.Insert i??
??? Next?
??? '顯示結果??
??? DisplayQueue objQueue??
??????
??? '刪除隊列元素??
??? objQueue.Delete??
??? '顯示結果??
??? DisplayQueue objQueue??
End Sub?
?
Private Sub DisplayQueue(qu)??
??? Dim v(), i??
??? v = qu.GetQueue??
??? For i = 0 To qu.MaxLen - 1??
??????? If IsEmpty(v(i)) Then Exit For?
??????? Debug.Print "第" & i + 1 & "個元素的值：", v(i)??
??? Next?
??? Debug.Print "------顯示完畢------"?
End Sub?
Sub main()
??? Dim objQueue
??? Dim i, nLen
???
??? Set objQueue = New Queue
??? '將隊列長度置為5
??? nLen = 5
??? objQueue.MaxLen = nLen
???
??? '向隊列插入元素（不超過隊列長度）
??? For i = 1 To nLen
??????? objQueue.Insert i
??? Next
??? '顯示結果
??? DisplayQueue objQueue

??? '清空隊列后重新插入元素（超過隊列長度）
??? objQueue.Clear
??? For i = 1 To nLen + 1
??????? objQueue.Insert i
??? Next
??? '顯示結果
??? DisplayQueue objQueue
???
??? '刪除隊列元素
??? objQueue.Delete
??? '顯示結果
??? DisplayQueue objQueue
End Sub

Private Sub DisplayQueue(qu)
??? Dim v(), i
??? v = qu.GetQueue
??? For i = 0 To qu.MaxLen - 1
??????? If IsEmpty(v(i)) Then Exit For
??????? Debug.Print "第" & i + 1 & "個元素的值：", v(i)
??? Next
??? Debug.Print "------顯示完畢------"
End Sub
?

??? 看過了VB使用方法后，我們再來看一下在HTML的VBScript腳本中如何使用，需要注意的是，要想測試結果，必須將以下代碼復制到記事本后另存為擴展名為html或htm的文件，然后使用IE打開，對于類代碼，讀者也可以單獨取出來存為vbs文件，然后html里包含它就可以了。至于ASP，思路與此完全一樣。

<html>?
?
<head>?
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">?
<title>新建網頁 1</title>?
</head>?
?
<body>?
</body>?
</html>?
<mce:script language=vbscript></mce:script>?
<html>

<body>
</body>
</html>
<mce:script language=vbscript><!--
Option Explicit
'* ************************************************************** *
'*??? 程序名稱：Queue.cls
'*??? 程序功能：一個VB循環隊列類
'*??? 作者：lyserver
'*??? 聯系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Class Queue
?Dim m_Queue() '隊列
?Dim m_RetQueue() '隊列返回值
?Dim m_ReadIndex '列首偏移索引
?Dim m_WriteIndex '元素插入偏移索引
?Dim m_MaxLen '隊列最大尺寸
?
?Private Sub Class_Initialize()
???? m_ReadIndex = 0
???? m_WriteIndex = 0
???? m_MaxLen = 20 '隊列默認大小為20
???? ReDim m_Queue(m_MaxLen - 1)
?End Sub
?
?Private Sub Class_Terminate()
???? Erase m_Queue
???? Erase m_RetQueue
?End Sub
?
?'獲得隊列大小
?Public Property Get MaxLen()
???? MaxLen = m_MaxLen
?End Property
?
?'設置隊列大小
?Public Property Let MaxLen(ByVal NewValue)
???? If NewValue > 0 Then
???????? m_MaxLen = NewValue
???????? ReDim m_Queue(m_MaxLen)
???? End If
?End Property
?
?'插入隊列元素
?Public Sub Insert(ByVal v)
???? If m_WriteIndex = m_MaxLen Then '隊列已滿，擠掉最先插入的元素
???????? m_WriteIndex = 0
???????? m_ReadIndex = (m_ReadIndex + 1) Mod m_MaxLen
???? End If
???? m_Queue(m_WriteIndex) = v
???? m_WriteIndex = m_WriteIndex + 1
?End Sub
?
?'刪除隊列元素（按隊列原則，實際上是刪除最先插入的元素）
?Public Sub Delete()
???? Dim vTemp
???? m_Queue(m_ReadIndex) = vTemp '將此變量置為未初始化
???? m_ReadIndex = (m_ReadIndex + 1) Mod m_MaxLen
?End Sub
?
?'清空隊列
?Public Sub Clear()
???? ReDim m_Queue(m_MaxLen)
???? m_WriteIndex = 0
???? m_ReadIndex = 0
?End Sub
?
?'獲得隊列數組
?Public Property Get GetQueue()
???? Dim i, n
????
???? n = 0
???? ReDim m_RetQueue(m_MaxLen)
???? For i = m_ReadIndex To m_MaxLen - 1
???????? If IsEmpty(m_Queue(i)) Then Exit For
???????? m_RetQueue(n) = m_Queue(i)
???????? n = n + 1
???? Next
???? For i = 0 To m_ReadIndex - 1
???????? If IsEmpty(m_Queue(i)) Then Exit For
???????? m_RetQueue(n) = m_Queue(i)
???????? n = n + 1
???? Next
???? GetQueue = m_RetQueue
?End Property

End Class

Sub window_onload
??? Dim objQueue
??? Dim i, nLen

??? Set objQueue=New Queue

??? '將隊列長度置為5
??? nLen = 5
??? objQueue.MaxLen = nLen
???
??? '向隊列插入元素（不超過隊列長度）
??? For i = 1 To nLen
??????? objQueue.Insert i
??? Next
??? '顯示結果
??? DisplayQueue objQueue

Sub DisplayQueue(qu)
??? Dim v,i
??? v = qu.GetQueue
??? For i = 0 To qu.MaxLen - 1
??????? If IsEmpty(v(i)) Then Exit For
??????? document.write "第" & i + 1 & "個元素的值：" & v(i) & "<br>"
??? Next
??? document.write "------顯示完畢------<br>"
End Sub
// --></mce:script>

??? 怎么樣？如果讀者覺得不滿意，歡迎您留下寶貴的意見！

發表于 @ 2009年05月04日 00:15:00|評論(0)|舉報|收藏

本文來自CSDN博客，轉載請標明出處：http://blog.csdn.net/lyserver/archive/2009/05/04/4146805.aspx

總結

以上是生活随笔為你收集整理的用VB实现循环队列算法收藏的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。

3atv精品不卡视频,97人人超碰国产精品最新,中文字幕av一区二区三区人妻少妇,久久久精品波多野结衣,日韩一区二区三区精品

编程问答

用VB实现循环队列算法收藏

總結