子ABC()
arr = Array("d "，" g "，" v "，" p "，" a ")
對於i = 0至UBound(arr) - 1
對於j = i + 1到UBound(arr)
如果arr(i)>arr(j)那麽
Temp = arr(j)
arr(j) = arr(i)
arr(i) = Temp
如果…就會結束
然後
【a1】。Resize(1，UBound(arr) + 1) = arr
末端接頭