知识点：冒泡排序
下面事件过程产生10个两位的正的随机整数，并利用冒泡法升序排序，请完善它。
Private Sub Command1_Click()
    Dim a(10) As Integer
    For m = 1 To 10
      a(m) = [  （1） ]
    Next m
    For m = 1 To 9
      For n = [  （2） ] To 10
        If a(m) [  （3） ] a(n) Then t = a(m): a(m) = a(n): a(n) = t
      Next n
    Next m
    For m = 1 To 10
      Print a(m);
    Next m
End Sub