求VB冒泡排序法的代碼？Dim i， j， intmin As Integer， n As IntegerDim sngsq()， sngt As Single "輸入原始數(shù)據(jù)n = Val(In

求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)