VBA 多重条件循环

比如我在A1中有个公式是B1+B2，A2中有个公式是B1*B2；我想实现循环：1，如果A1<10，则B1加1，直到A1≥10，2，在条件1满足后再判断A2，如果A2＜100，则B2加1，直到A2≥100。请高手指点，非常感谢~

在你设定公式的工作表中插入一个按钮,按钮代码
Do While [a1] < 10
[b1] = [b1] + 1
Loop
Do While [a2] < 100
[b2] = [b2] + 1
Loop

for i = 1 to 3  x = 4  for j = 1 to 4   x = 3   for k = 1 to 2    x = x + 5   next k  next j next i msgbox x这个题目很有可能是考试题目，只有考试才会出这样无聊的题目。 答案13，原因如下：无论i，j如何值多少，在进入k循环之前，x＝3. 所以程序等价于： x = 3 for k = 1 to 2    x = x + 5 next k msgbox x答案很快出来，达到考试目的。题目简单，技巧性好。