Pronostico sulla ruota di Torino (da condizione ottimale)

Grazie

Per chi a L8 Ecco il listato
Sub main()
Dim ruote(3),poste(5),nu2(10)
poste(2)=1
k=14
ce=200
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 1
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=2 To 2
For p2=1 To 5
b=Estratto(es,r2,p2)
If (a=16 And b=17) Or (a=16 And b=17) Or (a=17 And b=16) Or (a=17 And b=18) Or (a=18 And b=16) Or (a=18 And b=17) Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" "&(p2)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=9:ruote(2)=12
c1=Decina(Estratto(es,1,4))
c2=Decina(Estratto(es,10,1))
c3=Decina(Estratto(es,2,4))
nu2(1)=51
nu2(2)=76
nu2(3)=(3&c1)
nu2(4)=(3&c2)
nu2(5)=(8&c3)
ImpostaGiocata 2,nu2,ruote,poste,k
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub