第十二讲:程序流程控制—

这个和Do While语句类似，它也有两种形式，学了Do While语句，再看这个，就可以无师自通了。下面就简单介绍下：
１、开头判断循环条件
　　语句格式：
Do Until 循环条件
语句块1
[Exit Do]
语句块2
Loop

2、结尾判断循环条件
语句格式：
Do
语句块1
[Exit Do]
语句块2
Loop Until 循环条件

执行Do 和Loop之间的指令，直到循环条件为真时退出循环。
直到循环条件为真时退出循环，这是Do Until　与　 Do While的区别。而它两种语句格式的区别，也是第二种比第一种多执行一次循环部分的语句。

还是求1——1000自然数的问题，这次我们换用Do Untile语句：

Sub mysum()

Dim Lsum As Long, i As Long

i = 1

Lsum = Lsum i

i = i 1

Loop Until i > 1000

MsgBox '1到1000的自然数和为：' & Lsum

End Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。