3_11.htm

来自「《asp网页设计》作者沈才梁源代码,共十章」· HTM 代码 · 共 19 行

HTM
19
字号
<HTML>
<TITLE>DO循环语句实现n个数的累加</TITLE> 
请输入一个数字:
<INPUT name=T1 type=TEXT size="3">
<INPUT name=S1 type=BUTTON value="确定">
<SCRIPT language="VBScript">
Sub S1_onclick()
  Dim i,s
  i=1
  s=0
  Do while i<=cint(t1.value)
     s=s+i
     i=i+1
  Loop
  MsgBox "从1到"&cstr(i-1)&"的累加结果为"&cstr(s)
End Sub
</SCRIPT>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?