Ci sono riuscito da solo
ora i miei problemi sono altri 2. Questo é il codice :
codice:
Private Sub cmd_aggiungi_Click()
txt_posizione.SetFocus
i = txt_posizione.Text
Nomi(i) = txt_caselle_ins.Text
List1.AddItem Nomi(i), i - 1
voti(i) = txt_voti.Text
List2.AddItem voti(i), i - 1
i = i + 1
txt_posizione.Text = i
txt_caselle_ins = ""
txt_voti = ""
If (i = 6) Then
msg = MsgBox("Vettore pieno!", vbCritical, "Vettore pieno!")
Exit Sub
End If
End Sub
Private Sub cmd_ordina_Click()
Dim n As Integer
Dim j As Integer
n = i
j = n - 1
i = 0
For i = 1 To n - 1
For j = n To 2 Step -1
If voti(j) < voti(i) Then
temp = voti(i)
voti(i) = voti(j)
voti(j) = temp
List2.RemoveItem voti(i)
List2.AddItem temp
End If
Next j
Next i
End Sub
Mi potreste dire come posso fare in modo che quando ordino i voti vengano ordinati anche i nomi in base ad essi ?? Cioé, mettiamo che Marco ha preso 5 e Mario ha preso 2 e li inserisco in questo ordine.
Facendo ordina il mio programma ordina solo i nomi, e risulta quindi poi che Mario ha preso 5 e Marco 2...come lo modifico ?
E un'ultima cosa, io ho fatto in modo che nella textbox txt_posizione.Text si veda l'indice i, e quindi a che punto dell'elenco siamo (inserisci il primo nome e voto, il 2, ecc), solo che il primo lo devo mettere io...c'é un sistema per fare in modo che già dall'inizio in quella casella venga scritto 1 (automaticamente), a cui sommare ogni volta 1 ?
Spero di essere stato chiaro, non so se dovevo mettere una spiegazione della form o se si capisce... ditemi 
grazie mille
ciao !