For…Next语句以指定次数重复执行一组语句 。
语法格式 :
For counter=start To end [Step step ]
[statements]
Exit For
statements]
Next
说明:counter是用作循环计数器的数值变量,不能是数组元素;start和end分别是counter的初值和终值;step是counter的步长,其默认值为1;statements是For和Next之间的一条或多条语句,将被执行指定次数。step参数可以是正数或负数。step参数值决定循环的执行情况:当step参数是正数或0时,若counter〈=end,则执行循环;当step参数是负数时,若counter〉=end,则执行循环。当循环启动并且所有循环中的语句都执行后,step值被加到counter中。这时,或者循环中的语句再次执行(基于循环开始执行时同样的测试),或者退出循环并从Next语句之后的语句处继续执行。
【例3.9】用For Next语句计算2+4+6+⋯+200的累加和。运行结果如图3-9所示。
图3-9 For⋯Next语句应用示例运行结果
文件命名为3-9.htm,代码如下:
〈HTML〉
〈HEAD〉〈TITLE〉计算累加和〈/TITLE〉〈/HEAD〉
〈BODY〉〈H3〉计算累加和〈/H3〉〈HR〉
计算2+4+6+⋯+200的累加和。〈p〉(www.xing528.com)
〈FORM〉
〈INPUT TYPE=″Button″NAME=″Buttonl″VALUE=″计算 ″〉
〈/FORM〉
〈SCRIPT FOR=″Buttonl″EVENT=″onClick″LANGUAGE=″VBScript″〉
Dim s,n
s=0
For n=2 to 200 step 2
s=s+n
Next
MsgBox ″1+2+3+⋯+100=″&s
〈/SCRIPT〉
〈/BODY〉
〈/HTMI〉
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。