VB：数值交换

Private Sub Command1_Click()
    Dim a%, b%
    a = 5
    b = 7
    Call mySwap(a, b)
    Print "a="; a
    Print "b="; b
End Sub
'ByRef 关键字允许子程序直接修改传递的参数的值，而不仅仅是拷贝一份副本，这样可以实现更灵活的数据处理和交换。
Sub mySwap(ByRef a, ByRef b)
    Dim c
    c = a
    a = b
    b = c
End Sub