Ciao, se ti può interessare ti mando un listato, di molto tempo fa, ma sempre interessante, se lo sai modificare a tuo piacere, o comunque lo potrai studiare così com'è secondo i tuoi studi.
Ti inserisco il resoconto, per prima cosa, e ti mando veloce spiegazione :
RESOCONTO :
volte che si è ripetuto il 1° estratto di Bari nell'estrazione successiva nella ruota di Nazionale
10221 / 10222 1° estratto n° 73 a Bari riestratto a Nazionale n° 73
10223 / 10224 1° estratto n° 51 a Bari riestratto a Nazionale n° 51
10225 / 10226 1° estratto n° 23 a Bari riestratto a Nazionale n° 23
volte che si è ripetuto il 2° estratto di Bari nell'estrazione successiva nella ruota di Nazionale
10202 / 10203 2° estratto n° 61 a Bari riestratto a Nazionale n° 61
10246 / 10247 2° estratto n° 9 a Bari riestratto a Nazionale n° 9
10264 / 10265 2° estratto n° 82 a Bari riestratto a Nazionale n° 82
10272 / 10273 2° estratto n° 56 a Bari riestratto a Nazionale n° 56
volte che si è ripetuto il 3° estratto di Bari nell'estrazione successiva nella ruota di Nazionale
10204 / 10205 3° estratto n° 69 a Bari riestratto a Nazionale n° 69
10246 / 10247 3° estratto n° 59 a Bari riestratto a Nazionale n° 59
10250 / 10251 3° estratto n° 50 a Bari riestratto a Nazionale n° 50
10270 / 10271 3° estratto n° 70 a Bari riestratto a Nazionale n° 70
volte che si è ripetuto il 4° estratto di Bari nell'estrazione successiva nella ruota di Nazionale
10219 / 10220 4° estratto n° 40 a Bari riestratto a Nazionale n° 40
10229 / 10230 4° estratto n° 53 a Bari riestratto a Nazionale n° 53
10240 / 10241 4° estratto n° 37 a Bari riestratto a Nazionale n° 37
10242 / 10243 4° estratto n° 89 a Bari riestratto a Nazionale n° 89
10255 / 10256 4° estratto n° 77 a Bari riestratto a Nazionale n° 77
10270 / 10271 4° estratto n° 82 a Bari riestratto a Nazionale n° 82
volte che si è ripetuto il 5° estratto di Bari nell'estrazione successiva nella ruota di Nazionale
10216 / 10217 5° estratto n° 24 a Bari riestratto a Nazionale n° 24
10220 / 10221 5° estratto n° 69 a Bari riestratto a Nazionale n° 69
le totali ripetizioni dei 5 estratti sono 19 volte
scelta una ruota, potrai impostare una seconda ruota per vederne gli esiti.
Nel listato ho impostato come 1° ruota Bari, e poi ho inserito come 2° ruota la Nazionale per vedere tra gli estratti di Bari, ad ogni estrazione consecutiva, cioè, ad un solo colpo, quali estratti si sono ripetuti nella ruota Nazionale e in quale posizione.
LISTATO :
Option Explicit
Sub Main
Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
Dim an(1),ar(10),dati(10,5),cip
cip = 10200
r1 = 1 ' <-------------- 1^ ruota
rudue = 12 ' <---------- 2^ ruota
Ini = cip
fine = 10274
For j = 1 To 1
ar(j) = j
Next
For Ini = Ini + 1 To 10274
nu = Estratto(Ini,r1,1)
an(1) = nu
Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
If retestratti <> "" Then
ct = ct + 1
End If
Next
ColoreTesto 1
Scrivi"volte che si è ripetuto il 1° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,1)
i = Ini
For ru2 = rudue To rudue
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
ct2 = ct2 + 1
Scrivi Ini & " / " & Ini + 1 & " 1° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 2° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,2)
i = Ini
For ru2 = rudue To rudue
For p3 = 1 To 5
es2 = Estratto(i + 1,ru2,p3)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 2° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 1
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 3° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,3)
i = Ini
For ru2 = rudue To rudue
For p4 = 1 To 5
es2 = Estratto(i + 1,ru2,p4)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 3° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 4° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,4)
i = Ini
For ru2 = rudue To rudue
For p5 = 1 To 5
es2 = Estratto(i + 1,ru2,p5)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 4° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 5° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,5)
i = Ini
For ru2 = rudue To rudue
For p6 = 1 To 5
es2 = Estratto(i + 1,ru2,p6)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 5° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "le totali ripetizioni dei 5 estratti sono " & ct2 & " volte ",1
End Sub
Buona Fortuna !!
