冒泡排序法怎樣用偽代碼表示？參考代碼：bubblesort(A){ for i = 1 to length[A] { for j = length[A] to i 1

冒泡排序法怎樣用偽代碼表示？

參考代碼：bubblesort(A){ for i = 1 to length[A] { for j = length[A] to i 1 { if A[j] < A[j-1] { exchane A[j] and A[j-1] } } }}

求VB冒泡排序法的代碼？

Dim i， j， intmin As Integer， n As IntegerDim sngsq()， sngt As Single "輸入原始數(shù)據(jù)n = Val(InputBox("請(qǐng)輸入排序的個(gè)數(shù)N的值"))ReDim sngsq(n) "重新定義數(shù)組Print "排序前"For i = 1 To nMsgBox "請(qǐng)輸入第" & Str(i) & "個(gè)數(shù):"sngsq(i) = Val(InputBox("請(qǐng)輸入")) "將輸入的數(shù)據(jù)轉(zhuǎn)換為數(shù)值型Print sngsq(i)NextPrintPrint "排序后""排序For i = 1 To n - 1intmin = i "對(duì)第i遍排序，初始假定第i個(gè)元素最小For j = i 1 To n "找出最小的元素序號(hào)If sngsq(j)