sub btnShowt_onClick()
    dim counter,sum
counter=1
sum=0
do while counter <= 100
    sum = sum + counter
    counter = counter + 1
Loop
MsgBox "1+2+3+...+100="&sum&"。"&,vbOnlyOk+vbInformation,"do 循环语句应用示例"
End sub        
</script>



<form name="form1" method="post" action="">
  <input type="button" name="btnShowt" value="按钮">
</form>

[此贴子已经被作者于2005-3-24 18:03:43编辑过]