一道江苏省二级VB题目 我只问一部分 其于的我自己做 大虾门帮忙啊

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
第一个循环 Function fun(x As Integer, y As Integer)中X为B即为3 Y为N即为1 然后 x = y - 1 + n 中因N=Y=1得 x = y - 1 + n为1 Y=x+y-N为1 fun = x + y为2 得A为3 N为1 B为1 为什么这样算错误

二级VB考试的一道题目 一道vb二级题目-----高手请进 问一道二级VB概念题 二级vb题目，急！！！！ 一道计算机二级VB 一道二级VB题 一道二级C题目 C++二级题目一道 江苏省计算机二级等级考试VB 我问一道数学题目~