Sub kaihu()
set minutedata = marketdata.GetMinuteData("c05","dq")
wsj = minutedata.askprice(minutedata.Count-1)
wbj = minutedata.BIDPRICE(minutedata.Count-1)
for i = 1 to 5
order.OrderQueue = 1
call order.buy(0,1,wsj+2,0,"c05","dq","",0)
call order.sell(0,1,wbj-2,0,"c05","dq","",0)
next
application.MsgOut "10笔交易结束"
End Sub