Vedi se questo ti funziona!!
Sub main()
Dim ruote(2)
Dim nr(4)
casi=0
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"------ RICERCA AMBO RIPETUTO ------ ",1
ColoreTesto 0
For es= EstrazioneFin-150 To EstrazioneFin
AvanzamentoElab EstrazioneFin-150, EstrazioneFin, es
For r= 1 To 10
For p= 1 To 4
For pp= p+1 To 5
a1=Estratto(es,r,p)
a2=Estratto(es,r,pp)
For r1=r+1 To 12
If r1<>11 Then
For q=1 To 4
For qq=q+1 To 5
b1=Estratto(es,r1,q)
b2=Estratto(es,r1,qq)
If a1=b1 And a2=b2 Or a2=b1 And a1=b2 Then
Erase nr
Scrivi DataEstrazione(es)&" "& NomeRuota(r)& "- "& NomeRuota(r1)&" " & Format2(a1)&"-"& Format2(a2),1
casi=casi+1
End If
Next
Next
End If
Next
Next
Next
Next
Scrivi "_______________________________________________"
Next
Scrivi " Numero casi Totali: "& casi
End Sub
