Private Sub Change(ByVal x As Integer,ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
'在窗体是输出结果
Print "x="; x,"y="; y
End Sub
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a = 3:b = 4
Change a,b
Print "a="; a,"b="; b; ""
End Su
Private Sub Change(ByVal x As Integer,ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
'在窗体是输出结果
Print "x="; x,"y="; y
End Sub
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a = 3:b = 4
Change a,b
Print "a="; a,"b="; b; ""
End Su