Codice VB6 - Bubble sort

Materie:Appunti
Categoria:Informatica

Voto:

2 (2)
Download:167
Data:08.11.2001
Numero di pagine:1
Formato di file:.txt (File di testo)
Download   Anteprima
codice-vb6-bubble-sort_1.zip (Dimensione: 0.29 Kb)
trucheck.it_codice-vb6--bubble-sort.txt     353 Bytes
readme.txt     59 Bytes


Testo

Dim Appo As Integer

Me.TxtOrdinato.Text = ""

For I = 0 To UBound(V)
For J = I + 1 To UBound(V)
If V(I) >= V(J) Then
Appo = V(I)
V(I) = V(J)
V(J) = Appo
End If
Next J
Me.TxtOrdinato.Text = Me.TxtOrdinato.Text & " " & V(I)
Next I

Il vettore и V() e il TextBox и TxtOrdinato

Esempio