Script x superena con dilemma...

[lotto_tom75]

Facendomi gola... i 282 M ho provato a riesumare, x cercare di riadattarlo o di potenziarlo, qualche vecchio script superena...

Uno dei + semplici che però già mi da problemi... sarebbe questo...

Option Explicit
Sub Main
   Dim k,anum,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,fine,valorenumeroelementi,QuantitaNumeriScelti
   Dim valoreInizioelaborazione
   Dim valorefineelaborazione
   ReDim anum(0)
   QuantitaNumeriScelti = ScegliNumeri(anum)
   valoreInizioelaborazione = 1
   valorefineelaborazione = 100000 ' QuantitaNumeriScelti + 1
   Dim Classe
   ReDim aRetCol(0)
   Classe = UBound(anum) - 1
   Scrivi
   Inizio = 1
   fine = EstrazioniArchivioSE
   sorte = CInt(InputBox("sorte",,4))
   Scrivi "classe " & Classe
   Scrivi "sorte " & sorte
   Scrivi DataEstrazioneSE(Inizio)
   Scrivi DataEstrazioneSE(fine)
   Scrivi
   Scrivi "formazioni rispettanti il filtro fq > 0 "
   Scrivi
   For k = valoreInizioelaborazione To valorefineelaborazione
      Call GetColonnaCasuale(Classe,aRetCol,anum)
      'Call Scrivi(StringaNumeri(aRetCol,,True))
      Call StatisticaFormazioneSE(aRetCol,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,fine)
      Dim diff
      diff = ritardomax - ritardo
      If frequenza > 0 Then
         Call Messaggio("trovata!")
         Call Scrivi(" Colonna: " & k & " " & StringaNumeri(anum,,True) & " RA " & ritardo & " RS " & ritardomax & " INCMAX " & Incrritmax & " FQ " & frequenza & " diff " & diff)
      End If
      Call Messaggio("Colonna " & k)
      If k Mod 1000 = 0 Then
         Call Messaggio("Colonna : " & k)
         If ScriptInterrotto Then Exit For
         Call AvanzamentoElab(valoreInizioelaborazione,valorefineelaborazione,k)
      End If
   Next
End Sub

Sembra funzionare... solo per sorti <= 3

Why???

Non riesco proprio a capire perchè... Nel frappè con susine e banane e nel caffè stamattina ci devo aver messo inavvertitamente anche qualche goccia di liquore...

Good Sunday e buona caccia ai 282 M