论坛 › 电脑办公 › 15-程序流程控制——Do Until 语句介绍

excel交流 发表于 2017-9-20 03:17:42

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

查看完整版本: 15-程序流程控制——Do Until 语句介绍