求助：如何把当天的实时买一价写成一个动态数组

参考金字塔自带的动态数组对象

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楼得介绍。

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=12404

这个帖子 就是求动态相关系数的