冒泡排序:
Dim liSort() As Short = {5, 3, 1, 7, 6, 11, 234, 23, 1, 543}
Dim j As Short = 0
Dim liTemp As Short = 0
第一层循环控制,一共要比较多少轮。总长度 – 1 ,因为最后剩下1位,不需要再进行比较。
第二层循环控制,每一轮要比较多少次。每比较完1轮,就冒泡得到了最大的数字。最大数字不需要再加入比较。
For i = 0 To liSort.Length - 2
For j = 0 To liSort.Length - 2 - i
If liSort(j) > liSort(j + 1) Then
扫描二维码关注公众号,回复:
1557797 查看本文章
![](/qrcode.jpg)
liTemp = liSort(j)
liSort(j) = liSort(j + 1)
liSort(j + 1) = liTemp
End If
Next
Next