z=4x=1y=7z=5DimxasIntegerPrivateSubFormClick()DimyasInteger,zasIntegery=1:z=2Callinit(y,z)Print"y=";y,"z=";zy=op(y,z)Print"x=";x,"y=";y,"z=";zEndSubPrivateSubinit(ByValaAsInteger,bAsInteger)a=a+2:b=b+2:x=

Question

z=4 x=1 y=7 z=5
Dim x as Integer
Private Sub Form_Click()
Dim y as Integer,z as Integer
y = 1:z = 2
Call init (y,z)
Print "y="; y,"z="; z
y = op(y,z)
Print "x="; x,"y="; y,"z="; z
End Sub
Private Sub init(ByVal a As Integer,b As Integer)
a = a + 2:b = b + 2:x = x + 1
End Sub
Private Function op(a As Integer,b As Integer) As Integer
a = a + 1:b = b + 1:op = a + b
End Function

Answer 1

ghjgj