'創(chuàng)建一個(gè)Array數(shù)組對(duì)象并排序

Dim d '創(chuàng)建一個(gè)變量

'創(chuàng)建Array外部對(duì)象，將對(duì)象實(shí)例置變量d中

Set d = CreateObject("Stock.Array")

'創(chuàng)建完Array對(duì)象后往其內(nèi)部插入兩個(gè)數(shù)據(jù)

d.AddBack(3.25)

d.AddBack(4.33)

d.AddBack(2.02)

'按正序排列數(shù)組數(shù)據(jù)

d.Sort(0)

'依次顯示數(shù)組對(duì)象數(shù)據(jù)

For i = 0 To 2

MsgBox d.GetAt(i)

Next