假設樓梯級數為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