<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
dim i,s，r as integer
s=0
for i=0 to 100 step 2 'step设置步长，如果是步长是1的话就不用设置了
r+=i
s+=1
next
response.Write("偶数和是：" & r & "共运行了：" & s & "次")
end sub
</script>
sub page_load(sender as object,e as eventargs)
dim i,s，r as integer
s=0
for i=0 to 100 step 2 'step设置步长，如果是步长是1的话就不用设置了
r+=i
s+=1
next
response.Write("偶数和是：" & r & "共运行了：" & s & "次")
end sub
</script>
