主题：最大持有股票数不得超过20个的股票策略

Sub APPLICATION_Timer(ID)

if ID = 0 then

 for i = 0 to b.count-1
  buynum = marketdata.GetReportData(b.GetStockCode(i),b.GetStockMarket(i)).SellVolume1*0.5
  Result = Order.HoldingInfoByCode2(b.GetStockCode(i),b.GetStockMarket(i),BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,"")
  cond_first = BuyHolding<1 and Result <>1
  if num+order.Holding2 + order.OrderNum2 <=max_holding and cond_first  then
   num = num+1
   call order.buy(1,buynum,0,0,b.GetStockCode(i),b.GetStockMarket(i),"",0)
  end if
 next
end if

Sub APPLICATION_VBAStart()
num = 0
End Sub