杭州交通信息网北京12315在线投诉举报:请求帮助~~VB
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 23:01:00
Private Sub procl(x As Integer, y As ineger, z As Integer)
x = 3 * z
y = 2 * z
z = x + y
End Sub
Private Sub command1_click()
Dim x As Integer, y As Integer, z As Integer
x = 1: y = 2: z = 3
Call procl(x, x, z)
Print x: x: z
Call procl(x, y, y)
Print x: y: z
End Sub
求结果是多少，有人知道吗？我算出来是6 6 12和18 12 30。对不对啊？
（注：“超越神的人”请不要回答我的问题）
麻烦把后面那个print的答案怎么得出的过程写一下
x = 3 * z
y = 2 * z
z = x + y
End Sub
Private Sub command1_click()
Dim x As Integer, y As Integer, z As Integer
x = 1: y = 2: z = 3
Call procl(x, x, z)
Print x: x: z
Call procl(x, y, y)
Print x: y: z
End Sub
求结果是多少，有人知道吗？我算出来是6 6 12和18 12 30。对不对啊？
（注：“超越神的人”请不要回答我的问题）
麻烦把后面那个print的答案怎么得出的过程写一下
x = 1: y = 2: z = 3
Call procl(x, x, z)(改变的只是x与z的值与y无关)==>Call procl(1, 1,3)
{
x=3*3=9
x=2*3=6
z=x+y=>y=2*x=>2*6=12
}
Print x: x: z==>6:6:12
Call procl(x, y, y) 改变的只是x与y的值与z无关)==>Call procl(6, 2,2)
{
x=3*2=6
y=2*z=>y=2*2=4
z=x+y=>y=x+y=>6+4=10
}
Print x: y: z==>6:10:12
你算的不对，结果是6 6 12 和 6 10 12 。我在VB上帮你跑过一遍，应该没错。