<Script Language="VBS">
     Dim counter, myNum
     counter = 0
     myNum = 0
     While myNum <10
         myNum = myNum + 1
         counter = counter + 1
     Wend
     document.write("循環(huán)重復(fù)了 " & counter & " 次。")
 </Script>