Keskustelu: Ohjelmointikysymykset: VB6: Järjästeleminen

Private Type TK
    nimi As String
    tulos As Integer
End Type

Const MAX = 10

Private Sub Form_Activate()
    Dim Kilpailijat(MAX) As TK
    Dim i As Integer, j As Integer, t As TK

    Randomize Timer
    For i = 0 To MAX
        Kilpailijat(i).nimi = "Nimi" & i
        Kilpailijat(i).tulos = Int(Rnd * 50) + 1
    Next

    For i = 0 To MAX
        For j = 0 To MAX - 1
            If Kilpailijat(j).tulos < Kilpailijat(j + 1).tulos Then
                t = Kilpailijat(j)
                Kilpailijat(j) = Kilpailijat(j + 1)
                Kilpailijat(j + 1) = t
            End If
        Next
    Next

    For i = 0 To MAX
        Print Kilpailijat(i).nimi & Chr(9) & Chr(9) & Kilpailijat(i).tulos
    Next
End Sub