Question

visual basic的问题

呃，我与之奋斗了好几个小时，都没有办法弄出来正确的答案，希望大家帮帮忙~~~
正确答案 n=10 a=27 b=9
问题是 执行下面的程序后，单击按钮command1 ，则n= ，a= ，b=
options explicit
dim n as integer
private sub command1_click()
dim a as integer,b as integer
a=2:b=2
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 (x as integer,y as integer)as integer
x=y-1+n
y=x+y-n
fun=x+y
end function

Answer 1

'最后输出的结果是 n = 10, a = 27, b = 9
'另, 你的 Private Function 后面少了 Fun
'具体过程如下:
'第 1 次循环开始, n = 1 , a = 2 , b = 2
'n( 1 )不可整除 2, a = Fun(b, n) + b
'第 1 次调用 Fun, 参数值为: x = 2 , y = 1
'运算后 , x = 1, y = 1, 返回值 = 2
'调用 Fun 完毕, n = 1 , a = 3 , b = 1
'在执行 Next 时会为循环变量加上 Step 后的值(缺省为 1)
'
'第 2 次循环开始, n = 2 , a = 3 , b = 1
'n( 2 )可以整除 2, b = Fun(n, a) + a
'第 2 次调用 Fun, 参数值为: x = 2 , y = 3
'运算后 , x = 4, y = 3, 返回值 = 7
'调用 Fun 完毕, n = 4 , a = 3 , b = 10
'在执行 Next 时会为循环变量加上 Step 后的值(缺省为 1)
'
'第 3 次循环开始, n = 5 , a = 3 , b = 10
'n( 5 )不可整除 2, a = Fun(b, n) + b
'第 3 次调用 Fun, 参数值为: x = 10 , y = 5
'运算后 , x = 9, y = 9, 返回值 = 18
'调用 Fun 完毕, n = 9 , a = 27 , b = 9
'在执行 Next 时会为循环变量加上 Step 后的值(缺省为 1)
'
'最后结果: n = 10 , a = 27 , b = 9

Answer 2

我用的python,比basic功能强大,易学