用VB做冒泡问题，怎么做，要详解的，谢谢

Private Sub Command1_Click()
Dim a(1 To 5)
a(1) = 36: a(2) = 76: a(3) = 27: a(4) = 97: a(5) = 54
Print "原始顺序:"; Join(a)
'赋值你的A数组,并打印原顺序

Dim i%, j%, m%

For i = 1 To 5
For j = i To 5
If a(j) > a(i) Then m = a(i): a(i) = a(j): a(j) = m
Next
Print "第"; i; "轮:"; Join(a)
Next

End Sub

Sub MaoPao(arr() As Integer) 冒泡函数
For i = 1 To UBound(arr)
For j = 1 To UBound(arr)
If arr(i) > arr(j) Then
x = arr(i)
arr(i) = arr(j)
arr(j) = x
End If
Next
Next
End Sub

Private Sub Command1_Click()
Dim a(1 To 3) As Integer
a(1) = 2
a(2) = 5
a(3) = 1
MaoPao a '调用函数
For i = 1 To UBound(a)
Print a(i)
Next
End Sub