※上記の広告は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を使った方法がありますが、このようにお勧めではないですよ。他の手法も概ね同じです。
最終更新:2010年01月25日 19:04