Question

vb编程实例

Private Sub Command1_Click()
Dim p As Integer
p = m(1) + m(2) + m(3)
Print p
End Sub

Private Function m(n As Integer) As Integer
Static s As Integer
For k = 1 To n
s = s + 1
Next
m = s
End Function
为什么结果是10，求解~~万分感谢！！

Answer 1

Static s As Integer s 是静态变量，过程结束后，数据依然存在，且值保持原来不变
一开始s=0
m(1),走入Function,时，n=1 ,循环一次（加上一个1），s=1,m(1)=1
m(2),走入Function,时，s=1(值保持原来1不变),n=2 ,循环2次（加上2个1），s=3,m(2)=3
m(3),走入Function,时，s=3(值保持原来3不变),,n=3 ,循环3次（加上3个1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10

Answer 2

m（1)=1
m(2)=1+2
m(3)=1+2+3
p=10