请教vb考试题 ：下面的程序使用冒泡法将数组a中的十个整数按升序排列，

private sub command1_click()
dim a
dim tmp as integer
a=array (678.45,324,528,439,387,87,875,273,823)
for i=0 to 9
for j=0 to 9
if a(i)<a(j) then
tmp=a(i)
a(i)=a(j)
a(j)=tmp
end if
next j
next i
for i=0 to 9
print a(i)
next i
end sub
请翻译这段程序的意义 看不懂

---

Private Sub command1_click()
Dim a
Dim tmp As Integer
a = Array(678.45, 324, 528, 439, 387, 87, 875, 273, 823, 678) '给数组赋值
For i = 0 To 9
For j = 0 To 9
If a(i) < a(j) Then ' 两个数比较大小 如果 后者大于首汪颤前者 则交换两个数
tmp = a(i) ' 交换两个数
a(i) = a(j) ' 同上
a(j) = tmp ' 同上 以上三步 是交换数陵高据 “空者败瓶子法”
End If
Next j
Next i
For i = 0 To 9 ' 循环输出所有数据
Print a(i) '
Next i
End Sub

---