'創建一個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