MAX UN SEMPLICE AIUTO

[Roby]

Ciao agli amici del forum,

per piacere mi fate vedere come devo fare il vertibile di (x) ?

grazie a chi mi vorrà rispondere da

lola

livia

 

[Maury86]

il vertibile non è altro che l'inverso di un numero

45 il suo vertibile è 54

qui trovi una tabella
www.lottoced.it/SpiegazioniTecniche.asp

 

[lola]

Scusatemi non ho posto il listatino di prova eccolo


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




ciao lola


livia