citazione:

---

Inviato in origine da franca46

Buongiorno dj , grazie.
Proverò nella mia miriade di listati se c'è qualcosa che mi aiuta.
Buona giornata

---

' dati 2 cg su ruote cercare gli Abbinamenti più frequenti ( Cinzia27)
Sub Main()
Dim ambi(4005,18), n(2), n1(2),n2(2), n3(2),n4(2), n5(2), n6(2), n7(2), ru(2)

rr=CInt(InputBox(" Scegli la 1° ruota ",,2))
If rr="" Then Exit Sub

rr1=CInt(InputBox(" Scegli la 2° ruota ",,12))
If rr1="" Then Exit Sub

cg=CInt(InputBox(" Scegli il 1° capogioco ",,34))
If rr="" Then Exit Sub

cg1=CInt(InputBox(" Scegli il 2° capogioco ",,43))
If cg1="" Then Exit Sub

yyy=CInt(InputBox(" Quanti abbinamenti cercare? ",,10))
If cg1="" Then Exit Sub


ru(1)=rr
ru(2)=rr1
co=0


ini=1'500
fin=EstrazioneFin
Scrivi
co=0

For y=1 To 90
If cg<>y Then
If cg1<>y Then

co=co+1
n(1)=cg'<<<<<
n(2)=y
n1(1)=cg1'<<<<
n1(2)=y


ambi(co,1)=co
ambi(co,2)=SiglaRuota(rr)
ambi(co,3)=SiglaRuota(rr1)
ambi(co,4)=StringaNumeri(n)
ambi(co,5)=StringaNumeri(n1)

fr=SerieFreq (ini,fin,n,ru,2)
fr1=SerieFreq (ini,fin,n1,ru,2)
 
fre=fr+fr1


ambi(co,6)=fre
End If
End If
Next

OrdinaMatrice ambi,-1,6

For xx=1 To yyy

Scrivi Space(2)& ambi(xx,2)&"."&  ambi(xx,3)&"  "& ambi(xx,4)&"  "& ambi(xx,5)&"  "& ambi(xx,6)
Next


End Sub