已经做好了根据分笔数据前后的大小来将标志置数组的例子,其他的你自己试试完善他.

Sub test2()
 \'得到某个指定品种的数据
    set MinuteData = marketdata.GetMinuteData("rb05","sq")
   
    \'创建一个动态数组,大小与分笔数据一致
    Dim d \'创建一个动态数组外部对象变量
 Set d = CreateObject("Stock.Array")
 

\'定义两个变量
 dim flag
 dim prvdata

\'开始循环处理
 for i = 0 to MinuteData.Count-1
     data = minutedata.newprice(i)
     if i > 0 then \'从第2个数据开始计算
         if data > prvdata then
             flag = 1 \'当前笔大于前一笔则置1
         else
             flag = 0 \'否则置0
         end if
        d.addback(flag) \'添加标志数据到数组中
     else
        d.addback(0) \'第一个数据置0
      end if  

  prvdata  = data
  next
 
 \'显示已保存的数组个数
 msgbox d.Count
   
End Sub