vba詞典的按鍵排列

子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

末端接頭