Příspěvky uživatele


< návrat zpět

Heap sort (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


Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje