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

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