vb冒泡排序代码是什么？

冒泡排序法：\x0d\x0a\x0d\x0aOption Explicit\x0d\x0a\x0d\x0aPrivate Sub Form_Click()\x0d\x0aConst N = 10\x0d\x0aDim i%, a(1 To N), m%, j%, t%\x0d\x0aRandomize\x0d\x0a\x0d\x0aFor i = 1 To N '随机输出10个1位数\x0d\x0aa(i) = Int(Rnd * 9 + 1)\x0d\x0aPrint a(i)\x0d\x0aNext i\x0d\x0aPrint\x0d\x0a\x0d\x0aFor i = 1 To N - 1 '采用冒泡排序\x0d\x0a For j = 1 To N - 1\x0d\x0a If a(j) >a(j + 1) Then\x0d\x0at = a(j): a(j) = a(j + 1): a(j + 1) = t\x0d\x0a End If\x0d\x0aNext j\x0d\x0a Next i\x0d\x0a\x0d\x0aFor i = 1 To N '输出排序后的数字\x0d\x0aPrint a(i)\x0d\x0aNext i\x0d\x0aPrint

冒泡排序法思路：（假设有10个数，需要从小到大排）首先拿出第一个来和其他9个逐个来比较，这样就可以找到10个中最小的，放到第一位；接着拿第二个来和其他8个逐个比较，这样就可以找到剩下9个中得最小的，放到第二位；接着拿第三个来和其他7个逐个比较，这样就可以找到剩下8个中得最小的，放到第三位；。。。。。。就可以了。也许下面的看了会更清楚点 Dim a(10)Randomize

For i = 1 To 10

a(i) = Int(Rnd * i + 3 + Rnd * 10) '给数组赋值

Print a(i)

Next i

Print

For i = 1 To 10 ‘

For j = i + 1 To 10

If a(j) <a(i) Then ’如果剩余的比a(i)小的话，就交换

t = a(j)

a(j) = a(i)

a(i) = t

End If

Next j

Next i

For k = 1 To 10

Print a(k) ‘打印排好的数

Next k

Print

---