Sub Main()
Scrivi "due ambi isotopi distanza 45 somme verticali =90 ",1
Scrivi
Dim ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),quartina(4),ruota(10),h,y,posta(1),poste(2),postee(4)
posta(1) = 1 : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",60)
y= CInt(InputBox("PER QUANTE ESTRAZIONI INDIETRO ?","",5))
'k = CInt(InputBox("QUANTI COLPI ?","",10))
'ini = EstrazioneFin - EstrazioniLotto
fin = EstrazioneFin
ini = fin - estrazionilotto
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
If r1<>11 then
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For x=1 To Y
ex=es-x
n1 = Estratto(ex,r1,p1)
n2 = Estratto(ex,r1,p2)
For r2 = 1 To 12
If r2<>11 then
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
n5 = Fuori90(n1 + n3)
n6 = Fuori90(n2 + n4)

If Distanza(n1,n2) = 45 And Distanza(n3,n4) = 45 And n5 =90 And n6 =90 Then
'
'
'
'
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(ex,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(ex,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo < " & Format2(n3) & "." & Format2(n4)
Scrivi " > SOMME < " &n5


End If
End If


Next
Next
Next
Next
End If
Next
Next


End Sub