LA DOMANDA X VOI, SCIENZIATI DEL LOTTO...

Sub main()
Dim n(6)
Dim nn(1)
Dim nu(6)
Dim ruota(2)
Dim ruote(10)
Dim post(1)
Dim posta(5)
Dim poste(5)
post(1)=1
posta(2)=1
poste(2)=1
poste(3)=1
ruote(1)=11

For es= EstrazioneFin-110 To EstrazioneFin

For r= 1 To 9
For p1= 1 To 3
For p2= p1+1 To 4
For p3= p2+1 To 5
n(1)=Estratto(es,r,p1)
n(2)=Estratto(es,r,p2)
n(3)=Estratto(es,r,p3)
For r1=r+1 To 10
For p4= 1 To 3
For p5= p4+1 To 4
For p6= p5+1 To 5
n(4)=Estratto(es,r1,p4)
n(5)=Estratto(es,r1,p5)
n(6)=Estratto(es,r1,p6)
If stessatripla(n(1),n(2),n(3),n(4),n(5),n(6)) Then
If (Distanza(n(1),n(4))=30 and  Distanza(n(2),n(5))=30 and  Distanza(n(3),n(6))=30)_
Or (Distanza(n(1),n(4))=30 and  Distanza(n(2),n(6))=30 and  Distanza(n(3),n(5))=30)_
Or (Distanza(n(1),n(5))=30 and  Distanza(n(2),n(4))=30 and  Distanza(n(3),n(6))=30)_
Or (Distanza(n(1),n(5))=30 and  Distanza(n(2),n(6))=30 and  Distanza(n(3),n(4))=30)_
Or (Distanza(n(1),n(6))=30 and  Distanza(n(2),n(4))=30 and  Distanza(n(3),n(5))=30)_
Or (Distanza(n(1),n(6))=30 and  Distanza(n(2),n(5))=30 and  Distanza(n(3),n(4))=30)Then
ColoreTesto 1 : Scrivi
Scrivi "******************************************************************"  
Scrivi DataEstrazione(es)&"  "& FormatSpace(NomeRuota(r),10)&" "& Format2(n(1))&" "& Format2(n(2))&" "& Format2(n(3))
Scrivi DataEstrazione(es)&"  "& FormatSpace(NomeRuota(r1),10)&" "& Format2(n(4))&" "& Format2(n(5))&" "& Format2(n(6))

ruota(1)=r :ruota(2)=r1

End If
End If
Next
Next
Next  
Next  
Next  
Next  
Next  
Next
Next  

'ScriviResoconto
End Sub
'---------
Function StessaTripla(n1,n2,n3,n4,n5,n6)
If Distanza(Figura(n1),Figura(n2))= 3 Or Distanza(Figura(n1),Figura(n2))= 6 Or Distanza(Figura(n1),Figura(n2))=0 Then
If Distanza(Figura(n2),Figura(n3))= 3 Or Distanza(Figura(n2),Figura(n3))= 6 Or Distanza(Figura(n2),Figura(n3))=0 Then
If Distanza(Figura(n3),Figura(n4))= 3 Or Distanza(Figura(n3),Figura(n4))= 6 Or Distanza(Figura(n3),Figura(n4))=0 Then
If Distanza(Figura(n4),Figura(n5))= 3 Or Distanza(Figura(n4),Figura(n5))= 6 Or Distanza(Figura(n4),Figura(n5))=0 Then
If Distanza(Figura(n5),Figura(n6))= 3 Or Distanza(Figura(n5),Figura(n6))= 6 Or Distanza(Figura(n5),Figura(n6))=0 Then
StessaTripla=True
End If
End If
End If
End If
End If
End Function