vb堆栈空间溢出

[qq_38151060]

 Function DZEBJZf(x)
      Dim b1, b2, b3, b4, bj1 As Double
      b1 = 1.71
        b2 = 1.56
        bj1 = 1.56
       If b2 < bj1 < b1 Then
    
      DZEBJZf(x) = DZEBJZ1f(x) + (bj1 - b1) * (DZEBJZ2f(x) - DZEBJZ1f(x)) / (b2 - b1)
 
   
    End If
       End Function

其中 DZEBJZ1f(x)， DZEBJZ2f(x)都已经定义过了，且没有错误。在运行程序的时候在这段语句发生 DZEBJZf(x) = DZEBJZ1f(x) + (bj1 - b1) * (DZEBJZ2f(x) - DZEBJZ1f(x)) / (b2 - b1)堆栈空间溢出错误，这是为什么该怎么改，求指导！

[赵4老师]

“给定一个小点的输入，完整单步跟踪(同时按Alt+7键查看Call Stack里面从上到下列出的对应从里层到外层的函数调用历史)一遍。”是理解递归函数工作原理的不二法门！ 递归函数关注以下几个因素 ·退出条件 ·参数有哪些 ·返回值是什么 ·局部变量有哪些 ·全局变量有哪些 ·何时输出 ·会不会导致堆栈溢出

[舉杯邀明月]

逻辑问题，自己的“思路”肯定是错的！ 你这样的代码，没有出现“堆栈溢出”，那才是怪事！ 当你这个“函数”被调用时： 因为语句“If b2 < bj1 < b1 Then”中的“逻辑表达式”始终为 True的，因此就会出现“函数的递归调用”； 因为“递归结束”的条件，跟传入的参数无关，无论参数是多少，都是“会触发递归调用”的， 　　换句话说：这个函数只要被调用，就会造成“无穷递归”的调用，岂有不出现“堆栈溢出”的道理！！！

[chuifengde]

函数的返回值用下面的形式

DZEBJZf = DZEBJZ1f(x) + (bj1 - b1) * (DZEBJZ2f(x) - DZEBJZ1f(x)) / (b2 - b1)

[熊孩子开学喽]

b1 = 1.71 b2 = 1.56 bj1 = 1.56 If b2 < bj1 < b1 Then 这三个数是不变的, 那怎么退出递归?

[X-i-n]

为什么会有 a<b<c这种写法？ 你要判断三个数的关系，必须用 a<b and b<c 写成a<b<c以后，运算流程会变成 (a<b) < c 也就是一个Boolean 值<c 也就是根据a<b的结果，得到 True或者False，再跟 c 比较大小（ True/False < c ） vb里，true=-1，false=0 所以最终判断条件会变成 -1 < c 或者 0 < c

[X-i-n]

DZEBJZf(x) 是一个函数表达式，它是用来返回结果的，只能作为值去赋给变量，而不可以为函数表达式赋值。 a(x)是数组元素的时候才能出现在等号左边

[X-i-n]

一个函数，必须在所有分支上都能返回结果

if xxx then
'返回结果
else
'这里也要返回结果
end if

[脆皮大雪糕]

问题的问法不对，直接问你想要的目标是什么，比如：什么样的输入，想得到什么样的输出，想用递归实现怎么做。 不要把你写一半已经进死胡同的代码拿出来让别人帮你改

[熊孩子开学喽]

一般而言, 递归或者循环调用出问题都是不满足退出条件.

[赵4老师]

“给定一个小点的输入，完整单步跟踪(同时查看Call Stack里面从上到下列出的对应从里层到外层的函数调用历史)一遍。”是理解递归函数工作原理的不二法门！ 递归函数关注以下几个因素 ·退出条件 ·参数有哪些 ·返回值是什么 ·局部变量有哪些 ·全局变量有哪些 ·何时输出 ·会不会导致堆栈溢出

[舉杯邀明月]

BS楼上两个挖坟的…………

[greatbody]

引用 11 楼 Chen8013 的回复:

BS楼上两个挖坟的…………

同鄙视。

[xzjxucxx]

先学会基本的语法再说

[海鸥软件]

你递归调用判断的条件不明确，一旦进入递归，就一直调用下去，没有出口，当然溢出啦。做递归你首先要明确 出口条件是会成立的（ If b2 < bj1 < b1 Then）也就是说它是否有不成立的时候？你这个递归对三个变量一直没有操作，也就是三个值一直不变，条件要不永远成立，要不永远不成立，所有程序要不执行永远不停，要不不执行。