|
|
| Ciao Paolo, prova questa soluzione... Ciao, Enplein. CODICE Sub main()
'Forum SuperLotto x Paolo Carta_Cerca due ambi ripetuti in qualsiasi posizione.
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300)
ini=ce
fin=EstrazioneFin
Scrivi String(73,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1= 1 To 9
For p1= 1 To 4
For p2= p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2): sab=Fuori90 (a+b)
For r2=r1+1 To 10
For p3= 1 To 4
For p4= p3+1 To 5
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4):scd=Fuori90 (c+d)
If (a=c And b=d) Or (a=d And b=c) Then
casi=casi+1:Scrivi String(85,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos. Som. "&(sab),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. Som. "&(scd),1
Scrivi String(70,"-")&" caso n° "&(casi)
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi String(85,"=")&" script by Enplein",1
ScriviResoconto
End Sub |
| | |
