3-08.htm

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· HTM 代码 · 共 11 行

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