Sub Main
Dim TabColonOrd(12,12)
Dim x,y,finalArray(12)
Dim contaRiga
' Popolazione della matrice con i dati effettivi ricavabili da
TabColonOrd(1,1) = 537
TabColonOrd(2,1) = 337
TabColonOrd(2,2) = 537
TabColonOrd(3,1) = 337
TabColonOrd(3,2) = 537
TabColonOrd(3,3) = 2081
TabColonOrd(4,1) = 337
TabColonOrd(4,2) = 537
TabColonOrd(4,3) = 2081
TabColonOrd(4,4) = 3235
TabColonOrd(5,1) = 337
TabColonOrd(5,2) = 537
TabColonOrd(5,3) = 2081
TabColonOrd(5,4) = 3235
TabColonOrd(5,5) = 3237
TabColonOrd(6,1) = 337
TabColonOrd(6,2) = 537
TabColonOrd(6,3) = 2081
TabColonOrd(6,4) = 3235
TabColonOrd(6,5) = 3237
TabColonOrd(6,6) = 3373
TabColonOrd(7,1) = 337
TabColonOrd(7,2) = 537
TabColonOrd(7,3) = 2081
TabColonOrd(7,4) = 3235
TabColonOrd(7,5) = 3237
TabColonOrd(7,6) = 3373
TabColonOrd(7,7) = 3571
TabColonOrd(8,1) = 337
TabColonOrd(8,2) = 537
TabColonOrd(8,3) = 2055
TabColonOrd(8,4) = 2081
TabColonOrd(8,5) = 3235
TabColonOrd(8,6) = 3237
TabColonOrd(8,7) = 3373
TabColonOrd(8,8) = 3571
TabColonOrd(9,1) = 337
TabColonOrd(9,2) = 537
TabColonOrd(9,3) = 2055
TabColonOrd(9,4) = 2081
TabColonOrd(9,5) = 2835
TabColonOrd(9,6) = 3235
TabColonOrd(9,7) = 3237
TabColonOrd(9,8) = 3373
TabColonOrd(9,9) = 3571
TabColonOrd(10,1) = 337
TabColonOrd(10,2) = 537
TabColonOrd(10,3) = 2055
TabColonOrd(10,4) = 2081
TabColonOrd(10,5) = 2835
TabColonOrd(10,6) = 2937
TabColonOrd(10,7) = 3235
TabColonOrd(10,8) = 3237
TabColonOrd(10,9) = 3373
TabColonOrd(10,10) = 3571
TabColonOrd(11,1) = 266
TabColonOrd(11,2) = 337
TabColonOrd(11,3) = 537
TabColonOrd(11,4) = 2055
TabColonOrd(11,5) = 2081
TabColonOrd(11,6) = 2835
TabColonOrd(11,7) = 2937
TabColonOrd(11,8) = 3235
TabColonOrd(11,9) = 3237
TabColonOrd(11,10) = 3373
TabColonOrd(11,11) = 3571
TabColonOrd(12,1) = 266
TabColonOrd(12,2) = 337
TabColonOrd(12,3) = 537
TabColonOrd(12,4) = 2055
TabColonOrd(12,5) = 2081
TabColonOrd(12,6) = 2835
TabColonOrd(12,7) = 2937
TabColonOrd(12,8) = 3235
TabColonOrd(12,9) = 3237
TabColonOrd(12,10) = 3373
TabColonOrd(12,11) = 3571
TabColonOrd(12,12) = 4056
' Inizializza l'array finale con valori nulli
For x = 1 To 12
finalArray(x) = ""
Next
' Processo per riempire l'array finale con i valori ordinati
For x = 1 To 12
contaRiga = x
For y = 1 To contaRiga
ValoreCorrente = TabColonOrd(x,y)
' Controlla se il valore è già presente nell'array finale
ValoreTrovato = False
For z = 1 To 12
If finalArray(z) = ValoreCorrente Then
ValoreTrovato = True
Exit For
End If
Next
' Se il valore non è già presente, inseriscilo nella prima posizione vuota
If Not ValoreTrovato Then
For z = 1 To 12
If finalArray(z) = "" Then
finalArray(z) = ValoreCorrente
Exit For
End If
Next
End If
Next
Next
' Stampa l'array finale
For i = 1 To 12
Scrivi finalArray(i) & " ",,False,,,2
Next
End Sub