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