Do-While 语句疑问点

xingjichaoren

下面是菜鸟谈VBA摘抄的说明文件：

Do While也是循环语句，它分为两种情况，一种是把循环条件放在开头，一种是把循环条件放在结尾。

两种格式的区别：因为第二种格式是把循环体放在尾部，得先执行一遍语句再进行循环条件判断，所以，同样的条件，第二种格式的循环会比第一种多执行一次循环部份的语句。

我尝试了下面两个程序，发现结果没有区别。请大神帮忙解释一下！

第一个：循环条件放在开头

Sub mysum2()
Dim Lsum As Long, i As Long
i = 1
Do While i <= 1000
   Lsum = Lsum + i
   i = i + 1
Loop
MsgBox "1到1000的自然数和为：" & Lsum
End Sub

第二个：循环条件放在结尾

Sub mysum3()
Dim Lsum As Long, i As Long
i = 1
Do
   Lsum = Lsum + i
   i = i + 1
Loop While i <= 1000
MsgBox "1到1000的自然数和为：" & Lsum
End Sub

原帖地址：http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=2#pid3075270

xingjichaoren

Do until也发现同样的问题。判断条件在前和在后对程序结果没有影响。
Sub mysum4()
Dim Lsum As Long, i As Long
i = 1
Do Until i > 1000
   Lsum = Lsum + i
   i = i + 1
Loop
MsgBox "1到1000的自然数和为：" & Lsum
End Sub
Sub mysum5()
Dim Lsum As Long, i As Long
i = 1
Do
   Lsum = Lsum + i
   i = i + 1
Loop Until i > 1000
MsgBox "1到1000的自然数和为：" & Lsum
End Sub

ggsmart

如果循环条件一开始就是“False”就有区别了，你试一下

ggsmart

用下面的两个来测试：
Sub mysum2()
Dim Lsum As Long, i As Long
i = 2000
Do While i <= 1000
   Lsum = Lsum + i
   i = i + 1
Loop
MsgBox "1到1000的自然数和为：" & Lsum
End Sub

Sub mysum3()
Dim Lsum As Long, i As Long
i = 2000
Do
   Lsum = Lsum + i
   i = i + 1
Loop While i <= 1000
MsgBox "1到1000的自然数和为：" & Lsum
End Sub

xingjichaoren

ggsmart 发表于 2018-2-10 20:37
用下面的两个来测试：
Sub mysum2()
Dim Lsum As Long, i As Long

是的。Mysum2()结果为0，mysum3（）结果为2000.

那也就是说条件后置的话，无论什么情况，都先执行一次命令。
个人想不到后置有什么特别之处。

版主，有遇到什么情况，只能后置判断条件，而不能前置的吗？

ggsmart

都知道区别了，还不知道什么时候选择用哪一种吗？