中科新闻网成都家私厂家所有品牌:请教VB高手．．．．
来源：百度文库 编辑：中科新闻网 时间：2024/05/09 08:09:49
其运行的结果是???
Private Sub Form_click()
Dim a As Integer
Dim b As Integer
a = 10
b = 20
Print "a", "b"
swap1 a, b
Print a, b
swap2 a, b
Print a, b
End Sub
Private Sub swap1(ByVal x As Integer, ByVal y As Integer)
Dim k As Integer
k = x
x = y
y = x
y = k
End Sub
Private Sub swap2(x As Integer, y As Integer)
Dim k As Integer
k = x
x = y
y = k
Print x, y
End Sub
Private Sub Form_click()
Dim a As Integer
Dim b As Integer
a = 10
b = 20
Print "a", "b"
swap1 a, b
Print a, b
swap2 a, b
Print a, b
End Sub
Private Sub swap1(ByVal x As Integer, ByVal y As Integer)
Dim k As Integer
k = x
x = y
y = x
y = k
End Sub
Private Sub swap2(x As Integer, y As Integer)
Dim k As Integer
k = x
x = y
y = k
Print x, y
End Sub
a b
10 20
20 10
20 10
单击一下Form，显示以下内容：
a b
10 20
20 10
20 10