Listato per chi ha pazienza su NA

[flapis]

Se avete pazienza per il gioco lungo provate questo:

Sub main()
Dim ruote(10)
Dim numeri1(10)

Dim poste(10)

poste(1)=1
ruote(1)=6

For n=7301 To EstrazioneFin
If IndiceMensile=1 Then

numeri1(1)=Fuori90(Estratto(n,6,1)-02)
numeri1(2)=Vert(Estratto(n,6,1)-02)

ImpostaGiocata 1,numeri1,ruote,poste,12

Gioca n
ColoreTesto 2: SCRIVI"------------------------------------------------------------------------------<<<flapis>>>",1


End If

Next
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)

ScriviResoconto
End Sub

magari mi fate sapere se piace.

 

[sengirb]

grazie provo subito