Do...Loop 语句 (Visual Basic)
Do...Loop 语句
Do...Loop 语句 (Visual Basic)
当某个 Boolean 条件为 True 时，或在该条件变为 True 之前，重复执行某个语句块。
Do { While | Until } condition
[ statements ]
[ Continue Do ]
[ statements ]
[ Exit Do ]
[ statements ]
[ statements ]
[ Continue Do ]
[ statements ]
[ Exit Do ]
[ statements ]
Loop { While | Until } condition
开始 Do 循环的定义。
必选项（除非使用了 Until）。
重复执行循环，直到 condition 为 False。
必选项（除非使用了 While）。
重复执行循环，直到 condition 为 True。
Boolean 表达式。
如果 condition 为 Nothing，Visual Basic 会将其视为 False。
statements
一条或多条语句，它们在 condition 为 True 时或变为 True 之前重复执行。
Continue Do
为 Do 循环的下一次迭代传输控件。
将控制传送到 Do 循环外。
终止 Do 循环的定义。
如果想重复执行一组语句不定的次数，直到满足了某个条件为止，则可使用 Do...Loop 结构。
如果想重复执行语句既定的次数，则
通常是更好的选择。
可以使用 While 或 Until 来指定 condition，但不能同时使用两个。
只能在循环的开头或结尾测试一次 condition。
如果在循环的开头（在 Do 语句中）测试 condition，则循环可能从不会运行一次。
如果在循环的结尾（在 Loop 语句中）进行测试，则循环总会至少运行一次。
条件通常通过两个值的比较得到，但也可以是任何计算为
值（True 或 False）的表达式。
这包括已转换为 Boolean 的其他数据类型（如数字类型）的值。
可以将一个循环放在另一个循环内以嵌套 Do 循环。
您还可以将多个不同类型的控制结构相互进行嵌套。
有关更多信息，请参见
Do...Loop 结构在灵活性上比
更强，这是因为，它可让您在 condition 停止为 True 或初次变为 True 时决定是否结束循环。
它还可让您在循环的开头或结尾测试 condition。
语句可以提供退出 Do…Loop 的备选方式。
Exit Do 将控制立即转移到 Loop 语句后面的语句。
Exit Do 通常在计算特定条件后使用，例如在 If...Then...Else 结构中。
如果检测到使继续迭代不必要或不可能的条件（如错误值或终止请求），则可能需要退出循环。
Exit Do 的一种用途是测试能够导致无限循环（即运行次数多甚至无限的循环）的条件。
可以使用 Exit Do 来退出循环。
可以在 Do…Loop 的任意位置包括任意数量的 Exit Do 语句。
当在嵌套的 Do 循环内使用时，Exit Do 会将控制权转移出最内层的循环，并交给下一层级别较高的嵌套。
在下面的示例中，循环中的语句继续运行，直到 index 变量大于 10。
Until 子句在循环的末尾。
Dim index As Integer = 0
Debug.Write(index.ToString & " ")
index += 1
Loop Until index & 10
Debug.WriteLine("")
下面的示例使用 While 子句，而不是 Until 子句，并在循环开始处（而非结束处）测试 condition。
Dim index As Integer = 0
Do While index &= 10
Debug.Write(index.ToString & " ")
index += 1
Debug.WriteLine("")
在下面的示例中，当 index 变量大于100 时，condition 将停止循环。
但是，循环中的 If 语句在索引变量大于 10 时将导致 Exit Do 语句停止循环。
Dim index As Integer = 0
Do While index &= 100
If index & 10 Then
Debug.Write(index.ToString & " ")
index += 1
Debug.WriteLine("")
下面的示例读取文本文件中的所有行。
方法打开文件，并返回读取字符的
在 Do...Loop 条件中，StreamReader 的
方法确定是否存在任何额外的字符。
Private Sub ShowText(ByVal textFilePath As String)
If System.IO.File.Exists(textFilePath) = False Then
Debug.WriteLine("File Not Found: " & textFilePath)
Dim sr As System.IO.StreamReader = System.IO.File.OpenText(textFilePath)
Do While sr.Peek() &= 0
Debug.WriteLine(sr.ReadLine())
sr.Close()
此页面有用吗？
您对此内容的反馈非常重要。请告诉我们您的想法。
更多反馈？
1500 个剩余字符
我们非常感谢您的反馈。07-1009-1708-1209-14
04-1209-2009-2009-20
也许你感兴趣
1. 2. 3. 4. 5. 6. 7. 8. 9. 10.您的举报已经提交成功，我们将尽快处理，谢谢！
打开金山毒霸,点系统状态,在文件实时防毒下边的按钮,点开启.重启计算机.
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'do until loop语句_百度知道
do until loop语句
a=1 b=aDo Until a&=5
b=b+aLoop跪求解答过程，循环学得太差了
提问者采纳
b=1 x=1 所以打印出来是 1
1a=a+b = 1 + 1 =2b= b+a = 1 +2 =3进入第二次do until 循环判断 a不大于等于5 进入循环
a=2x= a*b = 2 * 3 = 6print b,b=1进入do until 循环判断 a不大于等于5 进入循环 a=1x= a*b = 1*1 =1print ba=1,x
b=3 x=6 所以打印出来是 3
6a=a+b = 2 + 3 =5b= b+a = 3 +5 =8进入第二次do until 循环判断 a等于5 退出循环
a=5完了 所以打印结果是
提问者评价
谢谢，真是太谢谢了，过程这么详细
来自团队：
其他类似问题
为您推荐：
其他1条回答
所以退出循环：x=a*b=1*1=1打印b：x=a*b=2*3=6打印b,x为1，因此实际显示结果为,1a=a+b=1+1=2b=b+a=1+2=3第2次循环,x为3,6a=a+b=2+3=5b=b+a=3+5=8因为a=5a=1b=a=1第1次循环
loop的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}