Mistři v programování na #hovnokod

Visual Basic #1642

Elegantní řadicí algoritmus pro nahrané skóre ze hry Had. PS: Sladké začátky.

If a > a11 Then
Label6.Caption = Label5
Label5.Caption = Label4
Label4.Caption = Label3
Label3.Caption = Label2
Label2.Caption = Label1
a66 = a55
a55 = a44
a44 = a33
a33 = a22
a22 = a11
a6 = a5
a5 = a4
a4 = a3
a3 = a2
a2 = a1
a11 = a
a1 = a
Label1.Caption = a1
Name6.Caption = Name5
Name5.Caption = Name4
Name4.Caption = Name3
Name3.Caption = Name2
Name2.Caption = Name1
n6 = n5
n5 = n4
n4 = n3
n3 = n2
n2 = n1
Prompt = "Napište prosím svoje jméno."
n1 = InputBox$(Prompt)
Name1.Caption = n1
ElseIf a <= a11 And a > a22 Then
Label6.Caption = Label5
Label5.Caption = Label4
Label4.Caption = Label3
Label3.Caption = Label2
a6 = a5
a5 = a4
a4 = a3
a3 = a2
a66 = a55
a55 = a44
a44 = a33
a33 = a22
a22 = a
a2 = a
Label2.Caption = a2
Name6.Caption = Name5
Name5.Caption = Name4
Name4.Caption = Name3
Name3.Caption = Name2
n6 = n5
n5 = n4
n4 = n3
n3 = n2
Prompt = "Napište prosím svoje jméno."
n2 = InputBox$(Prompt)
Name2.Caption = n2
ElseIf a <= a22 And a > a33 Then
...
ElseIf a <= a33 And a > a44 Then
...
ElseIf a <= a44 And a > a55 Then
...
ElseIf a <= a5 And a > a66 Then
a66 = a
a6 = a
Label6.Caption = a6
Prompt = "Napište prosím svoje jméno."
n6 = InputBox$(Prompt)
Name6.Caption = n6
End If

Anonymous,