UC知道谁能帮我分析一下这道vb题目！
来源：百度知道 编辑：UC知道 时间：2024/06/17 00:54:55
Private Sub Command1_Click()
Dim x As Integer, y As Integer, m As Integer
y = 2
For x = 1 To 8 Step y
m = x + y
Call sub1(m, x)
Print m, x
Next x
End Sub
Private Sub sub1(ByVal a As Integer, b As Integer)
a = a + b
b = b + 1
End Sub
第一行显示：
第二行显示
第三行显示：
Dim x As Integer, y As Integer, m As Integer
y = 2
For x = 1 To 8 Step y
m = x + y
Call sub1(m, x)
Print m, x
Next x
End Sub
Private Sub sub1(ByVal a As Integer, b As Integer)
a = a + b
b = b + 1
End Sub
第一行显示：
第二行显示
第三行显示：
第一次call sub1(m,x):即: call sub1(3,1),print m,x 结果是:3,2
第二次call........................sub1(6,4)................: 6,5
第三次call........................sub1(9,7)................: 9,8
结束循环!
sub1的参数b(即是实参x)是按地址传递,每调用一次sub1过程,x的值就会加1
本循环相当于:
y=2
For x = 1 To 8 Step 3
m = x + y
Print m, x
Next x
End Sub
3 2
6 5
9 8
我算错了