|
楼主 |
发表于 2019-3-9 11:23
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub test4()
Call dg4(1, 1)
End Sub
'递归,2层for
Sub dg4(i, j)
Debug.Print i, j
If j < 5 Then Call dg4(i, j + 1): Exit Sub
If i < 5 Then j = 1: Call dg4(i + 1, j)
End Sub
Sub test5()
Call dg5(1, 1, 1)
End Sub
'递归,3层for
Sub dg5(i, j, k)
Debug.Print i, j, k
If k < 5 Then Call dg5(i, j, k + 1): Exit Sub
If j < 5 Then k = 1: Call dg5(i, j + 1, k): Exit Sub
If i < 5 Then j = 1: Call dg5(i + 1, j, k)
End Sub
虽然达到了题目要求,但显然随着嵌套层次增加,递归程序就会越来,越长、复杂,即不通用。
|
|