Visual Basic 6 - Problema con i vettori

Salve,
ho un problema con i vettori:

Private Sub Command4_Click()
Dim J As Integer
For i = 1 To N - 1
For J = i + 1 To N
If Numeri(i) > Numeri(J) Then
Scambia Numeri(i), Numeri(J)
End If
Next J
Next i


End Sub


Sub Scambia(ByRef x As Integer, ByRef Y As Integer)
Dim appoggio As Integer
appoggio = x
x = Y
Y = appoggio


End Sub

Quando premo sul pulsante ordina...mi visualizza il risultato nella stessa Label però attaccando i numeri vekki con quelli ordinati, io però voglio che cancelli il contenuto dei numeri inseriti casualmente e visuallizzi quelli in modo crescente? Poi come visualizzarli in una label vuota?

Se devo postare anke il resto del codice...ovviamente non ci sono problemi.

Grazie

si penso servi anche il resto del codice perchè senza vedere tutto è un pò difficile=)
comunque se nella label ci sono ancora quelli vecchi vuol dire che prima di inserire quelli nuovi non hai tolto quelli vecchi..quindi prova, prima di inserire quelli nuovi a fare:

nome_label=""

e vedere se funziona

Quindi non hai un problema con i vettori ma con la label ... ma nel codice che hai mostrato non c'è nulla che faccia riferimento a delle label ...

Illogicità O.o

Option Explicit
Dim i, N, tot, totpari, totdispari, indicipari, indicidispari As Integer
Dim Numeri(1 To 30) As Integer




Private Sub Command1_Click()
tot = 0
totpari = 0
indicipari = 0
indicidispari = 0

Do
N = InputBox("quanti numeri vuoi inserire?" & vbCrLf & _
"(inserire un vamlore minore di 30)", "richiesta numero dati")
Loop While N > 30

For i = 1 To N
Numeri(i) = InputBox("inserisci un numero", "inserimento dati")
Next i

End Sub

Private Sub Command2_Click()

For i = 1 To N
Label1.Caption = Label1.Caption & Numeri(i) & " "
tot = tot + Numeri(i)
If Numeri(i) Mod 2 = 0 Then
totpari = totpari + Numeri(i)
ElseIf Numeri(i) Mod 2 <> 0 Then
totdispari = totdispari + Numeri(i)
End If
If i Mod 2 = 0 Then
indicipari = indicipari + Numeri(i)
ElseIf i Mod 2 <> 0 Then
indicidispari = indicidispari + Numeri(i)
End If
Next i

Label3.Caption = tot
Label8.Caption = totpari
Label9.Caption = totdispari
Label14.Caption = indicidispari
Label12.Caption = indicipari

End Sub

Si ho un problema con le label...cioè come visualizzare al meglio il vettore ordinato in una nuova label; quindi in una label devo visualizzare i numeri come li carico e nell'altra label in modo ordinato. Devo visulizzare i numeri ordinati in una determinata label, premendo sul CommandButton ordina, in particolare Command4.


Grazie ancora

Avete capito il problema? Oppure no?

E tu hai letto la risposta di Alex oppure no?

Si ho scritto così:

Private Sub Command4_Click()
Label1.Caption=""
Dim J As Integer
For i = 1 To N - 1
For J = i + 1 To N
If Numeri(i) > Numeri(J) Then
Scambia Numeri(i), Numeri(J)
End If
Next J
Next i
End Sub

Funziona perfettamente...dovevo solo aggiungere quella riga di codice.

Grazie