文章目录

• 前言
• 总结

前言

前言：VB的排序方法有好几种，冒泡排序，选择排序等等。个人觉得冒泡排序是这些排序里面最简单易懂的

Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101)           '生成0到100之间的随机数
Next
For i = 1 To 10                     '外循环每结束一次代表排好一个数
    For j = 1 To i - 1                  '排序
If a(j) > a(j + 1) Then             '每次让相邻的两个数比较
t = a(j + 1)
a(j + 1) = a(j)                        '替换
a(j) = t
Next
For i = 1 To 10
Print a(i);      '输出
Next

End Sub

这里面j=j-1 是因为每次内循环结束一次，就有一个数已经排好序了，下一次循环排序不用再去排那个数，当然，把-1去掉也是可以的。只是这时候需要把内循环的1 to 10 改成 1 to 9 因为在最后一次循环a(j)>a(j+1)时，会造成10+1 溢出的现象。

总结