2004-04-07から1日間の記事一覧
' クイックソートのインターフェース Sub qsort(array) quicksort array, 0, UBound(array) End Sub ' クイックソート本体(再帰) Sub quicksort(array, first, last) Dim point, f, l, tmp point = array(first) f = first: l = last Do While array(f) Wh…
http://medwave.nikkeibp.co.jp/kaigyo/karte/