高一菜鸟的VB问题！请大家帮忙，好吗？

对了，这个是什么结构？是冒泡吗�

....我记得.高一电脑课本有的``

Me.WindowState = 2
Me.AutoRedraw = True
Dim a(9) As Single, t As Single
Const max = 100
Me.Print "10个数："
For i = 0 To 9
a(i) = Rnd * max
Me.Print a(i); " ";
Next
For j = 0 To 8
 For i = 0 To 8
 If a(i) > a(i + 1) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t
 Next
Next
Me.Print vbCrLf; "冒完"
For i = 0 To 9
 Me.Print a(i); " ";
Next

放到from_load 上。咕嘟嘟