15-程序流程控制——Do Until 语句介绍

excel交流

１、开头判断循环条件
　　语句格式：
       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语句：

1. 
   
2. Sub mysum()
   
3.     Dim Lsum As Long, i As Long
   
4.     i = 1
   
5.     Do
   
6.         Lsum = Lsum + i
   
7.         i = i + 1
   
8.     Loop Until i > 1000
   
9.     MsgBox "1到1000的自然数和为：" & Lsum
   
10. End Sub
    

复制代码