Question

VB题求详解 我知道是答案是16 要详解步骤 谢谢 在线等

Private Sub Command1_Click()
Dim total As Integer
total = s(1) + s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i = 1 To m
x = x + 1
Next i
s = x
End Function
单击Command1三次的结果

Answer 1

第一次单击时，进入s，定义一次x（以后都不会再重新定义，就是说Static使得x在程序一运行时就有了，三次单击都用的是同一个x），s(1)=0+1=1 (x=1)，s(2)=(x+1)+1=3 (x=3)，total=4;(s、x值为最后一次循环的结果值)

第二次单击时，进入s，用已存在的x（并没有定义一个新的x，x为上一次单击后的x值，即为3），s(1)=x+1=4 (x=4)，s(2)=(x+1)+1=6 (x=6)，total=10;

第二次单击时，进入s，s(1)=x+1=7 (x=7)，s(2)=(x+1)+1=9 (x=9)，total=16;

这主要就是理解Static的作用，静态变量全局运行就只有一个

Answer 2

Static 表示循环利用变量

S(1)的时候，i=1，x=0+1=1
S(2)的时候，i=1，x=1+1=2；i=2，x=2+1=3
所以，第一次单击Command=1+3=4

第二次单击的时候，同理
S(1)，i=1，x=3+1=4
S(2)，i=1，x=4+1=5,；i=6，x=5+1=6
第二次的s(1)+S(2)=10

第三次就一样了，
S(1)，i=1，x=6+1=7
S(2)，i=1，x=7+1=8；i=2，x=8+1=9
S(1)+S(2)=16

Answer 3

4
10
16