![]() |
#2
Artless2013-01-01 11:25
|
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label1.Caption = x
Label2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b As Integer)
x = a * a
y = b + b
End Sub
运行结果x=25,y=3
加一句Private y As Integer
x=25,y=6