江苏VB05年春填空题3讲解（题见下）3．执行下面的程序后，单击按钮Command1，则N的值是10，A的值是27，B的值是9。OptionExplicitDimnAsIntegerP

Question

江苏VB 05年春填空题3讲解（题见下）
3．执行下面的程序后，单击按钮 Command1 ，则 N 的值是 ____10________ ， A 的值是 _____27_______ ， B 的值是 _____9_______ 。
　　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

n=7
a=72
b=292