假设楼梯级数为N时的方法数是F(N)，那么第一步可选择1或2级楼梯。当第一步为1级时剩下楼梯的级数为N-1，故方法数为F(N-1)；当第一步为2级时，剩下楼梯的级数为N-2，故方法数为F(N-2)。
Function F(ByVal n As Integer)As Long
F＝IIf(n<=2,n,F(n-1)+F(n-2))
End Function
㈡ VB中递归的用法：
首先VB是不推荐用递归算法的，效率太低，建议用循环做
然后你的dm是string，那么它咋就能作为二维数组的下标呢？
再说你的条件是 ri = TabA(i, 0) ，不是 ri=tab（i,dm）啊？
㈢ vb 递归求详解
代码具体不看了,因为没具体看d(x,y)的取值范围
假设他取值范围是1到14
那么表示,递归的层数是14层,然后每层中都有8个再次递归的函数
这就解释了为什么会溢出!我相信d(x,y)的值
8的14次方这根本不是电脑可以承受的
而且我相信d(x,y)取值数量极限也就10几个左右,再往上对电脑资源消耗都是呈超级几何式的增长
㈣ vb递归算法。
Text1.Text = f(Val(Text1.Text))
表示的意思是先把传入的文本字段Text1.Text 利用val 函数转化为int数值。然后调用自定义的递归函数 f (n as Integer) ，并把刚转化为int的数值作为参数传入其中，经过递归函数运算得到的结果作为返回值并赋值给Text1.Text ，也就是最终显示递归值。
㈤ VB递归算法
调用Test(3);
t=3,
t>=1成立,
调用Test(2);
t=2,
t>=1成立,
调用Test(1);
t=1,
t>=1成立,
调用Test(0);
t=0,
t>=1不成立,
函数返回值为0.
返回到Test(1),
执行余下部分:
for
i=3
to
1
step
-1
print
chr(asc("A")+i)
next
print
输出:
D
C
B
调用的Test(1)结束,
函数返回值1.
继续执行Test(2)的余下部分:
for
i=3
to
2
step
-1
print
chr(asc("A")+i)
next
print
输出:
D
C
调用的Test(2)结束,
函数返回值2.
继续执行Test(3)的余下部分:
同理输出:
D
调用的Test(3)结束,
函数返回值3.
最后,
执行
Print
Test(3)
的输出,
打印返回结果:
3
-----------
所以,
最后的结果是:
D
C
B
D
C
D
3
㈥ VB递归算法原理
对于函数z(a),当a=1时，即z(1)=x,z(2)=y,在本例中a=5,则
z(5)=z(3)+z(4)
z(3)=z(1)+z(2)=x+y;
z(4)=z(2)+z(3)=y+z(3)=y+x+y
所以z(5)=(x+y)+(y+x+y)=2x+3y=13
递归调用的原理就是递推，知道函数的参数满足z=x或者z=y为止，也就是知道满足参数等于1或者等于2为止。
不知道这样回答能让你理解吗，有问题的话网络Hi我吧，呵呵
㈦ vb组合数c（n,m） 递归求法,要用function函数。
Functionc(ByValn,ByValm)
Ifn>m/2Thenn=m-n
Ifn=0Then
c=1
ElseIfn=1Then
c=m
Else
c=c(n,m-1)+c(n-1,m-1)
EndIf
EndFunction
PrivateSubCommand1_Click()
DimnAsInteger,mAsInteger
n=Val(InputBox("n=?"))
m=Val(InputBox("m=?"))
Ifm>=nAndn>=1Then
MsgBox"c("&n&","&m&")="&c(n,m)
Else
MsgBox"输入的数不符合条件！"
EndIf
EndSub