回到目录
编辑文本后点击显示结果
返回网页教程首页
<html> <head><title>VBScript代码示例 - Do Until Loop 循环语句中使用 Exit Do 退出循环</title></head> <body> <script type="text/vbscript"> Sub ExitExample() Dim counter, myNum counter = 0 myNum = 9 Do Until myNum = 10 myNum = myNum - 1 counter = counter + 1 If myNum < 10 Then Exit Do Loop MsgBox "循环重复了 " & counter & " 次。" End Sub Call ExitExample </script> </body> </html>