Sub Main
'x alien : ultimo(i) non uscito(i) in posizione voluta sulla ruota voluta
'script by tom & cgpt
ruota = ScegliRuota
posizionevoluta = CInt(InputBox("Posizione da analizzare", , 1))
quanteestrazionianalizzare = CInt(InputBox("quante ultime estrazioni analizzare",,360))
Dim Stringatuttie90
Stringatuttie90 = ",1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,"
For es = EstrazioneFin To EstrazioneFin - quanteestrazionianalizzare Step -1
analisiestrattoinposizionevoluta = Estratto(es, ruota, posizionevoluta)
' Rimuovi il numero estratto dalla lista
Stringatuttie90 = Replace(Stringatuttie90, "," & analisiestrattoinposizionevoluta & ",", ",")
' Stampa il numero estratto
'Scrivi analisiestrattoinposizionevoluta
'Scrivi ","
Next
' Verifica se ci sono numeri rimasti nella lista prima di stampare
If Len(Stringatuttie90) > 2 Then
' Stampa l'ultimo numero rimasto nella lista
Scrivi "Ultimo numero rimasto dalla lista"
Scrivi Mid(Stringatuttie90, 2, Len(Stringatuttie90) - 1)
Else
' Stampa un messaggio se non ci sono numeri rimasti
Scrivi "Nessun numero rimasto nella lista"
End If
End Sub