Sub swap(ByRef a As Long, ByRef b As Long) Dim temp As Long temp=a a=b b=tempEnd Subtempを用いない手法もあるみたい…
タグ: