Question

求一道VB题的计算过程？

Private Sub Command1_Click()
Static x As Integer
x = x + 1
Call proc(x)
Print x,
End Sub
Private Sub proc(a As Integer)
Static x As Integer
x = x + a
a = x
End Sub

Answer 1

第一次点击，因为没有赋值，x默认是0，x = x + 1的结果是1，进入CALL过程后，x默认也是0，于是结果就是1，调用结束后显示出来就是：1。

第二次点击时，x默认是1，x = x + 1的结果是2，进入CALL过程后，x默认是1，于是结果就是2+1，调用结束后显示出来就是：3。
第三次点击时，x默认是3，x = x + 1的结果是4，进入CALL过程后，x默认是3，于是结果就是4+3，调用结束后显示出来就是：7。
正确答案：1，3，7