Jag håller på med att göra en High-Score lista. Den skall innehålla de tio bästa. Sorterat på i första han antal gissningar och i andra hand tid.
För det fösta kan jag inte få strängen snyggt utskriven på formuläret.
Jag vill att det ska se ut så här.

Namn Rad Tid
Jonas 10 400

För det andra hur sorterar jag kolumn rad och tid så att det i fösta hand sorterar på rad och i andra hand på tid. Hur kopplar jag namnet i sorteringen, så att namn, rad och tid, hör ihop i den sorterade tabellen.
Tanken är att listan skall sparas i en fil som hämtas in och läggs i en Array.

'Ny spelomgångs rad och tid skickas in som argument. Jämförs med tidigare resultat. Spelaren, om han kommer bland de tio bästa skall få möjlighet att skriva in sitt namn.

Private Sub SättPoäng(Rad,Tid)
Dim strPoäng(0 To 10, 0 To 2) As String
Dim strRad(0 To 10) As String
Dim strTid(0 To 10) As String

Dim intRad As Integer, intKol As Integer
strPoäng(0, 0) = "Namn"
strPoäng(0, 1) = "Rad"
strPoäng(0, 2) = "Tid"
strPoäng(1, 0) = "Jonas"
strPoäng(1, 1) = "10"
strPoäng(1, 2) = "400"
strPoäng(2, 0) = "Jenny"
strPoäng(2, 1) = "10"
strPoäng(2, 2) = "312"
strPoäng(3, 0) = "Tobias"
strPoäng(3, 1) = "10"
strPoäng(3, 2) = "500"
strPoäng(4, 0) = "Sofie"
strPoäng(4, 1) = "10"
strPoäng(4, 2) = "412"
frmVisaPoäng.Print

For intRad = 0 To 10
For intKol = 0 To 2

frmVisaPoäng.Print strPoäng(intRad, intKol); Tab;

'frmVisaPoäng.Print
Next intKol
Next intRad

End Sub

Sök bubble eller quicksort i tips & tricks eller resource library..

Hälsningar
/Pelle

Jag skulla föreslå bubble sort, eller en annan algoritm med tidskomplexitet O(n2). Quick sort, eller andra rekursiva algoritmer, är inget bra alternativ för att sortera en såpass liten lista.

Eller skicka in raden i en flexgrid och låta den sortera,

/Stefan