填空题

下面是用冒泡法将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