vb冒泡排序代码是什么？

冒泡排序法：

Option Explicit

Private Sub Form_Click()
Const N = 10
Dim i%, a(1 To N), m%, j%, t%
Randomize

For i = 1 To N '随机输出10个1位数
a(i) = Int(Rnd * 9 + 1)
Print a(i);
Next i
Print

For i = 1 To N - 1 '采用冒泡排序
For j = 1 To N - 1
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i

For i = 1 To N '输出排序后的数字
Print a(i);
Next i
Print