GetHistoryData-GetHistoryDataBydate大量占用CPU

zjc

                                                             类似下面这样的代码读取数据时，只要包含收盘价，当读取数目达上百时，就会大量消耗CPU 内存等资源，计算机卡死的感觉
                                                               Set Data2 = MarketData.GetHistoryDataBydate(mycode, mymarket,myctype,DateAdd("d",-5,DATE),DateAdd("d",5,DATE),swdn)
                                                                    redim gOpendr(Data2.Count)
                                                                  redim  gHidr(Data2.Count)
                                                                    redim  gLowdr(Data2.Count)
                                                                    redim  gClosedr(Data2.Count)
                                                                   for i1=0 to data2.Count-1
                                                                                        gOpendr(i1)= data2.Open(i1)
                                                                                        gHidr(i1)= data2.high(i1)  
                                                                                        gLowdr(i1)=Data2.Low(i1)
                                                                        ----》        gClosedr(i1)=Data2.Close(i1)
                                                                next
                                                       而只要不读取收盘价，完全不会有消耗CPU及计算机卡死的感觉。
                                                      实盘读分钟级别时，很明显了，  在回测大量数据时更加明显
                                                     大约一年前我就发现了，现在，最新版本JZt , 没有改变。

技术008

mycode, mymarke
这几个参数是什么
可否提供段能直接执行的程序