不定层数的循环嵌套？

for i=0 to 9
   for j=0 to 9
      for k=0 to 9
          'Do SomeThing
      next
   next
next

上面这个循环嵌套的层数是3
如果这个层数在程序设计时是未知的（具体值运行时有用户指定），这该如何实现呢？

或者说如何实现下面这个功能：
用户指位数，程序生成该位数的所有排列组合（每位都是0-9）
例如用户输入3
程序生成的为:
000
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
...
...
999

Private Sub Command1_Click()
    Dim n As Integer
    Dim i As Long
    n = InputBox("input data")
    For i = 1 To (10 ^ n) - 1
        Debug.Print Right(String(n, "0") & CStr(i), n)
    Next
End Sub

版主很巧妙地使用另一种思维方式解决了问题 谢谢

但是这不是我最终想看到的，当我要求每一位都是a-z时，这种算法就行不通了，我希望找到一种实现n位字符(0-9,a-z,A-Z)排列组合的算法

只要想想..应该是可以的.

Private Function getstr(param As Long)
Dim i As Long
    If param <= 0 Then Exit Function
    For i = 0 To 10
        getstr (param - 1)
    Next
End Function
这个算不算不定层无限循环。

问个小白问题  getstr 有什么功能?

暂无功能

递归
看似简单 却异常复杂

不过你这种算法依然不能解决我的问题

谢谢你

不一定不能解决。
你的问题有两个未知问题
首先是N 几位
然后是每位类型。数字？还是字母？
如果能确定下来，我想可以解决的。

想想..不难的..
取决于一个mod运算符.