Obecná diskuse

Téma: Heap sort

Zaslal/a karlherbert 19.3.2010 15:06

zdravim snazim se pomoci VBA trochu experimentovat s haldou mam, v prvnim kroku bych ji spise potreboval vytvorit kompilace mi sice chybu nenahlasila ale vysledek taky neni z toho, jakej bych chtel tu je kod...popostrcte me prosim jak to udelat abych napriklad na libovolnem liste napriklad od bunky A1 po bunku A8 to tak nejak vytvoril dekuju, halda by se mela spustit pomoci command buttonu zde je kod diky

Dim a(1 To 8) As Integer
Dim cislo As Integer
cislo = 1
i = 1
j = 2 * i
x = a(i)
Do Until (j <= r)
If (j < r) Then
If a(j) < a(j + 1) Then
j = j + cislo
If x >= a(j) Then
End
a(i) = a(j)
i = j
j = 2 * i
End If
a(j) = x
End If
End If
Loop
End Sub

Private Sub CommandButton1_Click()
Call Halda(15, 16) /-sem presne nevim co ulozit tak sem napsal libovlne cislice asi by tem melo bejt pole
End Sub