構造体の配列をソートし、その上位半数を抽出し、それをさらに別条件でソート。
というようなことをしなくちゃいけなかったんだけど、VB6 はしんどすぎ…。

.NET の IEnumerable<T> の拡張メソッド OrderBy と Take が欲しかった (´･ω･`)