题目

VB中的Do...Loop语句怎么使用?
我是初学者,有些还不太懂,希望高手能给我讲下Do...Loop语句的用途和用法（最好有代码例子）,简单明了易懂就OK了!

提问时间：2021-01-25

答案

Do...Loop 语句
当条件为 True 时,或直到条件变为 True 时,重复执行一个语句块中的命令.
语法
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句.内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False,并用 Exit Do 语句强制退出内层循环.外层循环则在检查到标志值为 False 时,马上退出.
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 ' 退出外层循环.