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 + -
显示快捷键?