求助：如何把当天的实时买一价写成一个动态数组
参考金字塔自带的动态数组对象
Array 对象
Array对象支持动态的浮点型数据数组，必要时可以动态压缩并扩展。数组索引从0开始。金字塔许多对象数组参数的传递需要此对象来完成。有关数组的概念，请参照Visual Basic有关概念。
金字塔的Array对象提供大量的算法,帮助用户对数据进行各种统计和数值计算.
对象标识 "Stock.Array"
示例
'创建一个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
还可以使用reDim来调整数组的大小，
如：
dim aaa()
reDim aaa(1000)
能否帮忙编写一个范例：当买一价发生改变时，把变动后的买一价数据插入到动态数组后面，谢谢！
那得使用marketdata的行情监听功能，使用方法请参照http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642
的36、37楼得介绍。