Sub Main()
Dim Nu(1),Ru(1),SF(90)
estr = InputBox("QUANTE ESTRAZIONI"," MIKE58 ",18)
Classe = InputBox("QUALE CLASSE DI SVILUPPO",,5)
comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE",,1)
Ini = EstrazioneFin - estr
Fin = EstrazioneFin
For R = 1 To 12 : If R = 11 Then::: R = 12
Scrivi NomeRuota(R) & " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),True,True,1,5,2
Mx = 0 : Ru(1) = R
For N = 1 To 90 : Nu(1) = N
SF(N) = SerieFreq(Ini,Fin,Nu,Ru,1)
If Mx <= SF(N) Then Mx = SF(N)
Next
For Q = 0 To MX
Scrivi"Freq = "& Format2(Q) & " -> ",True,False,2,4,2
For N = 1 To 90
If SF(N) = Q Then Scrivi Format2(N) & " ",True,False,4,2,2
Next : Scrivi : Next
Dim k
For k = 1 To comb
ReDim Num(1)
Num(1) = n
Call GetColonnaCasuale(Classe,Num)
Call VerificaEsito(Num,Ru,EstrazioneFin,1,1,Nothing,esito,colpi,estratti,id)
Call Scrivi("Combinazione casuale.... " & StringaNumeri(Num,,True),True,False,3,1,3)
If esito <> "" Then Call Scrivi (" " & esito & " - " & estratti,True,True,7,0,3)
If esito = "" Then Scrivi " Nessun esito ",True,True,7,0,3
Next
Scrivi String(130,"="),1
Next
End Sub