並び替えの基本ロジックの３回目、最終回です。
今回は、バブル・ソートの基本的部分「単純交換法」です。

この練習では、Excel のセルを数字の入力域および出力域として利用します。
Sheet1 のセルA1〜A5 に、適当な整数を入れておいてください。

この「単純交換法」は、１回目の単純選沢法と、２回目の単純挿入法を合わせたようなものです。

単純選沢法	一番小さい数字を探して入れ替える
単純挿入法	２番目の数字から自分より前の数字と大小比較を始めて、自分の置かれるべき場所（常に自分より前）に移動していく
単純交換法	１番目の数字から始めて、自分より後ろの一番小さい数字を探して、自分の位置に挿入していく

つまり「単純交換法」は、単純選沢法の「一番小さい数字を探す」ロジックと、 単純挿入法の「数字を挿入する（後ろの数字をずらしていく）」ロジックを合わせたものです。

では、例を出してみましょう。

例：５５，２２，４４，１１，３３ の５つの数字を、小さい順に並べ替えます。

1. １番目の数字５５から始めます。
   自分より後ろのすべての数字２〜５番目で、一番小さい数字を探します。
   　　　　↓────────↓
   ５５，２２，４４，１１，３３
   
   一番小さい数字は１１で、１番目の数字５５より小さいので、１番目に入ります。 それから、一番小さい数字より前の数字、５５〜４４は１つずつ後ろにずれます。
   すると、１１，５５，２２，４４，３３　となります。
   もし１番目の数字が、後ろの「一番小さい数字」より小さかったら、何もしません。
   
   
   
2. 次は２番目の数字です。
   自分より後ろのすべての数字３〜５番目で、一番小さい数字を探します。
   　　　　　　　↓─────↓
   １１，５５，２２，４４，３３
   
   一番小さい数字は２２で、２番目の数字５５より小さいので、２番目に入ります。 それから、一番小さい数字より前の数字、５５〜２２は１つずつ後ろにずれます。
   すると、１１，２２，５５，４４，３３　となります。
   もし２番目の数字が、後ろの「一番小さい数字」より小さかったら、何もしません。
   
   
   
3. それから３番目の数字です。
   自分より後ろのすべての数字４〜５番目で、一番小さい数字を探します。
   　　　　　　　　　　↓──↓
   １１，２２，５５，４４，３３
   
   一番小さい数字は３３で、３番目の数字５５より小さいので、３番目に入り、５５〜４４は１つずつ後ろにずれます。
   すると、１１，２２，３３，５５，４４　となります。
   もし３番目の数字が、後ろの「一番小さい数字」より小さかったら、何もしません。
   
   
   
4. 次は４番目の数字です。
   自分より後ろの数字５番目で、一番小さい数字は・・・５番目ですね。
   　　　　　　　　　　　　↓↓
   １１，２２，３３，５５，４４
   
   ５番目の数字４４は、４番目の数字５５より小さいので、４番目に入り、５５は１つ後ろにずれます。
   すると、１１，２２，３３，４４，５５　となります。
   もし４番目の数字が、５番目の数字より小さかったら、何もしません。
   
   
   これで、並び替わりました。 (^^)
   
   ここの説明では、数字を横に並べていますが、縦に並べて数字の動きを見てみます。
   
   

