VB解析冒泡排序為什么內(nèi)循環(huán)要8-i輸入8個數(shù)字，從小到大，用冒泡排序Dim a(10) As IntegerPrivate Sub Command1_Click()For i = 1 To 8x = Int(90 * Rnd) + 10a(i) = xText1 = Text1 & x & " "Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 7 '外循環(huán)，冒泡排序這一句有什么用For j = 1 To 8 - i '內(nèi)循環(huán)，冒泡排序這一句有什么用 為什么要8-i,If a(j) > a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iFor i = 1 To 8Text2 = Text2 & a(i) & " "Next iEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""End Sub
2 回答
RISEBY
TA貢獻(xiàn)1856條經(jīng)驗 獲得超5個贊
冒泡排序（Bubble Sort），是一種計算機(jī)科學(xué)領(lǐng)域的較簡單的排序算法。
它重復(fù)地走訪過要排序的數(shù)列，一次比較兩個元素，如果他們的順序錯誤就把他們交換過來。走訪數(shù)列的工作是重復(fù)地進(jìn)行直到?jīng)]有再需要交換，也就是說該數(shù)列已經(jīng)排序完成。
這個算法的名字由來是因為越大的元素會經(jīng)由交換慢慢“浮”到數(shù)列的頂端，故名。每一輪外循環(huán)，執(zhí)行完畢后，最大的元素就會“沉”到最后，而相鄰較小的元素都會“上浮”一位。所以，第一輪，是要比較到最后一個元素；而第二輪則只要比較到倒數(shù)第二個數(shù)，……，照此類推。
For i = 1 To 7 '外循環(huán)，（每一輪循環(huán)可將此輪循環(huán)中涉及的最大元素“沉”到最后，所以共要N-1輪）
For j = 1 To 8 - i '內(nèi)循環(huán)，已確定有序的元素不再列入排序范圍，所以是到8-i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
添加回答
舉報
0/150
提交
取消