Private Sub fun()
if i mod 2 = 0 then
for x=i to a step 2
s=s*x
next x
else
for x=(i+1) to a step 2 then
s=s*x
next x
end if
试试看行不行吧