Question

一道VB题目，求详解

Answer 1

Private Sub command1_Click()
Dim k As Integer, m As Integer, p As Integer
k = 4: m = 1
p = pc(k, m): Print p; '调用下面的pc函数并输出p的值
p = pc(k, m): Print p  '再次重复上面的操作
End Sub
Function pc(a As Integer, b As Integer)
Static m As Integer, i As Integer   '虽然定义 m 和 i 是静态变量，但是
m = 0: i = 2   '这里给它们重新赋了值，所以每次输出的结果都是两个 8 ，如果把此句注释了，则每次的结果都不一样
i = i + m + 1
m = i + a + b
pc = m  'm 的值作为此函数的返回值传给上面的变量 p
End Function

追问

那两个8是怎么的来的？

追答

m = 0: i = 2 ' 这是两句
i = i + m + 1
m = i + a + b
这四句计算来的，由于每次调用该函数时，都执行了前面两句，也就是说，每次调用函数时的 m 都从0开始，i 都从2开始，再执行下面两句，i=i+m+1=2+0+1=3，m=i+a+b=3+4+1=8（式中 a 和 b 的值是主调函数传递过来的 k 和 m 的值），最后一句 pc=m=8，8 就被传回主调函数并输出了。每点击一次按钮，就执行了两次：
p = pc(k, m): Print p; '调用下面的pc函数并输出p的值
p = pc(k, m): Print p '再次重复上面的操作
所以，每次输出两个 8

追问

能再问你一道题吗？

太难了，我都不会，如果你能回答就太感谢了

追答

你手写的那道题我已经在你单独发的帖子中回复了

追问

好的，谢谢

还有一道题呢？

追答

最后一题，关键在于那个static 定义，这是静态变量的定义，作用是这种定义的变量在每次进入函数内部时，它能保存上次运算之后的结果，而不是重新开始，也就是说，第一次开始时x的值是0，经过x=x*a+1运算后的值是1，这个1就会保留下来，第二次调用时x的值就从这个开始了，也就是x=x*a+1=1*3+1=4，同理，这个4也会保留到下次调用时再使用，所以第三次调用时，x=x*a+1=4*3+1=13

追问

好的，我懂了，谢谢

还有一题，麻烦了