While-End While

只要给定条件为True，While... End While就执行一系列语句。

这个循环结构的语法是：

While condition
    [ statements ]
    [ Continue While ]
    [ statements ]
    [ Exit While ]
    [ statements ]
End While

这里，语句可以是单个语句或语句块。条件可以是任何表达式，true是逻辑true。当条件为真时，循环迭代。

当条件变为假时，程序控制传递到紧随循环之后的行。

流程图：

这里，While循环的关键点是循环可能永远不会运行。当条件被测试并且结果为false时，循环体将被跳过，while循环之后的第一条语句将被执行。

示例：

Dim a As Integer = 10 While a < 20 Proj.MsgDebug.Add("value of a: {0}", a) a = a + 1 End While '返回结果: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