问：do while语句能不能像if then语句一样可以套用？

Question

do while not
    ·····
    do while not
       ·····
       do while not
        ·····
       loop
    loop
loop
可以这样吗？

Answer 1

可以,例子:
Private Sub Form_Load()
Dim Check, Counter
Check = True: Counter = 0   ' 设置变量初始值。
Do   ' 外层循环。
   Do While Counter < 20   ' 内层循环。
      Counter = Counter + 1   ' 计数器加一。
      If Counter = 10 Then   ' 如果条件成立。
         Check = False   ' 将标志值设成 False。
         Exit Do   ' 退出内层循环。
      End If
   Loop
Loop Until Check = False   ' 退出外层循环。
MsgBox Counter
End Sub