[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/p\/2iDiv.jpg"}[/IMG2]
 
lo script è in fase di verifica dati ed intreccio con la doppia sincronia.
Option Explicit
Sub Main
 Dim rie(1090,7)
 Dim n,fine,r,p,e,t,ix,v,det,iy,w,z,retesito,retcolpi,retestratti,retidestr,Ini,vv,ne,zz,k
 Dim RetRit,RetRitMax,RetIncrRitMax,RetFre
 fine = InputBox("Estrazione n.",,EstrazioneFin)
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 For r = 1 To 10
  For n = 1 To 90
   iy = Format2(r) & Format2

   p = p + 1
   rie(iy,1) = p
   rie(iy,2) = Format2(r) & ".." & Format2

   rie(iy,3) = EstrattoRitardoTurbo(r,n,EstrazioneIni,fine)
   rie(iy,4) = EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine)
   rie(iy,5) = 0
   rie(iy,6) = 0
   rie(iy,7) = 0
  Next
 Next
 ''''graduatoria ritardo
 Call OrdinaMatrice(rie,- 1,3)
 For e = 1 To 1090
  rie(e,5) = e
  rie(e,6) = 0
  rie(e,7) = 0
 Next
 ''''graduatoria frequenza
 Call OrdinaMatrice(rie,1,4)
 For e = 1 To 1090
  If rie(e,4) > 0 Then
   w = w + 1
   rie(e,6) = w
   rie(e,7) = FormattaStringa(rie(e,6) + rie(e,5),"0000")
  End If
 Next
 ' ''''' graduatoria di somma
 Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
 Call OrdinaMatrice(rie,1,7)
 ReDim ttot(99,2)
 For t = 1 To 1090
  If rie(t,7) > 0 And rie(t,5) > 0 And rie(t,6) > 0 Then
   '''''''''''''''''''''calcola alcuni dati '''''''''''''''''''''''''''''''''''''
   ReDim ruote(1),numeri(1)
   ruote(1) = Left(rie(t,2),2)
   numeri(1) = Right(rie(t,2),2)
   Call StatisticaFormazioneTurbo(numeri,ruote,1,RetRit,RetRitMax,RetIncrRitMax,RetFre,EstrazioneIni,fine)
   v = v + 1
   Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb..." & SiglaRuota(Left(rie(t,2),2)) & " " & Right(rie(t,2),2) & "   Rae..." & FormattaStringa(RetRit,"000") &  "    Freq..." & FormattaStringa(RetFre,"0000") & "      Somma.." & FormattaStringa(rie(t,7),"0000") & " = " & rie(t,5) & " // " & rie(t,6)    
   zz = Left(rie(t,7),2)
   ttot(zz,1) = ttot(zz,1) + 1
   '''''''''''''''''''''verifica esiti'''''''''''''''''''''''''''''''''''''
   Ini = fine + 1
   Call VerificaEsitoTurbo(numeri,ruote,Ini,1,,,retesito,retcolpi,retestratti,retidestr)
   If retestratti <> "" Then
    vv = vv + 1
    ttot(zz,2) = ttot(zz,2) + 1
    ColoreTesto(2)
    Scrivi " ------------------------------------------->> " & retidestr & "...colpo n." & Format2(retidestr - Ini) & " Estratti..." & retestratti,1
    ColoreTesto(0)
   End If
  End If
 Next
 ne = EstrazioneFin - fine + 1
 ColoreTesto(1)
 Scrivi "----------------------------------------------------",1
 Scrivi " Periodo esaminato........Dal..estraz.n............." & fine & " / " & DataEstrazione(fine),1
 Scrivi " N.estrazioni valutate.in verifica.................." & ne,1
 Scrivi " Totale combinazioni in graduatoria................." & v,1
 Scrivi " Totale combinazione uscite........................." & vv,1
 Scrivi " % ................................................." & Round(vv/v,5)*100,1
 Scrivi " Reali nr.Vergini .................................." & 900 - vv
 Scrivi " Teorici n.Vergini.900*(17/18)^ne.in graduatoria...." & Int(900*(17/18)^ne),1
 Scrivi " Teorici n.Vergini .90*(17/18)^ne.singola ruota....." & Int(90*(17/18)^ne),1
 Scrivi "----------------------------------------------------",1
 ColoreTesto(0)
 Scrivi "Riepilogo Generale per Gruppi di somma / 100........",1
 For k = 0 To 99
 If ttot(k,1) > 0 Then
 Scrivi Format2(k) & "......" & "nr.pres.." & FormattaStringa(ttot(k,1),"000") & "...nr.Usc.." & FormattaStringa(ttot(k,2),"000")
 End If
 Next
End Sub
Attenzione a 2 istruzione dove si deve recuperare lo spazio bianco che il copia/incolla ha creato