sub Test()
'创建一个Array数组对象并排序
Dim d '创建一个变量
'创建Array外部对象,将对象实例置变量d中
Set d = CreateObject("Stock.Array")
'创建完Array对象后往其内部插入两个数据
d.AddBack(3.25)
d.AddBack(4.33)
d.AddBack(2.02)
'按正序排列数组数据
d.fill(0,0)
set d = nothing
End Sub

此主题相关图片如下:2015-03-01_131934.jpg