For Each⋯Next语句对数组或集合中的每个元素重复执行一组语句。
语法格式:
For Each element In group
[statements]
[Exit For]
[statements]
Next [element]
说明:element用来枚举集合或数组中所有元素的变量,group是对象集合或数组的名称,statements是对于group中的每一项执行的一条或多条语句。如果group中有至少一个元素,就会进入For Each块执行。一旦进入循环,便首先对group中第一个元素执行循环中的所有语句。只要group中还有其他元素,就会对每个元素执行循环中的语句。当group中没有其他元素时退出循环,然后从Next语句之后的语句处继续执行。
可以将一个For Each⋯Next循环放置在另一个之中,组成嵌套式For Each⋯Next循环。但是每个循环的element必须是唯一的。
【例3.10】用For Each⋯Next语句计算2+4+6+⋯+200的累加和。运行结果如图3-10所示。
图3-10 For Each⋯Next语句应用示例运行结果
文件命名为3-10.htm,代码如下:
〈HTML〉
〈HEAD〉〈TITLE〉For Each⋯ Next语句应用示例〈/TITLE〉〈/HEAD〉
〈BODY〉〈H3〉计算累加和〈/H3〉〈HR〉
计算2+4+6+⋯+200的累加和。〈p〉
〈FORM〉(www.xing528.com)
〈INPUT TYPE=″Button″NAME=″Buttonl″VALUE=″计算 ″〉
〈/FORM〉
〈SCRIPT FOR=″Buttonl″EVENT=″onClick″LANGUAGE=″VBScript″〉
Dim array(100),i,s,element
s=0
For i=0 to 100
array(i)=2*i
Next
For each element in array
s=s+element
Next
MsgBox ″2+4+6+⋯+200=″&s
〈/SCRIPT〉
〈/BODY〉
〈/HTML〉
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。