评论中说的不知道你看明白了没，还是回答一下吧。 你的意思应该是想通过改变循环的终值，来控制循环的次数，你的想法可能是很多初学者有过的想法，但这种想法不成立，For循环一旦开始循环，它的终值是多少就是多少，中途改变它，并不改变循环的次数，这个你可以做个试验，试验如下： Sub sy() n = 20 For i = 1 To n MsgBox i n = n - 2 Next End Sub 你可以运行一下这段代码，看看它是不是依然是循环２０次（通过Msgbox语句打出的数字可以清楚的看出）。如果你的想法成立，这段代码最多只能循环７次，因为循环７次后，I值是７而N值只有６了，I>N循环应该终止了，其实并不是这样，它依然按２０次循环，要改变循环的次数，只有通过改变I的值。即使这样也不能有你那样的想法，用随机数来取代，这样可能让程序进入死循环。
