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