堆栈空间溢出怎么解决？

[programfish]

我循环调用一个自定义函数计算数值然后加入到MSFlexGrid中，有可能要计算上万次，结果出现了“堆栈空间溢出”的问题，请问该如何实现计算几万次呢。

[m60a1]

千万不要用递归做这种事情，一般VB6.0在处理递归时，
每调用一个函数它都将分配一块内存地址出来，并且不会自动释放，因为递归本身就是在
函数内部再次调用函数本身，所以它也不能释放。
按照上面的理论，楼主应该知道为什么会内存空间溢出(不够)了。
建议：把递归的函数，拆成几个函数来调用，而不是一味的只调用这一个函数

[programfish]

但是我这不是函数自己调用自己啊，我是按计算按钮后循环调用该函数。

[东方之珠]

计算的数值超过了允许的范围。

[programfish]

我的代码如下
For i = 0 To maxDate
fx = fsx(i)
Fy = fsy(i)

Fs = True
Call pdqx(slc(0), 0, 0)
If fslc <> "" Then
MsfgFs.Rows = MsfgFs.Rows + 1
rowIndex = MsfgFs.Rows - 1
reOrder (MsfgFs.Object)
MsfgFs.TextMatrix(rowIndex, 1) = fx
MsfgFs.TextMatrix(rowIndex, 2) = Fy
MsfgFs.TextMatrix(rowIndex, 3) = fslc
MsfgFs.TextMatrix(rowIndex, 4) = fspj
End If
Next

能不能把上maxDate分成两个小于1000的数字来循环解决呢。

[m60a1]

就像这样?

for i=0 to A
Function
next i

如果是这样的话，你需要把代码贴出来看看了，不一定是我说的问题，可能
写的代码里面存在问题,

[m60a1]

For i = 0 To maxDate
fx = fsx(i)
Fy = fsy(i)

Fs = True
Call pdqx(slc(0), 0, 0)
If fslc <> "" Then
MsfgFs.Rows = MsfgFs.Rows + 1
rowIndex = MsfgFs.Rows - 1
reOrder (MsfgFs.Object)
MsfgFs.TextMatrix(rowIndex, 1) = fx
MsfgFs.TextMatrix(rowIndex, 2) = Fy
MsfgFs.TextMatrix(rowIndex, 3) = fslc
MsfgFs.TextMatrix(rowIndex, 4) = fspj
End If
Next
=========================================
问题可能有一个，那就是maxDate数值可能过大

[programfish]

就是比较大，如何解决呢。

[m60a1]

pdqx这函数做什么用的

[programfish]

[Quote=引用 8 楼 m60a1 的回复:]
pdqx这函数做什么用的
[/Quote]
用来计算 MsfgFs.TextMatrix(rowIndex, 1) = fx
MsfgFs.TextMatrix(rowIndex, 2) = Fy
MsfgFs.TextMatrix(rowIndex, 3) = fslc
MsfgFs.TextMatrix(rowIndex, 4) = fspj
几个数值的

[chenhui530]

把声明弄出来吧

[programfish]

Public Sub pdqx(ByVal lc As Double, ByVal jd As Double, ByVal jl As Double)

[chenhui530]

你的变量声明

[programfish]

Public Sub pdqx(ByVal lc As Double, ByVal jd As Double, ByVal jl As Double) '计算坐标
Dim s As Double
Dim o As Double
Dim j As Double

Dim tempH As Double
Dim tempR As Double

Dim t As Double
Dim z As Double
Dim tzi As Integer
Dim cx As Double
Dim cy As Double
Dim cJD As Double
Dim cJL As Double
Dim fyQxfwj As Double
```````````````
end sub

[chenhui530]

IFLY
当我没来过这帖

[m60a1]

知道了，现在我临时只想到个笨办法你可以试一下

写一个函数，函数内容就是你的for循环
将for循环中maxData进行处理
dim intGroupTemp as intger : intGroupTemp=1000
GOON:
if (maxData-intGroupTemp)<1000 then
function(这是个for循环函数)
exit function
else
function(这是个for循环函数)
doevents
maxData=maxData-1000
goto GOON
end if

这个办法笨了点，暂时只想出来这个办法，我手写的有写得不规范的地方自己改下

[programfish]

谢谢，我先试试看。

[jhone99]

在pdqx函数内部注意释放应该可以

[programfish]

[Quote=引用 17 楼 jhone99 的回复:]
在pdqx函数内部注意释放应该可以
[/Quote]
如何内部释放呢？

[jhone99]

要看你的具体代码

[programfish]

中间就是一大段数值的计算。