**如下：
option explicit
dim aa() as string, bb() as double
sub bubblesort(list() as double) '氣泡排序演算法
dim first as double, last as double '開始,結束
dim i as integer, j as integer
dim temp as double ' 交換位置的臨時變數
first = lbound(list)
last = ubound(list)
for i = first to last - 1
for j = i + 1 to last
if list(i) > list(j) then '如果這個數大於下乙個數
temp = list(j) '交換位置
list(j) = list(i)
list(i) = temp
end if
next j
next i
end sub
private sub command1_click()
dim i as long
aa = split(text1.text, ",") '取得運算元
redim bb(ubound(aa))
for i = 0 to ubound(aa)
bb(i) = cdbl(aa(i)) '轉換為數字型別
next
bubblesort bb '呼叫排序演算法函式
text2.text = ""
for i = 0 to ubound(bb) '顯示結果
text2.text = text2.text & " <" & bb(i)
next
end sub
private sub form_load()
text1.text = "1,2,5,4,8,7,1.2,3.6,78"
end sub
相關文章參考
： ※vb
陣列快速排序演算法 ※
加密演算法
-md5演算法
演算法 冒泡演算法
冒泡演算法 英語 bubble sort 是一種簡單的排序演算法。它重複的遍歷要排序的數列，一次比較兩個元素，如果它們的順序錯誤，就把它們交換過來。遍歷數列的工作是重複地進行直到沒有再需要交換，也就是說該數列已經排序完成。這個演算法的名字由來是因為越小的元素會經由交換慢慢 浮 到數列的頂端。氣泡排序...
Python演算法 冒泡演算法
氣泡排序的思想 每次比較兩個相鄰的元素,如果他們的順序錯誤就把他們交換位置 比如有五個數 12,35,99,18,76,從大到小排序,對相鄰的兩位進行比較 經過第一趟比較後,五個數中最小的數已經在最後面了,接下來只比較前四個數,依次類推 99,35,76,18,12 99,76,35,18,12 9...
優化演算法 冒泡演算法
關於排序其實有很多演算法，冒泡使用是非常廣泛，也很易於理解，經過研究，我發現，冒泡可以有更優化的演算法 首先先來看一下冒泡的流程 可以看到，一共輸出是36個，去掉最終結果8個也就是28個，就是說冒泡至少需要n 1 n 2 1.那麼我嗯可以通過列印看到有些對比是重複的資料，沒必要出現的，那麼怎麼規避呢...