求ASP强人帮我解题

、   用do…loop循环， 编写代码求100个以内偶数相加的和。
<%

 Dim i,Total
 do while i<100
    i=i+1
    IF i mod 2=0 Then
       Total=Total+i
    End IF
 Loop
 Response.Write "100以内偶数和"&Total
%>
2、   编写程序，计算22+42+62+…+182+202。
<%
  Dim i
  i=22
  Do While i<=202
     i=i+20
  Loop
  Response.Write "计算结果"&i
%>
这些都是最基础的，楼主连这个都不会做上课时肯定没认真听讲。