Sub Main
   Dim abb,Nu(90),Ru(1),Quanti_Abb,T
   Dim kkk(90),aN(5)
   n = 90
   r = 1
   Ru(1) = r
   Ini = EstrazioneFin -(156*5)
   fin = EstrazioneFin
   ef = EstrattoFrequenza(r,n,Ini,fin)
   Tot = fin - Ini + 1
   Quanti_Abb = CInt(InputBox("Quanti Abbinamenti",,9))
   Scrivi "Frequenza Numero in esame.... " & n & " Uscito " & ef & " In Estrazioni...Tot : " & fin - Ini + 1
   '
   Call Abbinamenti(n,abb,Ini,fin,r)
   For kk = 1 To Quanti_Abb
      Scrivi Format2(abb(kk,1)) & "  [  " & FormatSpace(abb(kk,2),2) & " ]"
   Next
   '
   Scrivi
   T = Array(T,"Info Data","Estratti","Fin-es","Elenco Rit","VerificaEsito","TipoEsito")
   Call InitTabella(T,0,,,5,"Arial Black")
   '
   For es = Ini To fin
      If Posizione(es,r,n) > 0 Then
         k = k + 1
         ess = es - Ini
         Ini = es
         Nu(1) = n
         '
         For x = 2 To Quanti_Abb + 1
            Nu(x) = abb(x,1)
         Next
         '
         For p = 1 To 5
         aN(p) = Estratto(es,r,p)
         For nn = 1 To 90
            If nn = aN(P) Then kkk(nn) = kkk(nn) + 1
         Next
         Next
         '--------------------------------
         Call VerificaEsito(Nu,Ru,es,2,1,,esito,,esa,Id)
         If esito <> "" Then k1 = k1 + 1
         If esito = "Ambo" Then k2 = k2 + 1
         If esito = "Terno" Then k3 = k3 + 1
         If esito = "Quaterna" Then k4 = k4 + 1
         If esito = "Cinquina" Then k5 = k5 + 1
         T = Array(T,GetInfoEstrazione(es),StringaEstratti(es,r),fin - es,ess,esa,esito)
         Call AddRigaTabella(T)
         'Scrivi es & vbTab & StringaEstratti(es,r) & vbTab & esa & vbTab & id
      End If
   Next
   '
 
   CreaTabella
   Scrivi StringaNumeri(Nu) & " ( " & Quanti_Abb + 1 & " Numeri )"
   Scrivi
   Scrivi "Spia trovata.... " & k,1
   Scrivi "Esiti Coperti... " & k1,1
   Scrivi "Ambi............ " & FormatSpace(k2,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(2,Quanti_Abb + 1),10) & " ]" & _
   Space(2) & "Vincita x Ambo.... " & k2 * Vincita(2,Quanti_Abb + 1)
   Scrivi "Terni........... " & FormatSpace(k3,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(3,Quanti_Abb + 1),10) & " ]" & _
   Space(2) & "Vincita x Ambi.... " &(k3 * 3) * Vincita(2,Quanti_Abb + 1) & " | " & " Vincita Terno... " & k3 * Vincita(3,Quanti_Abb + 1)
   Scrivi "Quaterna........ " & FormatSpace(k4,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(4,Quanti_Abb + 1),10) & " ]" & _
   Space(2) & "Vincita x Ambi.... " &(k4 * 6) * Vincita(2,Quanti_Abb + 1) & " | " & " Vincita Terno... " &(k4*4) * Vincita(3,Quanti_Abb + 1) & _
   " | " & "Vincita Quaterna... " & k4 * Vincita(4,Quanti_Abb + 1)
   Scrivi "Cinquina........ " & FormatSpace(k5,3) & " [ " & "Rapporto Vincita " & FormatSpace(Vincita(5,Quanti_Abb + 1),10) & " ]"
   Scrivi "Percentuale Coperta...... " & Round(k1/k*100,2),1,,,2
   Scrivi
   Scrivi "Totale Giocato... " & 5*Tot
   vv = k2 * Vincita(2,Quanti_Abb + 1) +(k3 * 3) * Vincita(2,Quanti_Abb + 1) + k3 * Vincita(3,Quanti_Abb + 1) + _
   (k4 * 6) * Vincita(2,Quanti_Abb + 1) +(k4*4) * Vincita(3,Quanti_Abb + 1) + k4 * Vincita(4,Quanti_Abb + 1)
   Scrivi "Totali Vincite... " & vv
   Scrivi "Utile............ " & vv -(5*Tot),1
   '
   Scrivi
   Scrivi "Controverifica Presenti in Estrazione Numero Spia",1
  
   For c1 = 0 To 90
      For c2 = 1 To 90
         If kkk(c2) = c1 Then
            k1 = k1 + 1
            ReDim Preserve afreq(k1)
            afreq(k1) = c2
         End If
      Next
      If k1 > 0 Then
         Call Scrivi(FormatSpace(k1,2) & " Numeri Con Presenza " & c1 & vbTab,1,0,,2,3)
         Call Scrivi(StringaNumeri(afreq),1,1,,1,3)
      End If
      k1 = 0
   Next
End Sub