< návrat zpět

Obecná diskuse


Téma: Heap sort rss

Zaslal/a 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

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Přiřadit informace

Baja • 19.9. 21:05

Přiřadit informace

r13 • 19.9. 20:53

Přiřadit informace

Baja • 19.9. 18:37

Přiřadit informace

Baja • 19.9. 18:35

Značení buněk makrem

Anonym • 17.9. 11:03

kopie pouze změněného formátu

r13 • 17.9. 10:06

Značení buněk makrem

marjankaj • 17.9. 9:35