以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  关于VBA中的数组  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=29830)
--  作者：onlylovexue
--  发布时间：2012/10/15 15:05:01
--  请问，如果在股票合约列表里删除重复的自选股票

请问下，

问题一：

dim  test = Array("");

中如何指定声明数组的大小，如使test 大小可以容纳 50个

 

 

问题二：

\'创建一个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

 

在以上例子中  如何声明 数组存放的内容是字符串，现在只能存储 数字

 

 

感谢
--  作者：guotx2010
--  发布时间：2012/10/15 17:58:06
--  

不要使用这个对象，直接使用数组就行了。

如：

dim aTest(10,20)就是定义一个10行20列的数组，这里的数据类型你可以随意存储，自己知道就行了。

 
--  作者：daishw
--  发布时间：2012/10/17 14:39:08
--  
能否举一案例学习一下
--  作者：guotx2010
--  发布时间：2012/10/18 22:13:25
--  

比如：

dim aTest(10,3)

for i=0 to 9

    aTest(i,0)=i                                 \'存储数字型数据

    aTest(i,1)="AAA"                         \'存储字符型数据

    aTest(i,2)=Cdate(time)                 \'存储时间型数据

next

 

for i=0 to 9

    for j=0 to 2

        application.msgout aTest(i,j)        \'显示输出数组的值

    next

next