求关于此题的算法过程：谢谢你拉

Question

option explicit
dim n as integer
private sub command1_click()
   dim a as integer,b as integer
   a=2:b=3
   for n=1 to 6
       if n mod 2 =0 then
              b=fun(n,a) +a
        else
            a=fun(b,n) +b
        end if
   next n
   print n,a ,b
end sub
private function fun (x as integer,y as integer) as integer
  x=y-1+n
  y=x+y-n
  fun =x+y
end function

Answer 1

何谓算法过程？源代码都出来了……

Answer 2

是不是算法具体的执行步骤啊？要是这样的话，这题也步复杂啊！自己用程序调试一步一步看就行了！在本地 监视这些窗口里看变量的变化！