Gentilmente una modifica

[janez57]

Buon giorno a tutti/e
Avrei bisogno gentilmente di questo script modificarlo in due soluzioni:
1)Mettere in prima posizione il numero più uscito a scalare fino in ultima
posizione meno uscito.
Soluzione 2)Una volta fatto questo eventualmente in un secondo script
stesse condizioni però farlo fermare alla prima uscita di un un numero
sempre in prima posizione il più uscito a scalare fino al meno uscito.
Grazie mille a chi può soddisfare la mia richiesta.
Janez

'frequenza numeri nei Mesi a scelta
Sub Main()
Dim x(90)

' Anno 2000 - 6877-6981 \/ Anno 2001 - 6982-7086 \/ Anno 2002 - 7087-7195 \/ Anno 2003 - 7196-----
r = InputBox("Inserisci la ruota di ricerca","RUOTA",1)
kk = CInt(InputBox("Inserisci mese di ricerca","MESE",1))
An1 = CInt(InputBox("Inserisci INIZIO ANNO di ricerca","ANNO",2009))
An2 = CInt(InputBox("Inserisci FINE ANNO di ricerca","ANNO",2018))
ini = 1'CInt(InputBox("Inizio ricerca","DA ESTRAZIONE N,",EstrazioneFin-1560))
fin = EstrazioneFin'CInt(InputBox("FINE ricerca","FINE ESTRAZIONE N,",EstrazioneFin))
For a = 1 To 90
x(a) = 0
Next
For n = ini To fin
If Mese=kk And Anno=>An1 And Anno=<An2 Then
'For r=1 To 10
For e = 1 To 5
n1 = Estratto(n,r,e)
x(n1) = x(n1) + 1
Next
'Next
End If
Next
'Scrivi " Quantità per ogni numero estratto DA ESTRAZIONE N." & ini &" FINO ALL'ESTRAZIONE N." & fin &" sulla ruota di "&NomeRuota(r)&" nel MESE di "&MeseNome(kk),1
Scrivi " Quantità per ogni numero estratto DA ANNO N." & An1 & " FINO ANNO N." & aN2 & " sulla ruota di " & NomeRuota(r) & " nel MESE di " & MeseNome(kk),1
For i = 1 To 90
s = CStr(eval(i)) + " " + CStr(eval(x(i)))
Scrivi s
Next
End Sub

 

[janez57]

Scusate Sbagliato sezione
Janez