主题：[求助]GetHistoryData不能获取足够的数据

以下内容为程序代码:

1 Sub testHisData()
2     
3     sC
4     sMarketCode="SQ"
5     CycType=5
6     t=50
7     Set HisData=MarketData.GetHistoryData(sConCode,sMarketCode,CycType,t)
8     for i=0 to t-1
9         application.MsgOut "Date: " & HisData.Date(i) & " Close: " & HisData.Close(i)
10     next
11
12 End Sub