VB的问题 请大家帮帮我啊

Option Explicit
Dim x As Integer, y As Integer
Private Sub form_click()
Dim a As Integer, b As Integer
a = 5: b = 3
Call sub1(a, b)
Print a, b
Print x, y
End Sub

Private Sub sub1(ByVal m As Integer, n As Integer)
Dim y As Integer
x = m + n: y = m - n
m = fun1(x, y)
n = fun1(y, x)
End Sub

Private Function fun1(a As Integer, b As Integer) As Integer
x = a + b: y = a - b
Print x, y
fun1 = x + y
End Function

请问第一行显示的10，8 怎么计算出来的啊 我算来算去都是10，6啊

我知道运算的步骤啊 可是就是得不出答案 谁能仔细点说一下啊谢谢啦

VB的问题 请大家帮帮我啊 VB的问题~~~基础的 大家帮帮我 vb大家帮帮我! 痛心疾首的问题,请大家帮帮我??? 请大家帮帮我，打印机的问题！！ 找工作的问题!请大家帮帮我! 计算机的问题请大家帮帮我！！！！ 汇款的问题～请大家帮帮我 肝腹水的问题,请大家帮帮我! psp的问题请大家帮帮我