今日、会社で内部ソート処理を組んだ。
参考になるソースがなかったので、
先輩に聞いたら、バブルソートで組んだソースを
見せられた（萎

仕方ないから自分で、組んだのだが
こういうソートってなんていうアルゴリズムだっけ？

ソース

Dim i As Integer, j As Integer 'ループ用使いまわし
Dim wk1 As Integer '最小値検索用ワーク
Dim w_idx As Integer '検索結果インデックス
Dim idx2 As Integer '格納先テーブルインデックス
Dim table1(100) As Integer '格納元テーブル
Dim table2(100) As Integer '格納先テーブル

'テーブルに乱数をセット
For i = 1 To 100: table1(i) = Int(Rnd(1) * 1000): Next i

'ソート
idx2 = 1
For i = 1 To 100
wk1 = 9999: w_idx = 0 '格納元テーブル中の最小値をサーチ
For j = 1 To 100
If table1(j) < wk1 Then
wk1 = table1
w_idx = j
End If
Next j
table2(idx2) = wk1 '格納先にサーチした最小値をセット
table1(w_idx) = 9999 '格納元の値を無効化
idx2 = idx2 + 1
Next i

本物は、変数名や命令がちっと違うけど
ロジック自体は同じれす。

だれかマジレス、きぼん。