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