Help Aiuto x modifica script

[irepi]

Buonasera, posso approfittare della vostra disponibilita?
Come posso fare x cambiare la visualizzazione delle previsioni di uno script sommativo da ordine crescente di una quartina (esempio 1 2 3 4 ) in ordine inserimento sommativi? Nell'attesa ringrazio
Questo e lo script (dalla raccolta di Rabberto)
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
'poste(2)=1
poste(3) = 0.9
poste(4) = 0.1
ruote(1) = 1
k = 2
y = 5
For n = 6880 To EstrazioneFin
If IndiceMensile = 4 Then
ng = 0
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,4,4) + 72)
numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,4,3) + 15)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,4,2) + 46)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,9,3) + 36)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,5) + Estratto(n,5,1) + 50)
numeri1(2) = Fuori90(Estratto(n,1,3) + Estratto(n,5,3) + 88)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,4,2) + 46)
numeri1(4) = Fuori90(Estratto(n,3,4) + Estratto(n,7,3) + 18)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,5) + Estratto(n,5,1) + 50)
numeri1(2) = Fuori90(Estratto(n,3,4) + Estratto(n,7,3) + 86)
numeri1(3) = Fuori90(Estratto(n,6,1) + Estratto(n,7,2) + 37)
numeri1(4) = Fuori90(Estratto(n,4,1) + Estratto(n,6,3) + 17)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,5,4) + 49)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,5,1) + 66)
numeri1(3) = Fuori90(Estratto(n,4,4) + Estratto(n,9,2) + 39)
numeri1(4) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 82)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,1) + Estratto(n,3,2) + 86)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,10,3) + 41)
numeri1(3) = Fuori90(Estratto(n,3,5) + Estratto(n,7,3) + 45)
numeri1(4) = Fuori90(Estratto(n,4,4) + Estratto(n,7,4) + 51)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,2) + Estratto(n,3,4) + 17)
numeri1(2) = Fuori90(Estratto(n,7,4) + Estratto(n,8,1) + 34)
numeri1(3) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 82)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,9,2) + 17)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,2) + Estratto(n,3,4) + 17)
numeri1(2) = Fuori90(Estratto(n,2,4) + Estratto(n,8,1) + 35)
numeri1(3) = Fuori90(Estratto(n,2,2) + Estratto(n,10,2) + 9)
numeri1(4) = Fuori90(Estratto(n,1,5) + Estratto(n,4,3) + 57)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,9,2) + 77)
numeri1(2) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 28)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,2,1) + Estratto(n,9,1) + 22)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,5) + Estratto(n,6,3) + 90)
numeri1(2) = Fuori90(Estratto(n,8,3) + Estratto(n,10,2) + 45)
numeri1(3) = Fuori90(Estratto(n,2,3) + Estratto(n,6,5) + 17)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,9,3) + 4)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,9,1) + 20)
numeri1(2) = Fuori90(Estratto(n,4,3) + Estratto(n,8,4) + 14)
numeri1(3) = Fuori90(Estratto(n,3,1) + Estratto(n,6,1) + 23)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,3,5) + 54)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,9,1) + 20)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,4,1) + 57)
numeri1(3) = Fuori90(Estratto(n,3,2) + Estratto(n,10,2) + 34)
numeri1(4) = Fuori90(Estratto(n,8,2) + Estratto(n,10,4) + 43)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,7,4) + 38)
numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,7,5) + 10)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,9,3) + 36)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,7,4) + 38)
numeri1(2) = Fuori90(Estratto(n,1,3) + Estratto(n,2,4) + 77)
numeri1(3) = Fuori90(Estratto(n,4,1) + Estratto(n,10,1) + 28)
numeri1(4) = Fuori90(Estratto(n,7,4) + Estratto(n,8,3) + 72)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,8,3) + Estratto(n,9,5) + 84)
numeri1(2) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 28)
numeri1(3) = Fuori90(Estratto(n,2,5) + Estratto(n,7,5) + 43)
numeri1(4) = Fuori90(Estratto(n,1,3) + Estratto(n,10,4) + 7)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,2) + Estratto(n,4,2) + 24)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,7,1) + 30)
numeri1(3) = Fuori90(Estratto(n,2,1) + Estratto(n,2,3) + 65)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,9,1) + 48)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,2) + Estratto(n,4,2) + 24)
numeri1(2) = Fuori90(Estratto(n,2,4) + Estratto(n,6,4) + 61)
numeri1(3) = Fuori90(Estratto(n,1,4) + Estratto(n,6,2) + 2)
numeri1(4) = Fuori90(Estratto(n,5,1) + Estratto(n,10,4) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,8,1) + Estratto(n,8,3) + 83)
numeri1(2) = Fuori90(Estratto(n,1,5) + Estratto(n,6,5) + 53)
numeri1(3) = Fuori90(Estratto(n,3,5) + Estratto(n,10,4) + 28)
numeri1(4) = Fuori90(Estratto(n,4,3) + Estratto(n,4,4) + 39)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,5,4) + 2)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,6,5) + 17)
numeri1(3) = Fuori90(Estratto(n,4,1) + Estratto(n,6,3) + 17)
numeri1(4) = Fuori90(Estratto(n,7,4) + Estratto(n,8,3) + 72)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,7,2) + 37)
numeri1(2) = Fuori90(Estratto(n,2,1) + Estratto(n,6,2) + 17)
numeri1(3) = Fuori90(Estratto(n,10,2) + Estratto(n,10,4) + 76)
numeri1(4) = Fuori90(Estratto(n,3,4) + Estratto(n,7,3) + 18)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,7,2) + 48)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 85)
numeri1(3) = Fuori90(Estratto(n,1,2) + Estratto(n,9,1) + 48)
numeri1(4) = Fuori90(Estratto(n,9,1) + Estratto(n,9,4) + 3)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[irepi]

Un grandissimo Grazie!!!! e grazie ancora per il suggerimento per l'inserimento degli script nel forum
irepi