求ASP强人帮我解题
、 用do…loop循环, 编写代码求100个以内偶数相加的和。<%
%>
2、 编写程序,计算22+42+62+…+182+202。
<%
<% Dim a,b,c a=1 c=0 Do While a<=100 b=a Mod 2 If b<>1 Then c=c+a End If a=a+1 Loop response.write c %>
<% Dim a a=0 For i = 22 To 202 Step 20 a=a+i Next response.write a %>