|
Ciao a tutti,
sto sviluppando un programma che ordina un vettore con diversi tipo di ordinamento.
In un tasto ho implementato uno shell sort di questo tipo:
<--->
increment = 3
k = 0
While (increment > 0)
cc = cc + 1 'Conta confronti
For i = 1 + increment To numvet
temp = vaux(i)
cs = cs + 1 'Conta scambi
For j = i - increment To 1 Step 0 - increment
If (vaux(j) > temp) Then
cc = cc + 1 'Conta confronti
vaux(j + increment) = vaux(j)
cs = cs + 1 'Consta scambi
Else
Exit For
End If
Next j
vaux(j + increment) = temp
cs = cs + 1 'Conta scambi
Next i
increment = increment - 1
cs = cs + 1 'Conta scambi
Wend
<--->
Durante l'ordinamento pero devo incrementare una scrollbarr ma non so dove metterla^^"...Aiuto
| 
