15-程序流程控制——Do Until 语句介绍
１、开头判断循环条件
语句格式：
Do Until 循环条件
语句块1
语句块2
Loop
2、结尾判断循环条件
语句格式：
Do
语句块1
语句块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
页:
[1]