<html>
<head>
<title>for each...next语句应用示例</title>
<%
  dim myarray(100),sum
  sum = 0 
  for i = 0 to 100
    myarray(i) = 2 * i
  next
  for each element in myarray
    sum = sum + element
  next
  %>
</head>
<body>
<%
response.Write "2+4+6+…+200相加之和为:"&sum
%>
</body>
</html>
