堆排序的步骤有哪些？用堆排序对数组2,9,7,6,5,8进行排序，写出过程

rt

Private Sub Command1_Click()
Dim a(99) As Integer
Randomize
Form2.AutoRedraw = True
Dim i As Integer, j As Integer, temp As Integer
For i = 0 To 99

a(i) = Int(Rnd * 500 + 20) '
If a(i) > 500 Then
a(i) = a(i) - 20
End If
Print a(i) & " "; '在窗体上输出原始数据
Next i
For i = 0 To 99 '冒泡排序
For j = 0 To 98 - i
If (a(j) > a(j + 1)) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next i
Print
For i = 0 To 99 '在窗体上输出排序后的数据
Text1.Text = Text1.Text & " " & a(i)
Next i
End Sub

这是一个排序示例，你参考下

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息