バブル・ソートは、いろいろな工夫を凝らして、もっと複雑なロジックになっているそうですが、基本は同じです。 数字を縦に並べて その動きを見ると、まるで水の中の泡のように、数字がポコポコ浮かび上がるように見えるので、 バブル（泡）ソートという名前が付いた・・・と聞きましたが、真偽の程はわかりません。(^^;

ロジックは理解できましたか？
これをプログラムにできますか？
１回目と２回目を合わせたものなので、プログラムも１回目と２回目を見てもらえば わかるのですが。

前回は、３重のループでしたが、今回は・・・さて？
でも前回と同様、まず、ループを意識しないで、ループなしで考えてみましょう。

1. 一番小さい数字用の変数を宣言します。
   Dim min_suji　　As Integer '一番小さい数字
   Dim min_no　　　As Integer '一番小さい数字が何番目か
   
   
   
2. １番目の数字から始めます。
   まず１番目の数字が一番小さいと仮定します。
   一番小さい数字の情報を、変数 min_suji, min_no にセットします。
   min_suji = Cells(1, 1)　　'min_suji ← １番目の数字
   min_no = 1　　　　　　　　'min_no ← 1(番目)
   
   
   
3. 後ろの一番小さい数字を探します。
   自分（今は１番目の数字）の後ろの数字は、２〜５番目の数字です。
   
   
   1. ２番目の数字と一番小さい数字を比較します。
      If Cells(1, 2) < min_suji Then
      もし２番目の数字のほうが小さいなら、２番目の数字の情報を、変数 min_suji, min_no にセットします。
      　　min_suji = Cells(1, 2)　　'min_suji ← ２番目の数字
      　　min_no = 2　　　　　　　　'min_no ← 2(番目)
      End If　　　　　　'２番目のほうが大きい場合は、何もしない
      
      
      
   2. ３番目の数字と一番小さい数字を比較します。
      If Cells(1, 3) < min_suji Then
      もし２番目の数字のほうが小さいなら、３番目の数字の情報を、変数 min_suji, min_no にセットします。
      　　min_suji = Cells(1, 3)　　'min_suji ← ３番目の数字
      　　min_no = 3　　　　　　　　'min_no ← 3(番目)
      End If　　　　　　'３番目のほうが大きい場合は、何もしない
      
      
      
   3. ４番目の数字と一番小さい数字を比較します。
      If Cells(1, 4) < min_suji Then
      もし４番目の数字のほうが小さいなら、４番目の数字の情報を、変数 min_suji, min_no にセットします。
      　　min_suji = Cells(1, 4)　　'min_suji ← ４番目の数字
      　　min_no = 4　　　　　　　　'min_no ← 4(番目)
      End If　　　　　　'４番目のほうが大きい場合は、何もしない
      
      
      
   4. ５番目の数字と一番小さい数字を比較します。
      If Cells(1, 5) < min_suji Then
      もし５番目の数字のほうが小さいなら、５番目の数字の情報を、変数 min_suji, min_no にセットします。
      　　min_suji = Cells(1, 5)　　'min_suji ← ５番目の数字
      　　min_no = 5　　　　　　　　'min_no ← 5(番目)
      End If　　　　　　'５番目のほうが大きい場合は、何もしない
      
      はい、これで一番小さい数字が、わかりましたね。
      
      
      
4. 自分（今は１番目の数字）と、一番小さい数字を、大小比較します。
   If Cells(1, 1) < min_suji Then
   
   
   
5. １番目の数字が一番小さい数字未満なら、一番小さい数字は１番目に入り、一番小さい数字より前の数字は１つずつ後ろにずれます。
   　　If min_no = 5 Then
   　　　'一番小さい数字が５番目なら、４番目の数字は５番目にずれます。
   　　　　Cells(1, 5) = Cells(1, 4)　　　　'５番目 ← ４番目の数字
   　　End If　　　　　　'５番目でないなら、何もしない
   
   　　If min_no => 4 Then
   　　　'一番小さい数字が４番目以降なら、３番目の数字は４番目にずれます。
   　　　　Cells(1, 4) = Cells(1, 3)　　　　'４番目 ← ３番目の数字
   　　End If　　　　　　'４番目以降でないなら、何もしない
   
   　　If min_no => 3 Then
   　　　'一番小さい数字が３番目以降なら、２番目の数字は３番目にずれます。
   　　　　Cells(1, 3) = Cells(1, 2)　　　　'３番目 ← ２番目の数字
   　　End If　　　　　　'３番目以降でないなら、何もしない
   
   　'一番小さい数字は、当然２番目以降なので、１番目の数字は２番目にずれます。
   　　Cells(1, 2) = Cells(1, 1)　　　　　　'２番目 ← １番目の数字
   
   　'一番小さい数字は、１番目に入ります。
   　　Cells(1, 1) = min_suji　　　　　　　　'１番目 ← 一番小さい数字
   
   End If　　　　　　'自分のほうが大きい場合は、何もしない
   
   
   

ふう、やっぱ ループを使わないのって、大変だ。 よって、説明は、ここまでにします。

まだ１番目の数字しか処理していませんが、１番目の数字が一番大変です。 あと、２〜４番目の数字の処理は、皆様が考えてください。
「え？　５番目の数字の処理は？」
と言う人がいたら・・・最後の数字の後ろに、いったいどんな数字があるのか、教えてください。(笑)

また Do 〜 Loop を使って、５つの数字でなく、もっとたくさんの数字の並び替えができるようにしてください。

さて何重のループになるでしょうか？ まずは１重のループから考えてみてください。

ヒントは・・・一番小さい数字を探すところと、１つずつ数字をずらすところから、やってみてね。 それぞれ別のループになりますよ。