値の交換 - abwiki @ ウィキ (ActiveBasic非公式wiki)

※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

---

aとbの値を交換するためのアルゴリズムです。

Sub swap(ByRef a As Long, ByRef b As Long)
Dim temp As Long
temp=a
a=b
b=temp
End Sub

tempを用いない手法もあるみたい…

http://www.dd.iij4u.or.jp/~okuyamak/Information/xor_fixed_swapping.html tempを使わない方法の1つにXORを使った方法がありますが、このようにお勧めではないですよ。他の手法も概ね同じです。