un ambata a ogni ruota

[Roby]

questo listato da ambate ad ogni ruota e credo che sia valido per un gioco di speculazione

Sub main()

Dim ruote(1)
Dim numeri1(2)
Dim posta(2)
posta(1)=4000
posta(2)=1000
Scrivi " Metodo per Ambata ed ambo dalla I° del mese"
Scrivi " by Danilo cs1 - aggiornato al 01-08-2001"
For n=7773 To EstrazioneFin
If IndiceMensile=1 Then
ruote(1)=1
numeri1(1)=Fuori90(Estratto(n,2,5)+Estratto(n,5,1)+24)
numeri1(2)=Fuori90(Estratto(n,2,2)+Estratto(n,9,5)+39)
ImpostaGiocata 1,numeri1,ruote,posta,9,2
ruote(1)=2
numeri1(1)=Fuori90(Estratto(n,1,5)+Estratto(n,2,2)+27)
numeri1(2)=Fuori90(Estratto(n,4,3)+Estratto(n,7,1)+75)
ImpostaGiocata 2,numeri1,ruote,posta,9,2
ruote(1)=3
numeri1(1)=Fuori90(Estratto(n,1,2)+Estratto(n,5,5)+63)
numeri1(2)=Fuori90(Estratto(n,3,1)+Estratto(n,6,2)+89)
ImpostaGiocata 3,numeri1,ruote,posta,9,2
ruote(1)=4
numeri1(1)=Fuori90(Estratto(n,1,2)+Estratto(n,9,1)+50)
numeri1(2)=Fuori90(Estratto(n,2,3)+Estratto(n,4,1)+38)
ImpostaGiocata 4,numeri1,ruote,posta,9,2
ruote(1)=5
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,9,4)+34)
numeri1(2)=Fuori90(Estratto(n,1,4)+Estratto(n,10,3)+49)
ImpostaGiocata 5,numeri1,ruote,posta,9,2
ruote(1)=6
numeri1(1)=Fuori90(Estratto(n,9,3)+Estratto(n,10,4)+79)
numeri1(2)=Fuori90(Estratto(n,6,5)+Estratto(n,7,1)+76)
ImpostaGiocata 6,numeri1,ruote,posta,9,2
ruote(1)=7
numeri1(1)=Fuori90(Estratto(n,3,1)+Estratto(n,4,1)+68)
numeri1(2)=Fuori90(Estratto(n,6,5)+Estratto(n,9,1)+42)
ImpostaGiocata 7,numeri1,ruote,posta,9,2
ruote(1)=8
numeri1(1)=Fuori90(Estratto(n,2,4)+Estratto(n,4,1)+51)
numeri1(2)=Fuori90(Estratto(n,5,2)+Estratto(n,10,5)+32)
ImpostaGiocata 8,numeri1,ruote,posta,9,2
ruote(1)=9
numeri1(1)=Fuori90(Estratto(n,2,5)+Estratto(n,6,1)+42)
numeri1(2)=Fuori90(Estratto(n,5,3)+Estratto(n,6,1)+38)
ImpostaGiocata 9,numeri1,ruote,posta,9,2
ruote(1)=10
numeri1(1)=Fuori90(Estratto(n,5,1)+Estratto(n,10,4)+61)
numeri1(2)=Fuori90(Estratto(n,8,5)+Estratto(n,10,3)+58)
ImpostaGiocata 10,numeri1,ruote,posta,9,2
Gioca n
End If
Next
ScriviResoconto
End Sub

resto come sempre in attesa di vostri suggerimenti

massimiliano