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

医疗废物管理的基本原则有哪些？