Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label
1.Caption = x
Label
2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b
As Integer)
x = a * a
y = b + b
End Sub
运行程序后, 则两个标签中显示的内容分别是
A.5和3
B.25和3
C.25和6
D.5和6