这个和Do While语句类似,它也有两种形式,学了Do While语句,再看这个,就可以无师自通了。下面就简单介绍下:
1、开头判断循环条件
语句格式:
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
Do
Lsum = Lsum i
i = i 1
Loop Until i > 1000
MsgBox '1到1000的自然数和为:' & Lsum
End Sub
联系客服