填空题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
　　Sub GASR()
　　　　Dim m
　　　　m=Array(10，1，5，6，7)
　　　　For i=0 To 3
　　　　　　For j=　【13】　
　　　　　　　　If m(i) ＞=m(j) Then
　　　　　　　　　　【14】　
　　　　　　　　m(i) =m(j)
　　　　　　　　m(j) =t
　　　　　　End If
　　　　Next j
　　　　【15】　
　　　For i=0 To 4
　　　　　　Print m(i)
　　　Next i
　　End Sub