<Script Language="VBS">
     Dim counter, myNum
     counter = 0
     myNum = 9
     Do
         myNum = myNum - 1
         counter = counter + 1
     Loop While myNum > 10
     document.write( "循環重復了 " & counter & " 次。")
 </Script>