Terni ripetuti

Sub main()
'casi 267
'Massimo storico 610
' storico>500 1
' storico>400 3
' storico>300 4
' storico>200 16
' storico>100 66
Scrivi " Terno ripetuto (Cinzia) "&chr(10)
Dim ru(2),n(3),n1(3)
fin=EstrazioneFin
ini=1'fin-2000
For es=ini To fin
Messaggio(es)
For r=1 To 10
ru(1)=r
For r1=r+1 To 11
If r1=11 Then r1=12
ru(2)=r1
For p=1 To 3
For p1=p+1 To 4
For p2=p1+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r,p2)
If n(1)>0 Then
For q=1 To 3
For q1=q+1 To 4
For q2=q1+1 To 5
n1(1)=Estratto(es,r1,q)
n1(2)=Estratto(es,r1,q1)
n1(3)=Estratto(es,r1,q2)
If n1(1)>0 Then
If n(1)=n1(1)Or n(1)=n1(2)Or n(1)=n1(3)Then
If n(2)=n1(1)Or n(2)=n1(2)Or n(2)=n1(3)Then
If n(3)=n1(1)Or n(3)=n1(2)Or n(3)=n1(3)Then
s=SeriePrima(es+1,fin,n,ru,2)
If s=0 Then
at=fin-es
cas=cas+1
Scrivi FormatSpace(cas,4)&")"&DataEstrazione(es)& Space(2)&formatspace(es,4)& Space(2)& SiglaRuota (r)& Space(2)& SiglaRuota (r1)& _
Space(2)&StringaNumeri(n)& Space(2)&StringaNumeri(n1)& Space(4)& "ATT "&formatspace(at,4),1
Else
If s>0 Then
casi=casi+1
st=s-es-1
If st>mx Then mx=st
If st>500 Then ce=ce+1
If st>400 Then ce1=ce1+1
If st>300 Then ce2=ce2+1
If st>200 Then ce3=ce3+1
If st>100 Then ce4=ce4+1
Scrivi FormatSpace(casi,4)&")"&DataEstrazione(es)& Space(2)&formatspace(es,4)& Space(2)& SiglaRuota (r)& Space(2)& SiglaRuota (r1)& _
Space(2)&StringaNumeri(n)& Space(2)&StringaNumeri(n1)& Space(4)&formatspace(s,4)& Space(4)& "STO "& _
FormatSpace(st,4),0,0
Scrivi " Aggiornamento massimo storico "&formatspace(mx,4)
End If
End If
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
Next
Next
Scrivi "casi "&casi
Scrivi "Massimo storico "&mx
Scrivi " storico>500 "&ce
Scrivi " storico>400 "&ce1
Scrivi " storico>300 "&ce2
Scrivi " storico>200 "&ce3
Scrivi " storico>100 "&ce4
End Sub