过程调用的执行过程: Private Sub cmdOKO Private Sub Swap(x%y%o) Dim temp Call Swap(a, b) Temp=X XEY Swap a Y=Temp End Sub End SubPrivate Sub CmdOK() …… Call Swap(a,b) …… Swap a,b End Sub Private Sub Swap(x%,y%) Dim temp% Temp=X X=Y Y=Temp End Sub 过程调用的执行过程：