当条件为 True 时或条件变为 True 之前重复执行某语句块。

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop 

也可以使用下面的语法:

Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]