From i= To
style="width:20"> Ans=?  
sub sloop(a1,a2)
on error resume next
q=0
if a1 mod 2=0 then a1=a1+1
do
if a1-a2>0 then exit do
q=a1+q
a1=a1+2
loop
s.innertext=q
end sub
02月10日 编辑 fanwen51.com
style="width:20"> Ans=?  
sub sloop(a1,a2)
on error resume next
q=0
if a1 mod 2=0 then a1=a1+1
do
if a1-a2>0 then exit do
q=a1+q
a1=a1+2
loop
s.innertext=q
end sub