Question

VB试题：编写函数fun,函数的功能是：求I 到a之间的偶数之积

Answer 1

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

试试看行不行吧