VB.Net Do Loop循环

当布尔条件为真(True)时，或者直到条件变为真(True)时，它重复执行所包含的语句块。它可以随时用Exit Do语句终止。

这个循环结构的语法是：

Do { While | Until } condition
    [ statements ]
    [ Continue Do ]
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop
-- 或者
Do
    [ statements ]
    [ Continue Do ]
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop { While | Until } condition

流程图

示例

Module loops
   Sub Main()
      ' local variable definition '
      Dim a As Integer = 10
      'do loop execution 
      Do
          Console.WriteLine("value of a: {0}", a)
          a = a + 1
      Loop While (a < 20)
      Console.ReadLine()
   End Sub
End Module

当上面的代码被编译并执行时，会产生以下结果：

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19

如果使用Until语句而不是While语句，那么程序的行为方式相同：

Module loops
   Sub Main()
      ' local variable definition 
      Dim a As Integer = 10
      'do loop execution 
      Do
          Console.WriteLine("value of a: {0}", a)
          a = a + 1
      Loop Until (a = 20)
      Console.ReadLine()
   End Sub
End Module

执行上面示例代码，得到以下结果 -

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19