ヒープソートで降順に並べるには？ (ID:122395)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 花ちゃんさん、いなさんこんにちは。 >貴方が質問する時に 5W1H 入れるようにして質問しないとこのような答えしか書けない(何がうまくいかなくて、それのどこが解らないのか誰も解らない)でしょう。 ソースコード書くのを忘れてました。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim temp As Integer j = 6 For i = 0 To 6 temp = List2.List(i) List2.List(i) = List2.List(j) List2.List(j) = temp Call Heap(1, j - 1) j = j - 1 Next End Sub Private Sub Heap(a, c As Integer) Dim b As Integer Dim temp As Integer b = 2 * a If c >= b Then If (List1.List(b) < List1.List(b + 1)) And (c > b + 1) Then b = b + 1 End If If List1.List(a) < List1.List(b) Then temp = List2.List(a) List2.List(a) = List2.List(b) List2.List(b) = temp Call Heap(b, c) End If End If End Sub 変換ボタンを押しても永遠にソートしてくれません。(数字は動くのですが・・・) どうしたら出来ますか？宜しくお願いします。