Question

求高手，给出最后输出的答案，关键是答案怎么出来的，过程比结果重要，跪谢

Option Explicit

Private Sub Command1_Click()
Dim a As Integer, b As Integer, z As Integer
a = 1: b = 1: z = 1
Call p1(a, b)
Print a, b, z
Call p1(b, a)
Print a, b, z
End Sub
Private Sub p1(x As Integer, ByVal y As Integer)
Static z As Integer
x = x + z: y = x - z: z = x + y
Print x, y, z
End Sub

Answer 1

朋友的空间留言，你让我很怀疑你要跟她在一起的目的，真正的爱是希望自己爱的人过的好，你这样不是在伤害她吗？你这样做还是男人吗？对得起自己的良心吗？.....不是所有的错误一句对不起就能解决的！你后面发那些短信有什么意思呢，你觉得她还可能会原谅你吗？像你这样的男人注定得不到自己所爱女孩的心，你自己好好想想吧！