15-程序流程控制——Do Until 語句介紹

excel交流

１、開頭判斷循環(huán)條件
　　語句格式：
       Do Until 循環(huán)條件
            語句塊1
           [Exit Do]
            語句塊2
      Loop
   
2、結尾判斷循環(huán)條件
    語句格式：
        Do
            語句塊1
           [Exit Do]
            語句塊2
       Loop Until 循環(huán)條件
       執(zhí)行Do 和Loop之間的指令，直到循環(huán)條件為真時退出循環(huán)。
       直到循環(huán)條件為真時退出循環(huán)，這是Do Until　與　 Do While的區(qū)別。而它兩種語句格式的區(qū)別，也是第二種比第一種多執(zhí)行一次循環(huán)部分的語句。

還是求1——1000自然數(shù)的問題，這次我們換用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的自然數(shù)和為：" & Lsum
   
10. End Sub
    

復制代碼