A TUTTI GLI AMICI DEL FORUM

[Roby]

Ciao datemi una mano per questo
listatino, devo fare il vertibile della variante (x), come devo fare?

ciao lola

Sub main()
Dim ruote(11)
Dim numeri1(10)
Dim poste(10)
poste(1)=0
poste(2)=3
For n=7694 To EstrazioneFin
If IndiceMensile=3 Then

ruote(1)=1
ruote(2)=2
ruote(3)=3
ruote(4)=4
ruote(5)=5
ruote(6)=6
ruote(7)=7
ruote(8)=8
ruote(9)=9
ruote(10)=10
ruote(11)=12


K=13

numeri1(1)=x


x=Fuori90(Estratto(n,1,2)+7)
numeri1(2)=4
If Cadenza(x)=0 Then x=Fuori90(x+3) End If
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,K,2
Gioca n
End If
Next
ScriviResoconto
End Sub




livia