由于事先不知道程序循环的层数，需在程序运行时指定，请问这种循环要怎么实现。
我要得到结果是，
比如两层嵌套为：　　　三层嵌套为：
a0,b1　　　　　　　　a0,b0,c1
a0,b2                a0,b0,c2
a1,b0                a0,b1,c0
a1,b1                ....省略
a1,b2                a2,b1,c2
a2,b0                a2,b2,c0
a2,b1                a2,b2,c1
即要在前面加一个变量字母，或者要把每一个组合中的不同成员，分别存储起来，因为最后我要对每组组合进行比较。

无能为力

谁能帮帮我想想办法呀，看到有人用递归解决类似问题，那能不能变通到我这个问题上呢

你应该拿组数据过来，然后要实现什么样子的

阅过.也想学学

a,b,c分别代表3个帐号，是不固定的。
其中a,b,c分别有3种状态0，1，2，不同状态下会有不同数值。
想要结果，就是在所有可能的组合上，计算出每组组合的值，比如：
0，0，1组合时，a=4000,b=3000,c=-1000，此时的结果就是6000
0，1，1组合时，a=4000,b=-2000,c=-1000，此时结果就是1000
我想要在，a,b,c.....数量未知时，（a,b,c程序）通过程序得到所有可能组合，且分别得出每组结果.

老兄，0，0，1
0代表正数？1代表负数？
a,b,c.....数量未知，那他们的值也是未知？不知道怎么计算

For i = 0 To 2
    For n = 0 To 2
        For x = 0 To 2
            Select Case i '最外层循环代表a根据i3种不同状态对a进入不同赋值
                Case 0
                a = 4000
                Case 1
                a = -2000
                Case 2
                a = 3000
            End Select
            Select Case n '依次代表b,c根据n,x3种不同状态对b,c进入不同赋值
                Case 0
                b = 3000
                Case 1
                b = -2000
                Case 2
                b = 1000
            End Select
            Select Case x
                Case 0
                c = 5000
                Case 1
                c = -2000
                Case 2
                c = 3000
            End Select
            yy = i + n + x '用一个变量把每次结果存储起来
            jg(yy) = a + b + c
        Next
    Next
Next

0，1，2分别代表三种不同状态，无法确定的只有a,b,c的数量，其它都可以确定。
上面是假设只有a,b,c的时候我的思路。

我想想！

[[it] 本帖最后由 随风逐流 于 2008-2-27 17:37 编辑 [/it]]