'創建一個Array數組對象并排序

Dim d '創建一個變量

'創建Array外部對象，將對象實例置變量d中

Set d = CreateObject("Stock.Array")

'創建完Array對象后往其內部插入兩個數據

d.AddBack(3.25)

d.AddBack(4.33)

d.AddBack(2.02)

'按正序排列數組數據

d.Sort(0)

'依次顯示數組對象數據

For i = 0 To 2

MsgBox d.GetAt(i)

Next